29.06.2009, 14:28 | #1 (permalink) |
Member
Регистрация: 22.06.2009
Сообщений: 690
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 50
|
Задача перевода цифр из десятичной в двоичную
|
29.06.2009, 14:28 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Данный список тем может помочь решить ваш вопрос Паскаль. Сумма цифр числа Обновление Windows в связи с отменой сезонного перевода часов Как посчитать количество цифр 5 в числе? Сложить (умножить) ряд цифр в Pascal |
29.06.2009, 15:33 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
VAR x:WORD; i,p:INTEGER; function Pow_2(n:WORD):WORD; Var i,Y:WORD; BEGIN IF n=0 THEN Pow_2:=1 ELSE IF n=1 THEN Pow_2:=2 ELSE BEGIN Y:=2; FOR i:=2 TO n DO Y:=Y*2; Pow_2:=Y; END; END; BEGIN Write('Enter the number '); ReadLn(x); p:=-1; REPEAT INC(p); UNTIL (x div Pow_2(p))<2; FOR i:=p DOWNTO 0 DO BEGIN Write(x div Pow_2(i)); x:=x mod Pow_2(i); END; ReadLn; END. Последний раз редактировалось Vladimir_S; 29.06.2009 в 21:43 |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|