代码搜索：repeat
找到约 6,690 项符合「repeat」的源代码
代码结果 6,690
www.eeworm.com/read/471563/6308581
asm w502.asm
;教材P136 循环控制伪指令示例
.model small
.stack
.code
.startup
;****************************
;1－100求和，用＂当型循环＂
;****************************
xor ax,ax
www.eeworm.com/read/494039/6386499
txt pv操作.txt
读者写者问题，共享原则如下：1、读/写互斥访问；2、写/写互斥访问；3、允许多个读者同时对文件进行访问。
（1）读者优先
semaphore rmutex=1,rwmutex=1;
int count=0;
Cobegin
reader: writer:
be
www.eeworm.com/read/493718/6389249
pas ac1011.pas
program ural1011;
var
p,q:real;
a,b,c:integer;
begin
readln(p,q);
a:=round(p*100);b:=round(q*100);
c:=1;
repeat
inc(c);
until (c*a div 10000
www.eeworm.com/read/493718/6389299
pas ac1086.pas
program ural1086;
const
max=15000;
var
p:array[1..max]of longint;
k,i,a:integer;
x:longint;
function prime(x:longint):boolean;
var
i:integer;
begin
i:=0;
repeat
www.eeworm.com/read/493718/6389314
pas ac1083.pas
program ural1083;
var
n,k:shortint;
f:longint;
s:string;
begin
read(n);
readln(s);
k:=length(s)-1;
f:=1;
repeat
f:=f*n;
dec(n,k);
until n
www.eeworm.com/read/493719/6389321
pas ac1180.pas
program ural1180;
var
c:char;
m:byte;
begin
m:=0;
repeat
read(c);
m:=(m+ord(c)) mod 3;
until eoln;
if m=0 then
writeln(2)
else begin
writeln(1);
writeln
www.eeworm.com/read/493719/6389334
pas ac1176.pas
program ural1176;
const
maxn=1000;
maxl=32000;
e:array[0..7]of byte=(1,2,4,8,16,32,64,128);
var
ad:array[0..maxn*maxn shr 3-1]of byte;
now:array[1..maxn]of word;
s,r:array[0..maxl+
www.eeworm.com/read/493719/6389381
pas ac1113.pas
program ural1113;
var
n,ans:real;
m:longint;
i:integer;
begin
readln(n,m);
ans:=0;i:=1;
repeat
n:=n-m/(i*2-1);
ans:=ans+m;
inc(i);
until n