代码搜索：repeat
找到约 6,690 项符合「repeat」的源代码
代码结果 6,690
www.eeworm.com/read/184327/9109653
pas ac1160.pas
program tju1160;
var
s:string;
c:char;
x:extended;
k,a:longint;
begin
repeat
s:='';
repeat
read(c);
if c=' ' then break;
s:=s+c;
until false;
www.eeworm.com/read/184327/9109690
pas ac1111.pas
program tju1111;
const
maxn=500;
var
s,e:array[1..maxn]of word;
a,p:array[1..maxn*2]of word;
n,i,j,x,y:word;
procedure qsort(s,t:word);
var
p,i,j,tmp:word;
begin
if s>=t
www.eeworm.com/read/184327/9109852
pas ac1036.pas
program tju1036;
const
maxcount=1528;
var
q:array[0..maxcount]of qword;
p1,p2,p3,f1,f2,f3,r,i:integer;
a,b,c:qword;
begin
repeat
read(p1,p2,p3,i);
if p1>p2 then begin r:=p1
www.eeworm.com/read/184327/9109909
pas ac1013.pas
program tju1013;
var
s:string;
n,m,i,j,p,q:byte;
c:char;
begin
repeat
s:='';
repeat
read(c);
if c=' ' then break;
s:=s+c;
until false;
n:=length(
www.eeworm.com/read/184327/9109957
pas ac1076.pas
program tju1076;
const
m=7;
var
f:array[0..m*m+1]of byte;
p:array[0..m-1,0..m-1]of longint;
a,b,n,i,t:longint;
begin
f[1]:=1;f[2]:=1;
repeat
read(a,b,n);
if n=0 then hal
www.eeworm.com/read/378188/9242479
in mod1b.in
10000000 10000 ! Repeat count = 10 for this kind of large loop.
www.eeworm.com/read/376846/9303698
txt 05.txt
var a,sum;
begin
sum:=0;
a:=1;
repeat
sum+=a;
a++;
until a>100;
write(sum);
end.
www.eeworm.com/read/176251/9510637
bas fortst.bas
#!/usr/local/bin/sbrun -g
print "for test"
for i=1 to 10
print i
next
print "on exit i="; i
print
print "while test"
i = 0
while ( i < 10 )
print i
i = i + 1
wend
print "on exit i="; i
print
pr
www.eeworm.com/read/164407/10110477
h sdl_keyboard.h
/*
SDL - Simple DirectMedia Layer
Copyright (C) 1997-2004 Sam Lantinga
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library Gener