Program ToDec;
Uses crt;
var s:string;
n,l,i:integer;
function Pow(x,y:integer):integer;
begin
if y>0 then Pow:=Pow(x,y-1)*x
else Pow:=1;
end;
function ToDec(A : string) : integer;
var L : Byte;
begin
if A = '' then ToDec := 0
else begin
L := length(A);
case A[1] of
'0' : ToDec := ToDec(Copy(A, 2, L - 1));
'1' : ToDec := Pow(2, L - 1) + ToDec(Copy(A, 2, L - 1));
end;
end;
end;
begin
clrscr;
write('Введите двоичное число: ');
readln(s);
writeln('Это число в десятичной системе : ', ToDec(S));
readkey;
end.
Program ToDec;
Uses crt;
var s:string;
n,l,i:integer;
function Pow(x,y:integer):integer;
begin
if y>0 then Pow:=Pow(x,y-1)*x
else Pow:=1;
end;
function ToDec(A : string) : integer;
var L : Byte;
begin
if A = '' then ToDec := 0
else begin
L := length(A);
case A[1] of
'0' : ToDec := ToDec(Copy(A, 2, L - 1));
'1' : ToDec := Pow(2, L - 1) + ToDec(Copy(A, 2, L - 1));
end;
end;
end;
begin
clrscr;
write('Введите двоичное число: ');
readln(s);
writeln('Это число в десятичной системе : ', ToDec(S));
readkey;
end.
Первая строка - разряды, т.е показатели степени двойки.
Вторая - значения степеней двойки, например, 2^8=256
В третьей строке делаем вычисления.
Записали исходное число 994. Смотрим ближайший разряд - девятый - там 512.
994>512, значит такая степень двойки в числе 994 содержится. Пишем в девятом разряде следующей строки 1, а рядом с 994 (в 9 разряде пишем остаток 994-512=482.
Повторяем процесс. В 8 разряде записано 256. 482>256. Снова 1 в четвертую строку и разность 482-256=98 в соседний, 7 разряд.
Так продолжается, пока не дойдем до 5 разряда. У нас там число 2, а в соседнем разряде 16. 2>16, поэтому разряд пропускаем, а в 4й строке пишем ноль. Так поступаем, пока не придем в разряд 1. 2=2, поэтому делаем вычитание, пишем 1 в 4ю строку, а в третьей пишем, как всегда, разность 2-2=0. Все. Остальные разряды четвертой строки заполняем нулями.
Двоичное представление числа - это 4-я строка.
994₁₀ = 111110010₂