Question

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

Answer 1

Ответ:

Объяснение:   Var

  A,B:longint;

Begin

B:=1;

Read(A);

While A > 0 do

  Begin

  B:=B*10+(A mod 2);

  A:=A div 2

  End;

While B div 10 > 0 do

  Begin

  A:=A*10+(B mod 10);

  B:=B div 10

  End;

Write(A)

End.

Answer 2

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

pascalCopy code
program DecimalToBinary;

var
  decimalNumber, quotient, remainder: integer;
  binaryNumber: string;

begin
  // Ввод десятичного числа
  writeln('Введите десятичное число:');
  readln(decimalNumber);

  quotient := decimalNumber;

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

  // Вывод двоичного числа
  writeln('Двоичное число:');
  writeln(binaryNumber);

  readln;
end.

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

Обратите внимание, что данная программа использует стандартные функции Паскаля, такие как writeln, readln, IntToStr, mod и div, поэтому убедитесь, что ваша среда разработки поддерживает эти функции.

Надеюсь, это поможет вам! Если у вас возникнут ещё вопросы, не стесняйтесь задавать.