簡単なプログラム（その１５）
定数と定数宣言部

kantan15のfor文では、「１０」が最終値でした。しかし、プログラムの中でこのような「１０」とか「２０」といった具体的な値を書くのはあまり良い書き方とはされてません。このように具体的な値をプログラム中に書くのではなく、定数定義部を利用して抽象化して記述する方が良い書き方だとされています。

program kantan14(input,output);
const ini = 1;
      fin = 10;
var i,sum:integer; 
begin sum := 0； 
    for i := ini to fin do 
    begin sum := sum + i; 
          writeln(i,sum) 
    end 
end.

定数定義部により、1という定数値に「ini」という名前がふられ、10という定数値には「fin」という名前がふられているわけです。定数定義部の一般形は次のとおりです。

const <定数名> = <定数>;
      .......

      <定数名> = <定数>;

定数宣言部は変数宣言部より前に位置しなければならないという規則があります。つまり、プログラムは

プログラム頭部
定数宣言部
変数宣言部
実行文部

という構造になっているわけです。

例題1.2 最大値

「五個の正の実数を順に読み込んで、それらのうちの最大値を出力せよ。」

教科書に載っているプログラムはkantan13のプログラムとほとんど同じですが、前述の定数宣言を用いている点などが異なっています。

program maximum(input,output);
    const n = 5;
    var x,max:real, i:integer;
begin
    max := 0;
    for i:=1 to n do
    begin
        read(x);
        if x>max then max:=x
    end;
    writeln;
    writeln('maximum =', max)
end.

「writeln;」は、writeln文の特殊な形で、引数の個数が0個の場合です。これは、何も出力することなしに、画面のカーソルの改行だけを行うというものです。

sino% maximum
8.3 33.5 9.01 10.34 22.57

maximum =  3.3500000000000E+0001
sino% 

が上記のプログラムの実行例です。上のプログラムから、「writeln;」を省くと、次のように動作します。

sino% pc maximum
sino% maximum
8.3 33.5 9.01 10.34 22.57
maximum =  3.3500000000000E+0001
sino%

みてわかるように、入力された実数の表示されている行と最大値が出力されている行との間になにも出力されていない行が入っているかいないかという違いがあります。

文法 実数

記号のなかで数というグループがあり、それは整数と実数のグループからなることは既に説明しました。ここではこの実数という記号について説明します。

実数という記号は次のように表わされたものです。

<符号><数字列>.<数字列>

<符号><数字列>e<符号><数字列>

<符号><数字列>.<数字列>e<符号><数字列>

但し、<符号>は、+か-か何も書かないかのいずれかです。

文法 論理型、論理値、論理演算子

論理型は判断を表現するデータの種類である。論理値は論理型の値のことで、論理値は

     true 

     false

の二つだけである。論理型の型名は

    boolean

である。

整数型や実数型と同様に、論理型においても論理型の変数を宣言することができる。

    var b1,b2:boolean;

+や-や*などを演算子と呼ぶ。論理型の式を結ぶ演算子には次のようなものがある。

    論理演算子  not and or
    関係演算子 = <> <= >= < >

not a

a	true	false
not a	false	true

a and b

a＼b	true	false
true	true	false
false	false	false

a or b

a＼b	true	false
true	true	true
false	true	false

関係演算子の値は、次のような大小関係によって決まる。

false < true

文法 整数型

整数型の定数や変数の値がとる範囲は、数学の整数とはことなり有限である。

整数型の名前は、integerである。

整数型の式を結ぶ演算子には次のようなものがあります。

• 算術演算子(単項演算子であるもの) + -
• 算術演算子(二項演算子であるもの) + - div mod
• 関係演算子 = <> <= >= <>

既定関数、もしくは、標準関数という、あらかじめ用意されている関数がPascalには定められています。整数型の式を引数とする既定関数には次のようなものがあります。

• odd(i)
• abs(i)
• sqr(i)

あとあらかじめ用意されてている定数名として、規定定数名というものがPascalにはあらかじめさだめられていますが、整数型のものとしては

• maxint

があります。これは、整数型の値のとりうる最大の値です。処理系によって異なります。

文法 実数型

実数型の定数や変数の値がとる範囲は、数学の実数とはことなり有限です。

実数型の名前は、realです。

実数型の式を結ぶ演算子には次のようなものがあります。

• 算術演算子(単項演算子であるもの) + -
• 算術演算子(二項演算子であるもの) + - /
• 関係演算子 = <> <= >= <>

既定関数、もしくは、標準関数という、あらかじめ用意されている関数がPascalには定められています。整数型の式を引数とする既定関数には次のようなものがあります。

• trunc(r) 小数点以下を切り捨てて整数(結果の型は整数型）
• round(r) 実数rにもっとも近い整数(結果の型は整数型）

以下の結果の型は実数型です。

• abs(r)
• sqr(r)
• arctan(r)
• cos(r)
• exp(r)
• ln(r)
• sin(r)
• sqrt(r)

あとあらかじめ用意されてている定数名として、規定定数名というものがPascalにはあらかじめさだめられていますが、整数型のものとしては

• maxint

があります。これは、整数型の値のとりうる最大の値です。処理系によって異なります。