Пожалуйста, переделайте под Турбо Паскаль - Pascal

Узнай цену своей работы

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

function DecToBin(n:byte):string;
const c:array [0..1] of char= ('0','1');
var d:0..1;
begin
result:='';
while n<>0 do 
 begin
  d:=n mod 2;
  result:=c[d]+result;
  n:=n div 2;
 end;
while length(result)<4 do
result:='0'+result;
end;
var n:integer;
    s:string;
begin
write('Введите десятичное число n= ');
readln(n);
s:='';
while n>0 do
 begin
  s:=DecToBin(n mod 10)+s;
  n:=n div 10;
 end;
write(s);
end.

Решение задачи: «Пожалуйста, переделайте под Турбо Паскаль»

textual
Листинг программы
function DecToBin(n:byte):string;
const c:array [0..1] of char= ('0','1');
var d:0..1;
    s:string;
begin
s:='';
while n<>0 do
 begin
  d:=n mod 2;
  s:=c[d]+s;
  n:=n div 2;
 end;
while length(s)<4 do
s:='0'+s;
DecToBin:=s;
end;

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

  1. Функция DecToBin преобразует десятичное число в двоичное.
  2. Входной параметр n (типа byte) - десятичное число, которое нужно конвертировать в двоичное.
  3. Константа c - массив символов '0' и '1'.
  4. Переменная d - хранит остаток от деления числа n на 2.
  5. Переменная s - строка для хранения результата в двоичном виде.
  6. Пока n не равно 0, выполняются следующие действия:
    • Получаем остаток от деления числа n на 2 и записываем его в d.
    • Добавляем символ из массива c (с индексом d) в начало строки s.
    • Делим n на 2.
  7. После завершения цикла, если длина строки s меньше 4, добавляем нули в начало строки, чтобы получить результат в виде 4-битного двоичного числа.
  8. Возвращаем строку s в качестве результата функции DecToBin. Этот код демонстрирует алгоритм перевода десятичного числа в двоичное с использованием остатков от деления.

ИИ поможет Вам:


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

Оцени полезность:

15   голосов , оценка 3.867 из 5
Похожие ответы