Переводить в двоичную систему счисления вводимые в десятичной системе счисления числа до тех пор, пока не будет введен 0. Для перевода десятичного числа в двоичное написать функцию.
В основной ветке программы выполнять бесконечный цикл, в котором
запрашивать десятичное число,
если оно не ноль, то вызывать функцию перевода его в двоичное представление и выводить результат работы функции на экран,
иначе (когда введен 0) прерывать цикл оператором break.
Функция должна принимать десятичное число и возвращать двоичное (в строковом виде). В теле функции будет поэтапно находиться остаток от деления на 2 последней цифры, после чего само число будет сокращаться путем деления его нацело на 2. Остаток от деления должен быть преобразован в строковое представление и присоединен впереди формируемой строки двоичного представления числа.
Pascal
перевод числа в двоичную систему паскаль
var
decimal: word;
function binary(decimal:word):string;
var s: string[1];
begin
binary := '';
while decimal > 0 do begin
str(decimal mod 2, s);
binary := s + binary;
decimal := decimal div 2
end;
end;
begin
while True do begin
write('Decimal: ');
readln(decimal);
if decimal <> 0 then
writeln(binary(decimal))
else break;
end;
end.
function binary(decimal:word):string; var s: string[1]; begin binary := ''; while decimal > 0 do begin str(decimal mod 2, s); binary := s + binary; decimal := decimal div 2 end; end;
begin while True do begin write('Decimal: '); readln(decimal); if decimal 0 then writeln(binary(decimal)) else break; end; end.