ptest1.pas.bak

来自「本Delphi项目文件为本人在一个Pascal-s（子集）源代码基础上完成的。本」· BAK 代码 · 共 37 行

{$+}
program test0(output);

const ten=10; plus='+';


type row=array[1..ten] of real;
  complex = record re,im:real end;

var  i,j:integer;
     P:boolean;
     z: complex;
     matrix: array [-3..+3] of row;
     pattern: array [1..5,1..5] of char;
    procedure dummy(var i:integer; var z:complex);
       var u,v: row;
           h1,h2: record c:complex; r:row
                  end;
       function null(x,y:real;z:complex):boolean;
       var a:array ['a'..'z'] of complex;
           u1: char;
       begin  while x<y do x:= x+1.0;
         null:=x=y;
       end;
    begin p:=null(h1.c.re,h2.c.im,z);
    end ;
begin   i:= 85; j:= 51;
        repeat
            if i > j then i:= i - j else j:= j-i
        until i=j;
        writeln(i)
end.