代码搜索：until
找到约 4,232 项符合「until」的源代码
代码结果 4,232
www.eeworm.com/read/339554/12225322
pas ac1105.pas
program tju1105;
const
zero=1e-6;
var
a,k,l,r,t,s1,s2:extended;
begin
repeat
read(a,k);
l:=k;r:=1e10;
repeat
t:=(l+r)/2;
s1:=a*t*t/2;
s2:=(t-k)*(t-k)*(t
www.eeworm.com/read/339554/12225419
pas ac1118.pas
program tju1118;
var
n:int64;
begin
repeat
read(n);
if n>=520000000 then
writeln(n-3)
else
writeln(520005196-(519999999-n) mod 5200);
until seekeof;
end.
www.eeworm.com/read/149607/12362924
txt counter_wait.txt
-- This example shows an inefficient way of describing a counter.
-- vhdl model of a 3-state counter illustrating the use
-- of the WAIT statement to suspend a process.At each wait
-- statement th
www.eeworm.com/read/337458/12367476
pl gcd.pl
var x,y,rem;
begin
read(x);
read(y);
repeat
rem:=x-y*(x/y);
x:=y;
y:=rem
until rem=0;
write(x)
end.
www.eeworm.com/read/125994/14452873
asm adctimer.asm
;********************************************************************
;
; Author : ADI - Apps www.analog.com/MicroConverter
;
; Date : April 2002
;
; File : A
www.eeworm.com/read/124854/14533259
pl gcd.pl
var x,y,rem;
begin
read(x);
read(y);
repeat
rem:=x-y*(x/y);
x:=y;
y:=rem
until rem=0;
write(x)
end.
www.eeworm.com/read/124854/14533265
txt bbb.txt
var x,y rem;
begin
read(x)
read(y);
repeat
rem=x-y*(x/y);
x:=y;
y:=rem
until rem=0;
write(x)
end.
www.eeworm.com/read/122610/14679531
pl gcd.pl
var x,y,rem;
begin
read(x);
read(y);
repeat
rem:=x-y*(x/y);
x:=y;
y:=rem
until rem=0;
write(x)
end.
www.eeworm.com/read/119507/14827609
ll1 p.ll1
[终结符号]
0 $
300 ε
1 and
2 array
3 begin
4 case
5 const
6 div
7 do
8 downto
9 else
10 end
11 file
12 for
13 function
14 goto
15 if
16 in
17 label
18 mod
19 nil
20 not
21 of
22 or
www.eeworm.com/read/119507/14827619
fxb pascal3.fxb
[终结符号]
0 $
300 ε
1 and
2 array
3 begin
4 case
5 const
6 div
7 do
8 downto
9 else
10 end
11 file
12 for
13 function
14 goto
15 if
16 in
17 label
18 mod
19 nil
20 not
21 of
22 or