代码搜索：until
找到约 4,232 项符合「until」的源代码
代码结果 4,232
www.eeworm.com/read/339554/12225560
pas ac1036.pas
program tju1036;
const
maxcount=1528;
var
q:array[0..maxcount]of qword;
p1,p2,p3,f1,f2,f3,r,i:integer;
a,b,c:qword;
begin
repeat
read(p1,p2,p3,i);
if p1>p2 then begin r:=p1
www.eeworm.com/read/339554/12225631
pas ac1013.pas
program tju1013;
var
s:string;
n,m,i,j,p,q:byte;
c:char;
begin
repeat
s:='';
repeat
read(c);
if c=' ' then break;
s:=s+c;
until false;
n:=length(
www.eeworm.com/read/339554/12225698
pas ac1076.pas
program tju1076;
const
m=7;
var
f:array[0..m*m+1]of byte;
p:array[0..m-1,0..m-1]of longint;
a,b,n,i,t:longint;
begin
f[1]:=1;f[2]:=1;
repeat
read(a,b,n);
if n=0 then hal
www.eeworm.com/read/231652/14224979
pas ac1050.pas
program ural1050;
const
maxl=250;
var
s:array[1..maxl]of string;
n,i,j,x,y:longint;
procedure clear;
begin
if x=0 then exit;
delete(s[x],y,1);
if x=i then dec(j);
x:
www.eeworm.com/read/231652/14225115
pas ac1303.pas
program ural1303;
const
maxm=5000;
var
l,a:array[0..maxm]of longint;
m,i,j,x,r,now,s:longint;
begin
read(m);
for i:=1 to m do
l[i]:=m;
repeat
read(i,j);
if j
www.eeworm.com/read/230283/14294291
c ssp.c
/*****************************************************************************
* ssp.c: SSP C file for Philips LPC214x Family Microprocessors
*
* Copyright(C) 2006, Philips Semiconductor
www.eeworm.com/read/229349/14343985
c ssp.c
/*****************************************************************************
* ssp.c: SSP C file for Philips LPC214x Family Microprocessors
*
* Copyright(C) 2006, Philips Semiconductor
www.eeworm.com/read/216849/14991058
txt 05.txt
var a,sum;
begin
sum:=0;
a:=1;
repeat
sum+=a;
a++;
until a>100;
write(sum);
end.
www.eeworm.com/read/216266/15021422
c ssp.c
/*****************************************************************************
* ssp.c: SSP C file for Philips LPC214x Family Microprocessors
*
* Copyright(C) 2006, Philips Semiconductor
www.eeworm.com/read/295197/8180934
plx test.plx
program
integer i,j;
begin
write 2;
i:=3;
repeat
j:=3;
while j=i then
write i
end;
i:=i+2
until i>=100
end.