Перевод числа в факториальную систему счисления - Pascal ABC

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

перевод числа в факториальную систему счисления

Код к задаче: «Перевод числа в факториальную систему счисления - Pascal ABC»

textual
program FactorialNumeralSystem;
 
  function DecToChar(n: qword): char;
  begin
    if n < 10 then
      DecToChar := char(n + Ord('0'))
    else
      DecToChar := char(n + Ord('A') - 10);
  end;
 
  function DecToFac(n: qword): string;
 
    procedure Recurse(i, f: qword);
    begin
      f := i * f;
      if n < f then
        exit;
      Recurse(i + 1, f);
      DecToFac := DecToFac + DecToChar(n div f);
      n := n mod f;
    end;
 
  begin
    DecToFac := '';
    Recurse(1, 1);
  end;
 
begin
  writeln('100 (dec) = ', DecToFac(100), ' (fac)');
  writeln('999999999999 (dec) = ', DecToFac(999999999999), ' (fac)');
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 3.917 из 5


СДЕЛАЙТЕ РЕПОСТ