代码搜索：如何学习 PL？
找到约 10,000 项符合「如何学习 PL？」的源代码
代码结果 10,000
www.eeworm.com/read/186780/8910609
obj pl01.obj
www.eeworm.com/read/186780/8910637
pl0 funpara.pl0
PROGRAM SDF;
VAR
X,Y:INTEGER;
FUNCTION MC(A,B:INTEGER):INTEGER;
VAR M,C:INTEGER;
BEGIN
M:=A;
C:=B;
WRITE(A,B);
MC:=M+C;
END;
FUNCTION KFC(C,D:INTEGER):INTEGER;
VAR K,F:INTEGER;
BEG
www.eeworm.com/read/186780/8910662
pl0 funparaa.pl0
PROGRAM ARRTEST;
VAR
B:ARRAY[1..2] OF INTEGER;
FUNCTION MC(A:ARRAY OF INTEGER):INTEGER;
VAR X,Y:INTEGER;
BEGIN
WRITE(A[1],A[2]);
END;
BEGIN
B[1]:=1;B[2]:=2;
MC(B);
WRITE(B[1],B[2]);
E
www.eeworm.com/read/186780/8910664
pl0 swap.pl0
PROGRAM SSWAP;
VAR
A,B:INTEGER;
FUNCTION SWAP(VAR C,D:INTEGER):INTEGER;
VAR
TEMP:INTEGER;
BEGIN
TEMP:=C;
C:=D;
D:=TEMP;
END;
BEGIN
A:=3;
www.eeworm.com/read/186780/8910668
cpp pl01.cpp
//---------------------------------------------------------------------------
#include
#pragma hdrstop
USERES("PL01.res");
USEFORM("Unit1.cpp", Form1);
//-------------------------------
www.eeworm.com/read/186780/8910687
pl0 ric.pl0
PROGRAM RIC;
VAR
R:REAL;
I:INTEGER;
C:CHAR;
BEGIN
READ(R,I,C);
R:=R/13+12*1;
I:=I DIV 3+12 MOD 3;
WRITE(C);
C:='A';
WRITE(R,I,C);
END.
www.eeworm.com/read/186780/8910694
pl0 sort.pl0
PROGRAM SORT3;
VAR
A:ARRAY[1..10] OF REAL;
TEMP:REAL;
I,J:INTEGER;
BEGIN
FOR I:=1 TO 10 DO
READ(A[I]);
FOR I:=1 TO 10 DO
FOR J:=1 TO 10-I DO
IF A[J]
www.eeworm.com/read/186780/8910700
dsk pl01.dsk
[Closed Files]
File_0=SourceModule,'F:\TC\PL01\PL0.CPP',0,1,668,14,690,0,0
File_1=SourceModule,'D:\PROGRAM FILES\BORLAND\CBUILDER5\INCLUDE\windef.h',0,1,153,46,162,0,0
File_2=SourceModule,'D:\Progr
www.eeworm.com/read/186780/8910705
pl0 gcd.pl0
PROGRAM GMN;
VAR
F,X,Y:INTEGER;
FUNCTION GCD(M,N:INTEGER):INTEGER;
BEGIN
IF N=0 THEN GCD:=M
ELSE GCD:=GCD(N,M MOD N);
END;
BEGIN
X:=15;
Y:=10;
F:=GCD(X,Y);
WRITE(F);
END.
www.eeworm.com/read/186780/8910710
pl0 justfor.pl0
PROGRAM XYZ;
VAR
I:INTEGER;
BEGIN
FOR I:=10+3 DOWNTO -1-(-2) DO
WRITE(I);
END.