Перевод из десятичной системы в двоичную и обратно из двоичной в десятичную - Pascal

Формулировка задачи:

uses crt;
var m:array[1..100]of integer;
n:longint;
i,k:integer;
 
begin
 clrscr;
 write('-> ');
 readln(n);
 k := 0;
 if n=0 then
 begin
  k:=1;
  m[k]:=0;
 end else
 while n<>0 do
 begin
  inc(k);
  m[k] := n mod 2;
  n := n div 2;
 end;
 for i:=k downto 1 do write(m[i],' ');
 readln;
end.

как сделать перевод обратно

Решение задачи: «Перевод из десятичной системы в двоичную и обратно из двоичной в десятичную»

textual
                            Листинг программы 
                        

                            var s:string;
function bin2dec(var s:string):Longint;
var i,k,sum:Integer;
Begin
    for i:=length(s) downto 1 do begin
    If s[i]=1 Then sum:=sum+(k*ln(2)); // возвести 2 в степень разрядности
    Inc(k);
end;
 
BEGIN
readln(s);
Writeln(bin2dec(s));
readln;
END.
                        

Оцени полезность:

9 голосов , оценка 4.444 из 5

Похожие ответы