{ s6_1.p ( PASCAL講座 sample program )
include のサンプル：複素数の計算

コンパイル命令は
gpc s6_1.p -o s6_1

実行命令は
s6_1
}

program s6_1;   
  
#include "complex.p"

var
  n:char;
  a,b,c,d:complex;
  
begin
  writeln('複素数の計算をします。');
  n:='Y';
  repeat
    a:=randomcomplex(5);
    b:=randomcomplex(5);
    write(' a          = '); compprintln(a);
    write(' b          = '); compprintln(b);
    write(' a + b      = '); compprintln(compadd(a,b));
    write(' a - b      = '); compprintln(compsub(a,b));
    write(' a * b      = '); compprintln(compmul(a,b));
    c:=compdiv(a,b);
    write(' a / b      = '); compprintln(c);
    d:=compmul(c,b);
    write('(a / b) * b = '); compprintln(d);
    writeln;
    write('Next ? ( Y or N ) '); readln(n);
  until ((n='N')or(n='n'));
end.