代码搜索：repeat
找到约 6,690 项符合「repeat」的源代码
代码结果 6,690
www.eeworm.com/read/184327/9109922
pas ac1005.pas
program tju1005;
const
maxn=50;
var
a:array[-1..maxn]of longint;
i:byte;
begin
a[1]:=1;
for i:=2 to maxn do
a[i]:=a[i-1]+a[i-3];
repeat
read(i);
writeln(a[i]);
u
www.eeworm.com/read/184327/9109943
pas ac1044.pas
program tju1044;
var
n,i:longint;
begin
read(n);
repeat
inc(i);
if (i mod 7=0) or (i mod 10=7) then begin
writeln(i);
dec(n);
end;
until n=0;
end.
www.eeworm.com/read/184327/9110078
pas ac1202.pas
program tju1202;
var
all,one:longint;
begin
repeat
read(all,one);
if (all
www.eeworm.com/read/184327/9110101
pas ac1241.pas
program tju1241;
var
n,t,i,s:longint;
begin
repeat
read(n);t:=trunc(sqrt(n));
s:=0;
for i:=1 to t do
inc(s,n div i);
writeln(s*2-t*t);
until seekeof;
end.
www.eeworm.com/read/184327/9110105
pas ac1209.pas
program tju1209;
var
a,n,d:cardinal;//d=b-a
begin
repeat
read(a);n:=a*a+1;d:=trunc(sqrt(n));
while n mod d>0 do dec(d);
writeln(d+a+a+n div d);
until seekeof;
end.
www.eeworm.com/read/184327/9110178
pas ac1206.pas
program tju1206;
var
n,m:byte;
begin
repeat
read(n,m);
writeln(power(2,n)*(m+1));
until seekeof;
end.
www.eeworm.com/read/183554/9153942
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/182827/9190084
vwf scan_led1000.sim.vwf
/*
WARNING: Do NOT edit the input and output ports in this file in a text
editor if you plan to continue editing the block that represents it in
the Block Editor! File corruption is VERY likely to
www.eeworm.com/read/379271/9203246
pas filerepeat.pas
{$+}
program test(input,output);
var
a,b: integer;
begin
a:=10;
repeat
write(a);
a:=a-1;
until a
www.eeworm.com/read/379134/9206703
h y_tab.h
typedef union
{
int vInt;
long vLong;
float vFloat;
Word vWord;
Byte *pByte;
} YYSTYPE;
extern YYSTYPE yylval;
# define NIL 257
# define IF 258
# define THEN 259
# define ELSE 260
# define