PL0 language 源代码

PROGRAM EX01; VAR A,B,C; BEGIN A:=88; READ(B); C=A+B*(3+B); WRITE(C) END.

PROGRAM MAIN; VAR A,B,C; BEGIN A:=100; B:=200; C:=300; A:=C+(B-A); END.

var b; begin read(b); write(100*b) end.

var a; procedure p1; var a; procedure p2; var a; procedure p3; var a,m; begin a:=4; …

const a=9; var b,c; procedure p; const d=2; var e; begin e:=2*a+d+b; write(e+1); c:=3*e end; begin read(b); while b#0…

var a,b,c; begin read(a,b,c); while a#0 do begin if b#0 then write(a,b,c); read(a,b,c) end end.

program pl0(fa,fa1,fa2); label 99; const norw=13; txmax=100; nmax=14; al=10; amax=2047; l…

var i,s; begin i:=1; s:=0; while i

const a=10; var b,c; procedure p; var d; procedure q; const e=5; var f; procedure r; var g; b…

const m=8; var a; procedure p; var a,m; begin a:=5; m:=2; write(a*m) end; begin write(m); a:=1; call p; write(a) …