[Pascal] silnia - cdn

Witam !
Mam problem
W stosunku do poprzedniego programiku, roznica polega na koniecznosci zdefiniowania iteracyjnej wersji funkcji obliczajacej silnie i wyodrebnienie podprogramu (funkcji) realizujacej obliczenia.

Funkcja do obliczania silni ma:

1. miec nazwe "silnia_iteracyjna"
2. pobierac przez wartosc jeden parametr o nazwie "n",bedacy liczba typu LongInt
3. zwracac w wyniku obliczona wartosc funkcji silnia, inaczej mowiac - n!
4. funkcja ma obliczac wartosc silni w sposob iteracyjny

btw
0! = 1

btw2
Sorki ze drugi raz, ale poprzednio szedl post z innego kompa i zle ustawienia byly [wstyd]

--

pozdro_4_all

?? Odpowiedz na to juz byla, ale niech bedzie:

function Silnia(N: Integer): Longint;
var
W, i: Longint;
begin
W:=1;
for i:=1 to N do W:=W * i;
Silnia:=W
end;

Sorry za brak pl znakow, ale mam linuxa i jeszcze tego nie skonfigurowalem.

--
Vogel [Delphi 6 PE]

Life is just a dream, you know...
[Cowboy Bebop]

Dzieki wielkie !

btw
to przez ten pospiech ;)

--

pozdro_4_all