Перевод целого десятичного числа в двоичное - Pascal

Формулировка задачи:

Написать програму перевода любого целого десятичного числа в двоичное зарание спасиба

Решение задачи: «Перевод целого десятичного числа в двоичное»

Листинг программы

uses crt;
var a:longint;
function DecToBin(x:longint):string;
const c:array [0..1] of char= ('0','1');
var res:string; 
d:0..1;
begin
   res:='';
   while (x<>0) do begin
      d:=x mod 2;
      res:=c[d]+res;
      x:=x div 2;
   end;
   DecToBin:=res;
end;
begin 
  clrscr;
  write('Введите десятичное число а= ');
  readln( a );
  writeln(DecToBin(a));
  readln
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая предоставляет функции для работы с числовыми типами данных.
Затем объявляются переменные: a типа longint, в которой будет храниться введенное десятичное число; res типа string, в которую будет записываться результат преобразования; d типа 0..1, который будет использоваться как временный буфер для хранения остатка от деления.
Далее объявляется функция DecToBin, которая принимает аргумент x типа longint и возвращает строку c типа string. Внутри функции объявляется константный массив c, который содержит символы '0' и '1'. Переменная res инициализируется пустой строкой. Затем происходит цикл while, который выполняется до тех пор, пока x не станет равным нулю.
Внутри цикла выполняется следующее:
- d инициализируется остатком от деления x на 2.
- res увеличивается на символ, соответствующий значению d, из массива c.
- x делится на 2.
После завершения цикла while значение переменной res присваивается функции DecToBin.
В основной части программы выводится приглашение для ввода десятичного числа, затем считывается введенное значение и вызывается функция DecToBin для преобразования этого числа в двоичную строку. Результат выводится на экран.
Код завершается вызовом функции readln для очистки экрана перед выходом из программы.