подскажите на счет факториала

[Lindemm]

Добрый вечер.Я человек в програмировании новый...очень новый,вобщем сегодня начал разбирать что к чему.
начал с дэлфи и тут же же возник вопрос на счет программы нахождения факториала:

Начало программы

переменные
F,R,INDEX-целые числа

начало кода
F:=5
R:=1
INDEX:=1
от 1 до 5 выполнять

начало цикла
R:=R*INDEX
INDEX:=INDEX+1
Конец цикла

Вывести на экран переменную R

конец кода.

Так вот вопрос: в этой программе как я понял мы вычисляем не произведение факториала 5,а находим сам факториал. Где программа которая вычислит само число 120(факториал 5) и почему она не прописывается в коде?

[Alex21]

Так вот вопрос: в этой программе как я понял мы вычисляем не произведение факториала 5,а находим сам факториал

А что по вашему есть факториал числа N? Это произведение всех чисел от 1 до N.

Где программа которая вычислит само число 120(факториал 5) и почему она не прописывается в коде?

Сложный вопрос. Как себе это представляете?

var f,index,R:integer;
begin
  F:=5;
  index:=1;
  for index:=1 to F do
  begin
    R:=R*index;
  end;
  Writeln('Факториал ',F,' = ',R);
end.

[Lindemm]

Тоесть вычисление происходит само?
Мы вычисляем факториал числа N пусть в данном случае 5,путем цикла мы добавляем по одному числу так? то есть если R:=1?а INDEX:=INDEX+1,и эти данные циклируются(простите забыл,Index :=1) до получения самого факториала5; получаем:R:=R*INDEX:=+1 и так по одному добираемся до 5. А надо узнать произведение тоесть в данном случае на мониторе должна появится цифра 120.но по формуле там появится цифра 5,тоесть сам факториал.
Я из формулы это так понял

[kommunist]

Вот программа в дельфи вычисляющая факториал, посмотри она очень проста для понимания

[Gorychev]

// c помощью рекурсии
Function faktor(n:word):integer;
begin
if n=0 then result:=1
else result:=fak(n-1)*n
end;

procedure TForm1.Button1Click(Sender: TObject);
var i, res: integer;
begin
// c помощью рекурсии
ShowMessage('Факториал 5! = ' + inttostr(faktor(5)));

// циклически
res:=1;
for i := 1 to 5 do res := res * i;
ShowMessage('Факториал 5! = ' + inttostr(res));
end;