Срочно нужна помощь по паскалю

[Саша91-09]

Нужно составить программу вычисления факториала. С помощью подпрограммы.
Вычислить:12!,17!,32!


пожалуйста помогите!!!

[KORN]

http://forum.sources.ru/index.php?showtopic=44800

так сложно поискать7 или просто лень7

[Лубышев]

Мне кажется все хорошо, но вот только тип данных бы лучше другой. при больших значениях вылетит.

Function fact(s:integer):real;
var i:integer;
begin
result:=1;
if s<=0 then break;
for i:=1 to s do result:=result*i;
end;

[Саша91-09]

Да я просто новенький ниче толком не знаю!! В паскале вообще никто!

[Лубышев]

ха! ну тогда чтобы использовать функцию в самой программе, делай так:

program a;
{Функция факториал}
Function fact(s:integer):real;
var i:integer;
begin
result:=1;
if s<=0 then break;
for i:=1 to s do result:=result*i;
end;

{Основной код программы:}
begin
writeln(fact(32));{Выводит результат на экран}
end;

[Саша91-09]

Спасибо за помощь)))