「フィボナッチ数/Turbo Pascal」の版間の差分
< フィボナッチ数
ナビゲーションに移動
検索に移動
imported>Administrator (ページの作成:「Turbo Pascalによるフィボナッチ数の記述例。 試してないので何とも言えないが、たぶん無印Pascalでは動かない。 [[Turb...」) |
(相違点なし)
|
2012年4月26日 (木) 11:00時点における最新版
Turbo Pascalによるフィボナッチ数の記述例。
試してないので何とも言えないが、たぶん無印Pascalでは動かない。 Turbo PascalとPascalは、Objective-CとC言語くらい違うプログラミング言語だよ。
記述例 1[編集 | ソースを編集]
program fibonacci;
function fib(n:integer): integer;
begin
if (n <= 2) then
fib := 1
else
fib := fib(n-1) + fib(n-2);
end;
var
i:integer;
begin
for i := 1 to 16 do
write(fib(i), ', ');
writeln('...');
end.
関連項目[編集 | ソースを編集]
参考文献[編集 | ソースを編集]