代码搜索：repeat
找到约 6,690 项符合「repeat」的源代码
代码结果 6,690
www.eeworm.com/read/158205/11638023
c datedb.c
/******************************************************************************
*
* Copyright (c) 1995-2003 PalmSource, Inc. All rights reserved.
*
* File: DateDB.c
*
* Release: Palm OS 5
www.eeworm.com/read/254787/12118833
tny t.tny
read x;
if fact :=1;
repeat
fact :=fact * x;{SA;FJ;AS}}
x :=x - 1
until x = 0;
write fact
end
www.eeworm.com/read/339554/12225263
pas ac1191.pas
program tju1191;
const
maxt=1100;
maxw=101;
var
score:array[0..maxt,-1..maxw]of longint;
w,h,a,b,c,d,m,time:longint;
begin
repeat
fillchar(score,sizeof(score),0);
read(w,h)
www.eeworm.com/read/339554/12225328
pas ac1108.pas
program tju1108;
const
maxn=100000;
var
a,b:array[0..maxn+1]of longint;
n,i,x,ans,l,r:longint;
begin
repeat
read(n);
for i:=1 to n do begin
read(x);b[x]:=i;
end;
www.eeworm.com/read/339554/12225361
pas ac1175.pas
program tju1175;
const
maxwords=10000;
var
w:array[1..maxwords]of string;
a,pre:array[1..maxwords]of word;
last:array[0..26]of word;
t,u,n,i,l,r,m:longint;
s1,s2:ansistring;
c:c
www.eeworm.com/read/339554/12225395
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/339554/12225431
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/339554/12225560
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