Переводить в двоичную систему счисления вводимые в десятичной системе счисления числа до тех пор, пока не будет введен 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.
def binary(n):
s = ''
while n > 0:
s = str(n%2) + s
n //= 2
return s
while 1:
n = int(input())
if n != 0:
print(binary(n))
else:
break
КуМир
алг
нач
цел num
нц пока да
ввод num
если num <> 0 то
вывод binary(num), нс
иначе
выход
все
кц
кон
алг лит binary(цел n)
нач
лит c
цел m
m := n
знач := ""
нц пока m > 0
c := цел_в_лит(mod(m,2))
знач := c + знач
m := div(m,2)
кц
кон
0 комментариев
Межтекстовые Отзывы
Посмотреть все комментарии
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.