Question

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

Answer 1

Ответ:

Имо, короче некуда:

• function f (x:integer):string := x>0?f(x div 2)+(x mod 2).ToString:'';
• begin
• var x := ReadInteger;
• Write(f(x));
• end.

Пример работы:

Answer 2

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

pascalCopy code
program DecimalToBinary;
var
  decimalNumber, quotient, remainder: Integer;
  binaryNumber: String;
begin
  // Ввод числа в десятичной системе
  Write('Введите число в десятичной системе: ');
  ReadLn(decimalNumber);

  quotient := decimalNumber;

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

  // Вывод числа в двоичной системе
  WriteLn('Число в двоичной системе: ', binaryNumber);
end.

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

Примечание: В этом примере используется стандартная библиотека Pascal, которая предоставляет функцию IntToStr для преобразования числа в строку.