Question

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

Answer 1

Program todec;
uses crt;
function detob(x:integer):string;
var s:string;
begin
s:='';
while x>0 do
begin
s:=chr(ord('0')+x mod 2)+s;
x:=x div 2;
end;
detob:=s;
end;
var a: integer;
begin
clrscr;
writeln('Введите число:');
readln(a);
writeln('Полученное число:',detob(a));
readln;
end.

Answer 2

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

program DecimalToBinary;

var
  decimalNumber, remainder: integer;
  binaryNumber: string;

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

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

// Выводим двоичное число
  writeln('Двоичное число: ', binaryNumber);
end.

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

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