計算機実験 II（塩田・森教官）　No.1

［１］　プログラミング手順を覚える。

1. エディターでソースプログラムを作成する。 名前には　.p　を習慣的に付ける。

2. コンパイル命令は

   　　　　pc（ソースプログラム名）-o（実行ファイル名）

   -o　オプションがなければ実行ファイル名は　a.out　になる。

［２］　PASCALソースプログラムの基本形は

program（プログラム名 ）;

　　（ 定数・型・変数・関数・手続き等の定義部 ）

begin

　　（ メインルーチン ）

end.

［３］　基本的なデータ型とその代入文、 画面出力命令のサンプルを作る。

それぞれのデータ型の意味と出力命令（コロンの意味など）を理解しなさい。

program sample1;

var                        { 変数宣言部 }
  a,b:integer;
  x:real;
  y:double;
  q:char;
  r:varying[10] of char;
  s:alfa;
  t:string;
  u,v,w:boolean; 

begin
  a:=2;
  writeln('a = ',a);
  writeln('a = ',a:1);
  writeln;

  a:=100000;
  x:=a;
  writeln('x = ',x);
  writeln('x = ',x:10:5);
  x:=x*a/a;
  writeln('x = ',x:10:5);
  x:=a*a/a;                { <- 「よくやる見つかりにくいバグ」の例 }
  writeln('x = ',x:10:5);
  writeln;

  a:=34;
  y:=sqrt(a);
  writeln('sqrt(',a:1,') = ',y:15:10);
  b:=trunc(y);
  writeln('trunc(sqrt(',a:1,')) = ',b:1);
  b:=round(y);
  writeln('round(sqrt(',a:1,')) = ',b:1);
  writeln;

  q:='a';
  r:=q+'bc';
  s:=r;
  t:=s+s;
  writeln(q);
  writeln(r);
  writeln(s);
  writeln(t);
  writeln(length(r):5);
  writeln(length(s):5);
  writeln(length(t):5);
  writeln;

  b:=5;
  u:=(a=b);
  v:=(a<>b);
  w:=u and v;
  writeln(u);
  writeln(v);
  writeln(w);
  writeln
end.