Ocena użytkownikóww: ***** / 5
Nadesłany przez Tomasz Lubiński, 26 lipca 2005 01:00
Kod przedstawiony poniżej przedstawia główną część rozwiązania problemu.
Pobierz pełne rozwiązanie.Jeżeli nie odpowiada Ci sposób formatowania kodu przez autora skorzystaj z pretty printer'a i dostosuj go automatycznie do siebie.
Silnia.adb:
--
-- www.algorytm.org
-- silnia
-- (c)2006 Tomasz Lubinski
--
with Text_IO;
use Text_IO;
procedure Silnia is
function power(i: Integer) return Integer is
begin
if i<1 then
return 1;
end if;
return i * power(i-1);
end;
n : Integer;
begin
n := 10;
Put_Line(Integer'Image(n) & "! = " & Integer'Image(power(n)));
end;