sample1.pl0

来自「编译器代码」· PL0 代码 · 共 28 行

const true=1, false=0;
var i, j, k;
procedure recttri;

var temp1, temp2, temp3;
    begin
         write ( i );
         write (j);
         write(k);
         temp2:=j*j;
         temp3:=k*k;         
         while temp1+temp2 #temp3 do
                begin
                     write(false);
                      i:=i+1;
		                  temp1:=i*i;        
                end;
                write(true);
        end;

begin
i:=3;
j:=8;
k:=10;
call recttri;
write(i);
end.