Главная » Pascal, Исходники, Перевод » Программа перевода числа из десятичной системы исчисления в двоичною
Дек
09

Программа перевода числа из десятичной системы исчисления в двоичною

[sourcecode highlight=»28″ language=»pascal»]
uses Crt;
var
Bin: String;
Dec: Longint;

procedure Dec2Bin( Dec: LongInt; var Bin: String);
var
i: Char;

begin
Bin:=»;
if Dec = 0 then Bin:=’0′;
While Dec >= 1 do
begin
i:=Char(Dec mod 2 + 48);
Bin:=i+Bin;
Dec:=Dec div 2;
end;
end;

begin
ClrScr;
Readln(Dec);
Dec2Bin(Dec, Bin);
Write(Dec, ‘ = ‘, Bin);
Readln;
end.
{ prepared spacial for www.kpeople.ru by AlexeyJava }
[/sourcecode]


Процедура Dec2Bin переводит десятичное число, указанное в качестве первого параметра, в его двоичное представление, указанное в виде второго параметра. Чуть позже будет выложена расширенная версия программы.



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.