「Turbo Pascal 5.5」を編集中
ナビゲーションに移動
検索に移動
この編集を取り消せます。 下記の差分を確認して、本当に取り消していいか検証してください。よろしければ変更を保存して取り消しを完了してください。
最新版 | 編集中の文章 | ||
15行目: | 15行目: | ||
=== フィボナッチ数列 === | === フィボナッチ数列 === | ||
− | + | <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> | ||
=== 階乗 === | === 階乗 === |