代码搜索：until
找到约 4,232 项符合「until」的源代码
代码结果 4,232
www.eeworm.com/read/458508/7295319
pas binaryinsertions.pas
for i:= 2 to n do
if a[i-1]>a[i] then
begin x:= a[i];
left:= 1;
right:= i-1;
repeat
sred:= (left+right)div 2;
if a[sred]
www.eeworm.com/read/438832/7725347
sh recurse.sh
#!/bin/bash
# recurse.sh
# 脚本能否递归地调用自己?
# 是的, 但这有什么实际的用处吗?
# (看下面的.)
RANGE=10
MAXVAL=9
i=$RANDOM
let "i %= $RANGE" # 在0到$RANGE - 1之间, 产生一个随机数.
if [ "$i" -lt "$MAXVAL" ]
then
echo "i = $i"
www.eeworm.com/read/399770/7838210
c dz60_init.c
/*******************************************************************************/
/*
Copyright (c) 2007 Freescale Semiconductor
Freescale Confidential Proprietary
\file DZ60_init.c
\brief
www.eeworm.com/read/296484/8099733
c ssp.c
/*****************************************************************************
* ssp.c: SSP C file for Philips LPC214x Family Microprocessors
*
* Copyright(C) 2006, Philips Semiconductor
www.eeworm.com/read/246404/12727282
pas ac1191.pas
program tju1191;
const
maxt=1100;
maxw=101;
var
score:array[0..maxt,-1..maxw]of longint;
w,h,a,b,c,d,m,time:longint;
begin
repeat
fillchar(score,sizeof(score),0);
read(w,h)
www.eeworm.com/read/246404/12727448
pas ac1108.pas
program tju1108;
const
maxn=100000;
var
a,b:array[0..maxn+1]of longint;
n,i,x,ans,l,r:longint;
begin
repeat
read(n);
for i:=1 to n do begin
read(x);b[x]:=i;
end;
www.eeworm.com/read/246404/12727612
pas ac1160.pas
program tju1160;
var
s:string;
c:char;
x:extended;
k,a:longint;
begin
repeat
s:='';
repeat
read(c);
if c=' ' then break;
s:=s+c;
until false;
www.eeworm.com/read/246404/12727751
pas ac1191.pas
program tju1191;
const
maxt=1100;
maxw=101;
var
score:array[0..maxt,-1..maxw]of longint;
w,h,a,b,c,d,m,time:longint;
begin
repeat
fillchar(score,sizeof(score),0);
read(w,h)
www.eeworm.com/read/246404/12727929
pas ac1108.pas
program tju1108;
const
maxn=100000;
var
a,b:array[0..maxn+1]of longint;
n,i,x,ans,l,r:longint;
begin
repeat
read(n);
for i:=1 to n do begin
read(x);b[x]:=i;
end;
www.eeworm.com/read/246404/12728077
pas ac1160.pas
program tju1160;
var
s:string;
c:char;
x:extended;
k,a:longint;
begin
repeat
s:='';
repeat
read(c);
if c=' ' then break;
s:=s+c;
until false;