代码搜索：until
找到约 4,232 项符合「until」的源代码
代码结果 4,232
www.eeworm.com/read/325432/13206472
txt repeat.txt
var a,sum;
begin
a:=0;
sum:=0;
repeat
begin
sum:=sum+a;
a++;
end;
until a>10;
write(sum)
end.
www.eeworm.com/read/302085/13842511
asm psmon.asm
;********************************************************************
;
; Author : ADI - Apps www.analog.com/MicroConverter
;
; Date : October 2003
;
; File :
www.eeworm.com/read/121089/6070165
asm exif.asm
page 49,132
TITLE exif - executors for IF and ELSE, DO/LOOP, and WHILE/WEND varients
;***
;exif - executors for IF and ELSE, DO/LOOP, and WHILE/WEND varients
;
; Copyright 1986, Microsoft Co
www.eeworm.com/read/121089/6070268
txt holder.txt
This is just a placeholder to save the directory until
the files get copied in during the build.
www.eeworm.com/read/121089/6070281
txt holder.txt
This is just a placeholder to save the directory until
the files get copied in during the build.
www.eeworm.com/read/100133/6273711
bas try.bas
PROGRAM ( ChainParameterString$ , DebugMode% )
a$="hello"
x%=2
do until x%=5
x% = x% +1
print x%
loop
do
x%=x%+1
print x%,x%,"To Java Programmer",a$
loop until x%=7
if x% = 1
www.eeworm.com/read/100133/6273712
bas try1.bas
PROGRAM ( ChainParameterString$ , DebugMode% )
x%=2
do until x%=5
x% = x% +1
print x%
loop
do
x%=x%+1
print x%,x%,"Hello World"
loop until x%=7
if x% = 1 then
print 21
else if x% = 2 then
www.eeworm.com/read/493718/6389283
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/493723/6389498
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/407631/11412914
txt test5.txt
program example5;
var A,B,C,D:integer;
begin
A:=5;B:=4;C:=3;D:=2;W:=1;
if W>=1 A:=B*C+B/D
else repeat A:=A+1 until A