Преобразование массива символов в число - Pascal ABC
Формулировка задачи:
В массиве d записаны символы являющиеся цифрами двоичной записи числа (d[9]- младшая цифра числа; возможно, с незначащими нулями в начале). Получить десятичное целое число k.
Помогите решить! (а то у меня 0 получается)
Решение задачи: «Преобразование массива символов в число»
textual
Листинг программы
const P='1';
n=9;
var k:0..9999;
d:array[1..n] of '0'..P;
i,j,m:0..9999;
begin
randomize;
writeln('Число в СС 2');
for i:=1 to n do
begin
d[i]:=char(random(2)+48);
write(d[i]);
end;
writeln;
k:=0;
for i:=n-1 downto 1 do
begin
if d[i]='1' Then
begin
m:=1;
for j:=1 to n-i do m:=m*2;
end
else m:=0;
k:=k+m;
end;
if d[n]='1' then inc(k);
writeln('Число в СС 10=',k);
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д