代码搜索：until
找到约 4,232 项符合「until」的源代码
代码结果 4,232
www.eeworm.com/read/100133/6273687
pas p_4_3.pas
{ program 4.3
compute h(n) = 1 + 1/2 + 1/3 +...+ 1/n }
program egrepeat(input, output);
var
n : integer;
h : real;
begin
read(n);
write(n);
h := 0;
repeat
h := h + 1
www.eeworm.com/read/374590/6324356
summary clk_8.map.summary
Analysis & Synthesis Status : Successful - Wed Oct 22 22:28:08 2008
Quartus II Version : 7.2 Build 151 09/26/2007 SJ Full Version
Revision Name : clk_8
Top-level Entity Name : clk_8
Family : Cyclo
www.eeworm.com/read/494692/6360495
rsp ucfassignpackagepinsapp_tcl.rsp
set Junk "Temp fix missing rsp by creating a dummy rsp until ADucfFile is set by projnav."
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
www.eeworm.com/read/493722/6389416
pas ac1226.pas
program ural1226;
const
letter:set of char=['A'..'Z','a'..'z'];
var
s:string;
c:char;
begin
repeat
read(c);
if c in letter then
s:=c+s
else begin
write(s,c)
www.eeworm.com/read/493722/6389444
pas ac1243.pas
program ural1243;
var
c:char;
r:byte;
begin
repeat
read(c);
r:=(r*10+ord(c)-48) mod 7;
until eoln;
writeln(r);
end.