Преобразовать двоичное число в виде строки в десятичное число - Turbo Pascal

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

Преобразовать двоичное число в виде строки в десятичное число

Решение задачи: «Преобразовать двоичное число в виде строки в десятичное число»

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

var s:string;
    j,n,p:longint;
begin
 write('s = ');readln(s);n:=0;p:=1;
 for j:=Length(s) downto 1 do 
  begin n:=n+(Ord(s[j])-Ord('0'))*p; p:=p*2 end;
 writeln(n)
end.

Объяснение кода листинга программы

Этот код на Turbo Pascal преобразует двоичное число, представленное как строка, в десятичное число. Вот разбор кода по шагам:

Объявляются переменные s, j, n и p. Переменная s типа string используется для чтения двоичного числа из ввода пользователя. Переменные j, n и p являются целочисленными типами и используются для хранения и обработки чисел.
Выводится приглашение пользователю ввести строку, представляющую двоичное число.
Переменная n инициализируется нулем, а переменная p устанавливается равной двум. Эти значения используются для преобразования двоичного числа в десятичное.
Запускается цикл for, который начинается с j := Length(s) и продолжается до j = 1. Это означает, что цикл будет выполняться для каждого символа в строке s, начиная с последнего и заканчивая первым.
Внутри цикла переменная n увеличивается на разность между порядковым номером текущего символа в строке (j) и порядковым номером символа '0' (т.е. 0) в алфавите. Значение n затем умножается на p, который удваивается после каждого шага.
После завершения цикла for, выводится значение переменной n. В целом, этот код преобразует двоичное число, представленное как строка, в десятичное число.