Silnia - Pascal

Algorytmy i struktury danych/Pascal/AiSD5_C3/zad1_silnia.pas

@@ -0,0 +1,53 @@
+program silnia;
+function Czytaj_liczbe: Int64;
+var
+  liczba: Int64;
+begin
+  Write('Podaj liczbę calkowita: ');
+  ReadLn(liczba);
+  Czytaj_liczbe := liczba;
+end;
+
+function Silnia_rekurencyjna(n: Int64): Int64;
+begin
+  if n = 0 then
+    Silnia_rekurencyjna := 1
+  else
+    Silnia_rekurencyjna := n * Silnia_rekurencyjna(n - 1);
+end;
+
+function Silnia_iteracyjna(n: Int64): Int64;
+var
+  wynik, i: Int64;
+begin
+  wynik := 1;
+  for i := 1 to n do
+    wynik := wynik * i;
+  Silnia_iteracyjna := wynik;
+end;
+
+procedure Wypisz_wyniki(wynikRek, wynikIter: Int64);
+begin
+   WriteLn('Silnia rekurencyjna: ', wynikRek:10);
+   WriteLn('Silnia iteracyjna:   ', wynikIter:10);
+end;
+
+procedure Glowna_procedura;
+var
+  liczba, wynikRek, wynikIter: Int64;
+begin
+  liczba := Czytaj_liczbe;
+  if liczba < 0 then
+  begin
+    WriteLn('Silnia jest zdefiniowana tylko dla liczb nieujemnych.');
+    Exit;
+  end;
+
+  wynikRek := Silnia_rekurencyjna(liczba);
+  wynikIter := Silnia_iteracyjna(liczba);
+  Wypisz_wyniki(wynikRek, wynikIter);
+end;
+
+begin
+   Glowna_procedura()
+end.