代码搜索：repeat
找到约 6,690 项符合「repeat」的源代码
代码结果 6,690
www.eeworm.com/read/396730/8092845
pl0 le.pl0
PROGRAM CONST VAR PROCEDURE
BEGIN END GALL DO ODD
WHILE WRITE READ IF THEN ELSE
REPEAT DOWHILE RETURN
ABCDEFGHIJKLMNOPQISTUVWSYZ
ABCDEFGHIJ
ABC1234567890 A2S3
A1 Z9 C AZ
0 1 9 12 12345 123456
www.eeworm.com/read/396730/8092900
cod fh.cod
0 PROGRAM CONST VAR PROCEDURE
0 BEGIN END CALL DO ODD
0 WHILE WRITE READ IF THEN
0 + - * / = # < >
0 = := ( ) , ; [ ]
0 += ++ -= --
0 DOWHILE REPEAT ELSE RETURN
www.eeworm.com/read/295878/8135585
tm sample.tm
* TINY Compilation to TM Code
* File: SAMPLE.tm
* Standard prelude:
0: LD 6,0(0) load maxaddress from location 0
1: ST 0,0(0) clear location 0
* End of standard prelude.
2:
www.eeworm.com/read/295878/8135645
tny sample.tny
{ Sample program
in TINY language -
computes factorial
}
read x; { input an integer }
if 0 < x then { don't compute if x
www.eeworm.com/read/295753/8142248
pro chapter04mmul.pro
; Chapter04MMul.pro
PRO Chapter04MMul
yn = " "
REPEAT BEGIN
READ, PROMPT = "请输入X = ?", x
READ, PROMPT = "请输入Y = ?", y
PRINT, x , " * " , y , " = " , x * y
READ, PROM
www.eeworm.com/read/333082/12703497
cpp main.cpp
#include
#include
#define num 100
void inarry(float x[], int *n);
void findr(float x[],int n,float r[]);
void outx(float x[],int n);
void outf(float r[],int n);
void main()
www.eeworm.com/read/246404/12727403
pas ac1106.pas
program tju1106;
var
k,a,b,c:qword;
begin
repeat
read(k);
b:=1;c:=1;
repeat
a:=b;b:=c;c:=a+b;
until c>k;
writeln(a*a+b*b);
until seekeof;
end.
www.eeworm.com/read/246404/12727582
pas ac1189.pas
program tju1189;
const
maxn=500;
var
adj:array[1..maxn,1..maxn]of boolean;
route,dist,q:array[1..maxn]of word;
m,n,i,j,f,r:word;
begin
repeat
fillchar(adj,sizeof(adj),0);
f
www.eeworm.com/read/246404/12727616
pas ac1121.pas
program tju1121;
const
tail:array[0..9,0..3]of byte=((0,0,0,0),(1,1,1,1),(6,2,4,8),(1,3,9,7),
(6,4,6,4),(5,5,5,5),(6,6,6,6),(1,7,9,3),(6,8,4,2),(1,9,1,9));
var
a,b:longint;
begin
r