imported>Administrator: ページの作成：「Turbo Pascalによるフィボナッチ数の記述例。試してないので何とも言えないが、たぶん無印Pascalでは動かない。 [[Turb...」

2012-04-26T11:00:17Z

ページの作成：「Turbo Pascalによるフィボナッチ数の記述例。試してないので何とも言えないが、たぶん無印Pascalでは動かない。 [[Turb...」

新規ページ

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

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

== 記述例 1 ==
<source lang="delphi">
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.
</source>

== 関連項目 ==
* [[Turbo Pascal]]
* [[フィボナッチ数]]

== 参考文献 ==
<references/>

== 外部リンク ==

{{stub}}

フィボナッチ数/Turbo Pascal - 版の履歴

imported>Administrator: ページの作成：「Turbo Pascalによるフィボナッチ数の記述例。 試してないので何とも言えないが、たぶん無印Pascalでは動かない。 [[Turb...」

imported>Administrator: ページの作成：「Turbo Pascalによるフィボナッチ数の記述例。試してないので何とも言えないが、たぶん無印Pascalでは動かない。 [[Turb...」