Question

Нужно написать программу, которая переводит десятичные числа в двоичные. На языке Паскаль. !!!Очень срочно!!!

Answer 1

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger('Введите натуральное десятичное число:');

 var r: string := '';

 while n >= 2 do

   (r, n) := (n mod 2 + r, n shr 1);

 r := '1' + r;

 r.Println

end.

Answer 2

Program l;

var

n: integer;

s: String;  

begin  

readln(n);  

while n>0 do begin  

insert(chr(48+n mod 2),s,1);  

n:=n div 2;  

end;  

writeln(s);  

end.

Answer 3

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

pascalCopy code
program DecimalToBinary;

var
  decimalNumber, quotient, remainder: Integer;
  binaryNumber: String;

begin
  // Вводим десятичное число
  Write('Введите десятичное число: ');
  ReadLn(decimalNumber);

  // Проверка на неположительное число
  if decimalNumber < 0 then
  begin
    WriteLn('Ошибка: Введите положительное число.');
    Exit; // Завершаем программу
  end;

  // Инициализируем пустую строку для двоичного числа
  binaryNumber := '';

  // Переводим число в двоичную систему счисления
  quotient := decimalNumber;
  repeat
    remainder := quotient mod 2;
    binaryNumber := IntToStr(remainder) + binaryNumber;
    quotient := quotient div 2;
  until quotient = 0;

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

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