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

@lena0106 · Регистрация: 07.10.2015

Author24 — интернет-сервис помощи студентам

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

@APALoff · 14.10.2015, 09:44

Это как?

@volvo · 14.10.2015, 09:48

Это так: Факториальная система счисления

@APALoff · 14.10.2015, 09:58

Не по теме:

О, век живи - век учись.

ФедосеевПавел · 14.10.2015, 18:14

Pascal

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.

@lena0106 0 / 0 / 0 Регистрация: 07.10.2015 Сообщений: 105
		1
	Перевод числа в факториальную систему счисления 14.10.2015, 08:45. Показов 8037. Ответов 4 Метки нет (Все метки) перевод числа в факториальную систему счисления 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	14.10.2015, 09:44	2
	Это как? 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	14.10.2015, 09:48	3
	Это так: Факториальная система счисления 1

@APALoff
	14.10.2015, 09:58 #4
	Не по теме: О, век живи - век учись. 0

	14.10.2015, 18:14

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

Решение