Question

Cześć wszystkim. Mam taki mały problem dotyczący informatyki a dokładniej mam wykonać algorytm blokowy oraz napisać kod źródłowy Pasacla do sini - 2 algorytmy i dwa bloki: 1. Dla sini 8! 2. Dla sini n! Bardzo proszę o odpowiedź kogoś doświadczonego, gdyż od tego zadania zależy 75% mojej oceny końcowej z informatyki, która znajdzie się na świadectwie z 3 kl. Z góry dziękuję za pomoc.

Answer 1

Pisane pod FPC 2.6.0:

 

Dwa w jednym:

 

Const N = 8;
Type IType = QWord;

Function factorial(X: IType): IType;
Begin
 if (X = 1) Then
 Result := 1 Else
 Result := X*factorial(X-1);
End;

Begin
 Writeln(factorial(N));
End.

 

+algorytm blokowy w załączniku.

 

Informacja:

Program wykonany został z użyciem rekurencji, a podany algorytm jest z użyciem iteracji.