代码搜索结果
找到约 10,000 项符合
0 的代码
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.
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.
neq.pl0
PROGRAM NEQ;
VAR A,B;
BEGIN
READ(A,B);
IF AB THEN
WRITE(B);
WRITE(A);
END.
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.
plusminus.pl0
PROGRAM PLUSMINUS;
VAR A,B,C,D;
BEGIN
A:=88;
C:=33;
C:=++C-A--;
WRITE(A);
WRITE(C)
END.
else.pl0
PROGRAM EL;
VAR A,B,C;
BEGIN
A:=88;
READ(B);
IF B=0 THEN
C:=A+B
ELSE
C:=A*B;
WRITE(C)
END.
newtest.pl0
PROGRAM EX01;
VAR A,B,C;
BEGIN
A:=88;
READ(B,A);
C:=A-B;
A--;
IF B0 THEN
C-=A+B
ELSE
C:=A*B;
WRITE(A)
END.
popprnt0.c
/*---------------------------------------------------------------
POPPRNT0.C -- Popup Editor Printing Functions (dummy version)
---------------------------------------------------------------*/