代码搜索：until
找到约 4,232 项符合「until」的源代码
代码结果 4,232
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/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/378829/9215341
summary fir_16.map.summary
Analysis & Synthesis Status : Successful - Thu Oct 16 15:04:47 2008
Quartus II Version : 7.2 Build 151 09/26/2007 SJ Full Version
Revision Name : fir_16
Top-level Entity Name : fft_16
Family : Cyc
www.eeworm.com/read/378183/9244911
dat vb_code13b.dat
语法
----
Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]
Loop
或者可以使用下面这种语法：
Do
[statements]
[Exit Do]
[statements]
Loop [{While | Until} condition]
Do Loop 语句的
www.eeworm.com/read/377191/9291175
txt repeat.txt
const a=1.4;
var x: integer;
begin
x=a;
repeat
x:=x+1;
until x>10 ;
write("x=",x);
end.
www.eeworm.com/read/376767/9308537
summary cic.map.summary
Analysis & Synthesis Status : Successful - Tue Sep 09 09:53:55 2008
Quartus II Version : 6.1 Build 201 11/27/2006 SJ Full Version
Revision Name : CIC
Top-level Entity Name : CIC
Family : Stratix
www.eeworm.com/read/180357/9311162
lst blink.lst
BLINK PAGE 1
1 ;==================================================