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

@nikolay1992 · Регистрация: 09.09.2013

Author24 — интернет-сервис помощи студентам

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.

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

@orange_rush · 11.03.2014, 23:49

Я думаю, что-то навроде этого:

Pascal

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.

@nikolay1992 · 12.03.2014, 12:22 **[ТС]**

Спасибо за помощь!

@nikolay1992 0 / 0 / 0 Регистрация: 09.09.2013 Сообщений: 7
	12.03.2014, 12:22 [ТС]	3
	Спасибо за помощь! 0