PL0+language 源代码
汇集 PL0+language 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
var a; procedure p; var a; begin read(a); if a#0 then call p; write(a) end; begin read(a); write(a); call p; w…
var m,n; procedure p; var i; begin i:=n; if n>1 then begin n:=n-1; call p end; m:=m*i end; begin m:=1; read(…
const a=10; var b,c; procedure p; begin c:=b+a end; begin read(b); while b#0 do begin call p; writ…
#define norw 14 #define txmax 100 #define nmax 14 #define al 10 #define amax 2047 #define levmax 3 #define cxmax 200 /* enu…
PROGRAM XYZ; VAR I:INTEGER; BEGIN FOR I:=10+3 DOWNTO 1+3 DO WRITE(I); END.
PROGRAM P1; VAR I,MAX:INTEGER; X,Y:INTEGER; BEGIN READ(I,X,Y); IF I>X THEN MAX:=I ELSE MAX:=X; IF …
PROGRAM XYZ; VAR I:INTEGER; BEGIN FOR I:=10+3 DOWNTO 1+3 DO WRITE(I); END.
PROGRAM XYZ; VAR TEST1,TEST2,TEST3,TEST4:INTEGER; BEGIN TEST1:=10; TEST2:=33; TEST3+=TEST1*12+3; TEST4-=TEST2 DIV 12 +1…