「Turbo Pascal 5.5」の版間の差分

提供: MonoBook
ナビゲーションに移動 検索に移動
imported>Administrator
(ページの作成:「'''Turbo Pascal 5.5'''は、1989年5月2日に発売したTurbo Pascalシリーズのプログラミング言語および統合開発環境である。現...」)
 
imported>Administrator
14行目: 14行目:
  
 
=== フィボナッチ数列 ===
 
=== フィボナッチ数列 ===
<source lang="delphi">
+
* [[フィボナッチ数/Turbo Pascal]]
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>
 
  
 
=== 階乗 ===
 
=== 階乗 ===

2012年4月26日 (木) 10:56時点における版

Turbo Pascal 5.5は、1989年5月2日に発売したTurbo Pascalシリーズのプログラミング言語および統合開発環境である。現在ではフリーソフトとして配布されている[1]

クラスをはじめ、静的オブジェクト動的オブジェクトコンストラクタデストラクタ継承などの、数あるオブジェクト指向の構成要素のうち基本的な概念を一通りサポートした、後のDelphiC#へと続く系譜の最初のバージョンである。

使用例

hello world

program helloworld;

begin
    writeln('hello, world');
end.

フィボナッチ数列

階乗

program factorial;

function fact(n: integer): longint;
begin
    if (n = 0) then
        fact := 1
    else
        fact := n * fact(n - 1);
end;

var
    n: integer;

begin
    for n := 0 to 16 do
        writeln(n, '! = ', fact(n));
end.

関連項目

参考文献

外部リンク