Question

Напишите линейную программу перевода любого целого четырехзначного двоичного числа в десятичную систему счисления. Например, дано число в двоичной системе счисления: 11012. Перевод в десятичную систему выполняется так: 1*2^3 +1-2^2 + 0*2^1+1 = 13. Помогите пж. надо на паскале сделать.​

Answer 1

Pascal

var n,k,m: integer;

begin

 write('двоичное число:  ');  readln(n);

 k:=1;  m:=0;

 repeat

   m:=m+k*(n mod 10);

   n:=n div 10;

   k:=k*2;

 until n=0;

 writeln('десятичное число:  ',m);

end.

Answer 2

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

pascalCopy code
program BinaryToDecimal;

function BinaryToDecimal(binaryStr: string): Integer;
var
  i, len, decimalNum, power: Integer;
begin
  len := Length(binaryStr);
  decimalNum := 0;
  power := 1;

  for i := len downto 1 do
  begin
    if binaryStr[i] = '1' then
      decimalNum := decimalNum + power;
    power := power * 2;
  end;

  Result := decimalNum;
end;

var
  binaryNum: string;
  decimalNum: Integer;
begin
  Write('Введите четырехзначное число в двоичной системе: ');
  Readln(binaryNum);

  if Length(binaryNum) <> 4 then
  begin
    Writeln('Ошибка: Введите четырехзначное число в двоичной системе.');
    Exit;
  end;

  decimalNum := BinaryToDecimal(binaryNum);
  Writeln('Число в десятичной системе: ', decimalNum);
end.

Программа преобразует четырехзначное двоичное число, введенное пользователем, в десятичную систему счисления и выводит результат на экран. Обратите внимание, что программа проверяет наличие четырех символов во введенной строке и выдаст ошибку, если условие не выполняется.