フィボナッチ数列1

ホーム > Programing > Pascalコード集 > フィボナッチ数列1

注意

このサイトの利用によって生じた損害については当方では責任を負いかねますのでご了承ください。

コード

program Fib1(input, output);

{Fibonacci数を計算する}
function Fib(n : integer) : integer;
begin
	{Fib(0) = 0}
	if n <= 0 then
		Fib := 0

	{Fib(1) = 1}
	else if n = 1 then
		Fib := 1

	{Fib(n) = Fib(n-2) + Fib(n-1)}
	else
		Fib := Fib(n-2) + Fib(n-1)
end;

procedure main;
var i : integer;
begin
	for i := 1 to 10 do
		writeln('Fib(', i:2, ') = ', Fib(i):5)
end;

begin
	main
end.
			

作成日:2016年9月25日、最終更新日: