fibo.txt

(0 KB) Pobierz 
program fobonacci;
var
	i:integer;

function Fib(n:integer):longint;
var
	i,poprzedni1, poprzedni2:longint;
	wynik:longint;
begin
	if n<3 then
		Fib:=1
	else
	begin
		poprzedni1:=1;
		poprzedni2:=1;
		for i:=3 to n do
		begin
			wynik:=poprzedni1+poprzedni2;
			poprzedni2:=poprzedni1;
			poprzedni1:=wynik;
		end;
		Fib:=wynik;
	end;
end;

begin
	for i:=1 to 40 do
		WriteLn('F(',i,')=',Fib(i));

               readln;
               end.

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika:

Zgłoś jeśli naruszono regulamin