[informatyka]Pascal - tablicowanie silnii n!

[andrewpol]

Witam forumowiczów!

Potrzebuję program/algorytm na tablicowanie silnii. Szczerze powiedziawszy nie mam zielonego pojęcia co to jest, bo moja przezajebista szkoła daje 1 informatykę rozszerzoną(na rozszerzonej inf. kl. 2 technikum) i to na zerowej lekcji,gdzie 3/4 ludzi z klasy nie ma, bo są dojezdni w tym ja, a ci co są to raczej nie ogarniają . Szukałem na google, ale kompletnie nic nie zrozumiałem. Proszę o jak najszybszą odpowiedź.

 

Pozdrawiam.

[wjatek]

Silnia n to iloczyn wszystkich liczb naturalnych do n włącznie, przykładowo silnia 5:

5! = 1 * 2 * 3 * 4 * 5 = 120

Definicja rekurencyjna silni:

n! = 1              dla n = 0
n! = n * (n - 1)!   dla n >= 1

Na podstawie tego algorytm w Pascalu obliczający rekurencyjnie silnię wygląda tak:

function Silnia(liczba:longword):longword;
begin
    if (liczba=0) then
        Silnia:=1
    else
        Silnia:=Silnia(liczba-1)*liczba;
end;