program aflaFacotial;
function Factorial(n: integer): integer;
var p, i:integer;
begin p:=1;
for i:=1 to n do p:=p * i;
Factorial:=p;
end;
begin
writeln('2! = ' + Factorial(2));
writeln('3! = ' + Factorial(3));
writeln('7! = ' + Factorial(7));
end.
Tipul parametrului formal este integer, de unde?
Factorial(n: acesta)
Factorial(n: integer)
Tipul rezultatului returnat este la fel integer, de unde?
Factorial(n: integer): acesta;
Factorial(n: integer): integer;
Variabilele declarate in corpul functei sunt
p , i si sunt integer.
Succes.
:)
