Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.11.2012, 02:00   #1
Iri4ik
 
Регистрация: 07.10.2012
Сообщений: 5
По умолчанию Циклы. While...do

Как написать программу для перевода чисел из десятичной в двоичную систему счисления, не используя процедур и функций. В Delphi 7.
Iri4ik вне форума Ответить с цитированием
Старый 09.11.2012, 02:15   #2
eval
Подтвердите свой е-майл
 
Регистрация: 29.08.2012
Сообщений: 4,011
По умолчанию

а используя процедуры и функции сталобыть знаете как написать?
eval вне форума Ответить с цитированием
Старый 09.11.2012, 08:57   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

я знаю... показать?

Код:
var
  N: longint;
  s: string;
begin
  N := 327; {тут Ваше десятичное число}
  s := '';
  repeat
    if odd(N) then
      s := '1' + s
    else
      s := '0' + s;
    N := N shr 1;
  until N =0;
  {вывод S - двоичного представления числа N}
  ....
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
синусы и ко. циклы, вроде циклы Scorch92 Паскаль, Turbo Pascal, PascalABC.NET 2 22.12.2010 19:26
Циклы, С# ~Mi@mi~ Помощь студентам 1 15.10.2010 23:12
Циклы Chuvak ot dushi Помощь студентам 2 14.10.2010 21:03
Циклы - вложенны циклы? tigga Microsoft Office Excel 5 19.02.2010 23:36
C++ циклы KOLYTFR Помощь студентам 5 26.04.2009 23:38