Question

Задача в Паскале! Дано 4-х значное двоичное число b, перевести в десятичное и вывести на экран

Answer 1

Program algorithm;
uses crt;
var s,sbox:string;
i,step,dva,n,l,delo:integer;
begin
Writeln('Введите двоичное число:');
 read(dva); s:=IntToStr(dva);
l:=length(s);
for i:=1 to l do
begin  dva:=StrToInt(s[i]);
step:=l-i;
if dva>0
then
 begin  
 for n:=1 to step do    dva:=dva*2;

delo:=delo+dva;
 end;
 end;
Writeln('Десятичное число: ',delo);
end.

Answer 2

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

program BinaryToDecimal;

var
  b: string;
  decimalNum: Integer;

begin
  // Ввод двоичного числа
  Write('Введите четырехзначное двоичное число: ');
  Readln(b);

// Проверка на корректность ввода
  if Length(b) <> 4 then
  begin
    Writeln('Некорректный ввод. Введите четырехзначное двоичное число.');
    Exit;
  end;

// Перевод двоичного числа в десятичное
  decimalNum := 0;
  decimalNum := decimalNum + StrToInt(b[1]) * 8;
  decimalNum := decimalNum + StrToInt(b[2]) * 4;
  decimalNum := decimalNum + StrToInt(b[3]) * 2;
  decimalNum := decimalNum + StrToInt(b[4]) * 1;

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

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

Пример работы программы: ``` Введите четырехзначное двоичное число: 1010 Десятичное представление числа 1010 равно 10 ```

Примечание: При написании кода использовались общие знания о языке Паскаль и опыт программирования. Ни одна из приведенных выше ссылок не была использована для написания этого ответа.