「Turbo Pascal 5.5」を編集中

ナビゲーションに移動 検索に移動

警告: ログインしていません。編集を行うと、あなたの IP アドレスが公開されます。ログインまたはアカウントを作成すれば、あなたの編集はその利用者名とともに表示されるほか、その他の利点もあります。

この編集を取り消せます。 下記の差分を確認して、本当に取り消していいか検証してください。よろしければ変更を保存して取り消しを完了してください。

最新版 編集中の文章
15行目: 15行目:
  
 
=== フィボナッチ数列 ===
 
=== フィボナッチ数列 ===
* [[フィボナッチ数/Turbo Pascal]]
+
<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>
  
 
=== 階乗 ===
 
=== 階乗 ===

MonoBookへの投稿はすべて、他の投稿者によって編集、変更、除去される場合があります。 自分が書いたものが他の人に容赦なく編集されるのを望まない場合は、ここに投稿しないでください。
また、投稿するのは、自分で書いたものか、パブリック ドメインまたはそれに類するフリーな資料からの複製であることを約束してください(詳細はMonoBook:著作権を参照)。 著作権保護されている作品は、許諾なしに投稿しないでください!

このページを編集するには、下記の確認用の質問に回答してください (詳細):

取り消し 編集の仕方 (新しいウィンドウで開きます)

このページで使用されているテンプレート:

このページは 1 個の隠しカテゴリに属しています: