代码搜索：repeat
找到约 6,690 项符合「repeat」的源代码
代码结果 6,690
www.eeworm.com/read/458508/7295320
pas quicksort.pas
function part(l, r: integer) : integer;
var
v, i, j, b: integer;
begin
v := a[r];
I := l - 1;
j := r;
repeat
repeat dec(j) until (a[j]
www.eeworm.com/read/456956/7336108
txt 311.txt
domains
state=symbol
database-mydatabase
open(state,integer)
closed(integer,state,integer)
tes(state)
open1(state,integer)
min(state,integer)
mark(state)
fail_
predicates
www.eeworm.com/read/456920/7337005
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/452228/7444498
vwf miaobiao.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/452209/7445645
ps snowflak.ps
%!
%% Elizabeth D. Zwicky
%% zwicky@erg.sri.com
%% multiflake
/newflake
{/seed usertime def
seed srand
/strokecolor [rand 99 mod 100 div
rand 99 mod 100 div
100 rand 22 mo
www.eeworm.com/read/452209/7445685
ps gs_cmap.ps
% Copyright (C) 1995 Aladdin Enterprises. All rights reserved.
%
% This file is part of Aladdin Ghostscript.
%
% Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND. No author
www.eeworm.com/read/452050/7451136
pas 2261082_re.pas
program A_funny_game;
var n: Integer;
begin
Repeat
Read(n);
if (n=0) then Exit;
if (n>=3) then Write('Bob');
if (n
www.eeworm.com/read/452050/7451137
pas 2261101_ac_0ms_4k.pas
program A_funny_game;
var n: longInt;
begin
Repeat
Read(n);
if (n=0) then Exit;
if (n>=3) then Writeln('Bob');
if (n
www.eeworm.com/read/450999/7473908
pas exponent.pas
program exponent;
var n,p,i,t,k :integer;
begin
write('n=');readln(n);
write('p=');readln(p);
for i:=1 to n do
begin
k:=i;
repeat