Ocena użytkownikóww: ***** / 7
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.
Fib.adb:
--
-- Ciąg Finonacciego
-- www.algorytm.org
-- (c) 2006 Tomasz Lubiński
--
with Text_IO;
use Text_IO;
procedure Fib is
function fib(n: Integer) return Integer is
begin
if n=1 or else
n=2 then
return 1;
end if;
return fib(n-1)+fib(n-2);
end;
n : Integer;
begin
n := 10;
Put_Line(Integer'Image(n) & "-ty wyraz ciagu Fibonacciego: " & Integer'Image(fib(n)));
end;
