Question

Создать программу для перевода чисел из двоичной в десятичную систему счисления. Паскаль.

Answer 1

function step(x:integer):longint;

var i:integer; st:longint;

begin

if x=0 then step:=1 else begin

     st:=1;

     for i:=1 to x do begin

     st:=st*2;

     step:=st;

     end; end;

end;

var k,a,b,d,s:longint;

begin

s:=0;

k:=0;

readln(a);

repeat

     b:=a mod 10; // отделяем последнюю цифру числа

     d:=a div 10; // запоминаем число без последней цифры

     s:=s+b*step(k);  

     k:=k+1;

     a:=d;

until d=0;

writeln(s);

end.

Answer 2

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

pascalCopy code
program BinaryToDecimal;
var
  binaryNumber, decimalNumber, remainder, base, digit: longint;
begin
  // Инициализация переменных
  decimalNumber := 0;
  base := 1;
  
  // Ввод двоичного числа
  write('Введите двоичное число: ');
  readln(binaryNumber);
  
  // Перевод из двоичной в десятичную систему
  while binaryNumber > 0 do
  begin
    remainder := binaryNumber mod 10; // Получаем последнюю цифру двоичного числа
    decimalNumber := decimalNumber + remainder * base;
    binaryNumber := binaryNumber div 10; // Убираем последнюю цифру из двоичного числа
    base := base * 2; // Увеличиваем вес для следующей цифры
  end;
  
  // Вывод результата
  writeln('Десятичное число: ', decimalNumber);
end.

Эта программа сначала считывает двоичное число, затем переводит его в десятичную систему счисления, используя цикл. После этого она выводит результат на экран.