Преобразование массива символов в число - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д