差分
[[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}}
試してないので何とも言えないが、たぶん無印[[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}}