フィボナッチ数列2

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

注意

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

コード

program Fib2(input, output);

{Fibonacci数を計算する}
procedure Fib(n : integer);
var x, y, tmp, i : integer;
begin
	{Initialize}
	x := 0;
	y := 1;

	if n <= 0 then
		writeln('Fib(', n:2, ') = ', x:5)
	else if n = 1 then
		writeln('Fib(', n:2, ') = ', y:5)
	else
	begin
		for i := 1 to n do
		begin
			{Fibonacci数の計算}
			tmp := x + y;
			x := y;
			y := tmp;

			{出力}
			writeln('Fib(', i:2, ') = ', x:5)
		end
	end
end;

begin
	Fib(10)
end.
			

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