Question

Напишите программу перевода чисел из двоичной системы счисления в десятичную на паскале , используя простые формулы.

Answer 1

Var a:string[20]; st,b,i:integer;
begin
writeln('Введите двоичное число:');
readln(a);
st:=1; b:=0;
for i:=length(a) downto 1 do
 begin
 if a[i]='1' then b:=b+st;
 st:=2*st;
 end;
writeln(b);
end.

Answer 2

Конечно, вот пример простой программы на языке Pascal для перевода чисел из двоичной системы счисления в десятичную:

program BinaryToDecimalConverter;

var
  binaryNumber: string;
  decimalNumber, base, i: integer;

begin
  // Ввод двоичного числа
  write('Введите двоичное число: ');
  readln(binaryNumber);

// Инициализация переменных
  decimalNumber := 0;
  base := 1;

// Проход по каждой цифре двоичного числа, начиная с конца
  for i := length(binaryNumber) downto 1 do
  begin
    // Перевод текущей цифры из символа в число
    // и умножение на текущий разряд (base)
    decimalNumber := decimalNumber + (ord(binaryNumber[i]) - ord('0')) * base;
    
    // Увеличение разряда (base) для следующей итерации
    base := base * 2;
  end;

// Вывод результата
  writeln('Десятичное представление: ', decimalNumber);
end.

Программа запрашивает ввод двоичного числа, затем использует цикл для обработки каждой цифры числа, начиная с конца. Каждая цифра преобразуется из символа в число и умножается на соответствующий разряд (степень двойки), затем результат прибавляется к общему десятичному числу. Разряд увеличивается для следующей итерации цикла. Наконец, программа выводит десятичное представление введенного двоичного числа.