フィボナッチ数/Turbo Pascal

提供: MonoBook
< フィボナッチ数
2012年4月26日 (木) 11:00時点におけるimported>Administratorによる版 (ページの作成:「Turbo Pascalによるフィボナッチ数の記述例。 試してないので何とも言えないが、たぶん無印Pascalでは動かない。 [[Turb...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
ナビゲーションに移動 検索に移動

Turbo Pascalによるフィボナッチ数の記述例。

試してないので何とも言えないが、たぶん無印Pascalでは動かない。 Turbo PascalPascalは、Objective-CC言語くらい違うプログラミング言語だよ。

記述例 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.

関連項目[編集 | ソースを編集]

参考文献[編集 | ソースを編集]


外部リンク[編集 | ソースを編集]