代码搜索：如何学习 PL？
找到约 10,000 项符合「如何学习 PL？」的源代码
代码结果 10,000
www.eeworm.com/read/187628/8613523
res pl0.res
www.eeworm.com/read/187628/8613535
exe pl0.exe
www.eeworm.com/read/187628/8613552
cpp pl0.cpp
//---------------------------------------------------------------------------
#include
#pragma hdrstop
USERES("PL0.res");
USEFORM("Unit1.cpp", Form1);
//-------------------------------
www.eeworm.com/read/187628/8613573
pl0 max.pl0
PROGRAM MAIN;
VAR A,B,C,MAX;
BEGIN
READ(A,B,C);
IF A>B THEN
MAX:=A
ELSE MAX:=B;
IF C>MAX THEN
MAX:=C;
WRITE(MAX)
END.
www.eeworm.com/read/187628/8613599
pl0 becomes.pl0
PROGRAM BECOMES;
CONST A=10;
VAR B,C;
PROCEDURE P;
BEGIN
C+=B*A;
WRITE(C);
END;
PROCEDURE Q;
BEGIN
C-=B*A;
WRITE(C);
END;
BEGIN
READ(C);
READ(B);
WHILE B0 DO
BEGIN
www.eeworm.com/read/187628/8613614
pl0 forto.pl0
PROGRAM FORTO;
VAR A,B,C;
BEGIN
A:=88;
FOR B:=1 TO 10 DO
BEGIN
C:=A-B;
write(B);
WRITE(C);
END
END.
www.eeworm.com/read/187628/8613618
pl0 fordownto.pl0
PROGRAM FORDOWNTO;
CONST A=88;
VAR B,C;
BEGIN
FOR B:=50+1 DOWNTO 10*2 DO
BEGIN
C:=A-B;
write(B);
WRITE(C);
END
END.
www.eeworm.com/read/187628/8613631
pl0 neq.pl0
PROGRAM NEQ;
VAR A,B;
BEGIN
READ(A,B);
IF AB THEN
WRITE(B);
WRITE(A);
END.
www.eeworm.com/read/187628/8613638
pl0 array.pl0
PROGRAM ARR;
VAR A,B,C;
ARRAY D[1:10];
BEGIN
A:=88;
C:=33;
D[9]:=C;
C:=D[9];
WRITE(C);
WRITE(D[9]);
END.