подсчитать факториалы всех чисел в заданном пользователем диапазоне [Delphi, Pascal]

[Necker]

подсчитать факториалы всех чисел в заданном пользователем диапазоне.
Факториал числа имеет следующий вид:
n! = 1 * 2 * 3 * 4 * ... * n
Формат вывода расчетов:
Введите начало диапазона 3
Введите конец диапазона 6
3! = 1 * 2 * 3 = 6
4! = 1 * 2 * 3 * 4 = 24
5! = 1 * 2 * 3 * 4 * 5 = 120
6! = 1 * 2 * 3 * 4 * 5 * 6 = 720
//

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
k, s, i, m, n: integer;
begin
writeln ('Input first number');
readln(m);
writeln ('Input second number');
readln(k); // ввели число, факториал которого надо посчитать.

s:= 1; // это у нас переменная для результата.
for i:= 1 to k do
s:= s*i;
writeln('s =  ', s); // вывод результата.

n:=1;
  for i:= 1 to m do
   n:= n*i;
  writeln('n= ', n);
  readln;
end.

Но не могу понять, как сделать вывод по условию, может кто-нибудь подсказать как это делать, как задать диапазон и сделать вывод от начального каунта до конечного, буду признателен

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[jura_k]

Если речь идёт о 100, то цифр в вашем процессоре не хватит, чтобы подсчитать это число. Я лично проверял. У меня ряд обрывался где-то в районе второго десятка. После этого процессор тупо выдавал 0.

[Necker]

Сообщение от jura_k

Если речь идёт о 100, то цифр в вашем процессоре не хватит, чтобы подсчитать это число. Я лично проверял. У меня ряд обрывался где-то в районе второго десятка. После этого процессор тупо выдавал 0.

там надо задать первое число , потом второе, и чтоб программа вывели значение факториалов в диапазоне между этими числами, я не могу сообразить как записать эти действия и вывести их
ПР.
первое число:2
второе число:3
вывод:
2!=2
3!=6,
примерно такой столбец должен получатся
100, это максимальное значение , которое можно ввести

[jura_k]

О, а я-то Паскаль и не знаю...
Ну это просто. Просите пользователя ввести сразу два числа. Затем, когда придёт время выводить результат, делаете конструкцию:
if (i >= a1) printf (i!);
Если счётчик меньше a1, то ничего не напечатается.

[Necker]

ВИдимо я слишком туп для этого(. Если не сложно можете написать алгоритм действий пошаговый, мю поможет для моей тупой головушки

[Serge_Bliznykov]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  k, i, j, m, n: integer;
  s : int64;

begin
  writeln ('Input first number');
  readln(m);
  writeln ('Input second number');
  readln(k); // ввели число, факториал которого надо посчитать.

  for i:= m to k do  // цикл от m до k
  begin
    s:= 1; // это у нас переменная для результата.
    Write(i:1,'! = 1');
    for j:=2 to i do begin
      Write(' * ',j:1);  // вывод сомножителей
      s:= s*j;
    end;
    writeln(' = ', s); // вывод результата.
  end;
  WriteLn('Press Enter to finish.');
  readln;
end.

Сообщение от jura_k

Если речь идёт о 100, то цифр в вашем процессоре не хватит, чтобы подсчитать это число.

Юра частично прав.
Предложенный мной код будет работать только для чисел <=20
Больше не хватает стандартной разрядности для хранения целочисленных значений.
Чтобы точно посчитать факториал больших чисел нужно использовать длинную арифметику (кстати, примеры были на форуме,
как раз чтобы посчитать факториал 100!)

[Necker]

Спасибо Вам огромное, не знаете ли каких-то обучающих ресурсов для чайников в программирование ?

[Alex11223]

http://www.programmersforum.ru/showthread.php?t=303485

[Necker]

Cпасибо

[digitalis]

Сообщение от Serge_Bliznykov

Чтобы точно посчитать факториал больших чисел нужно использовать длинную арифметику

А если не точно - вообще использовать real. А какому ляху нужна целочисленная точность до сотого знака ?