代码搜索：while
找到约 10,000 项符合「while」的源代码
代码结果 10,000
www.eeworm.com/read/131315/5944136
p cntchars.p
program countcharacters(input,output);
var ch: char;
c0,c1,c2,c3,c4: integer; {counters}
begin writeln(wallclock); { linelimit(output, -1); }
c0 := 0; c1 := 0; c2 := 0; c3 := 0; c4 := 0;
wh
www.eeworm.com/read/131315/5944156
p piextn.p
program t(output, foo);
#include "unixio.i"
var
foo :text;
at :fileptr;
begin
rewrite(foo);
writeln(foo, 'abc');
reset(foo);
while not eof(foo) do begin
write(foo^);
get(foo)
end;
writeln;
APPEN
www.eeworm.com/read/131315/5944168
p rdpal.p
program bench3(input, output);
const max=100;
var i,len: integer; inline: packed array[1..max] of char; palind: Boolean;
begin
while not eof do begin
len := 0;
while not eoln do
beg
www.eeworm.com/read/131315/5944170
p quicksort.p
program quicksort(output);
const n = 100;
var i,z: integer;
a: array[1..n] of integer;
procedure sort(l,r: integer);
var i,j,x,w: integer;
begin {quicksort with recursion on both pa
www.eeworm.com/read/131315/5944175
p peter.p
program t( output , input );
begin
while not eof do begin
while not eoln do begin
if input^ in [ '+' , '-' , '*' , '/' , '%' ] then
case input ^ of
'+': writeln( 'plus' );
'-':
www.eeworm.com/read/131315/5944185
in pretty.in
program bench3(input, output);
const max=100;
var i,len: integer; inline: packed array[1..max] of char; palind: Boolean;
begin
while not eof do begin
len := 0;
while not eoln do
beg
www.eeworm.com/read/131315/5944191
in t16.in
program Main(input, output);
procedure copy(var inp, out: text);
var
c: char;
begin
while not eof(inp) do
begin
while not eoln(inp) do
begin
c := inp^;
out^ := c;
put(out);
www.eeworm.com/read/131315/5944198
in cntchars.in
program countcharacters(input,output);
var ch: char;
c0,c1,c2,c3,c4: integer; {counters}
begin writeln(wallclock); { linelimit(output, -1); }
c0 := 0; c1 := 0; c2 := 0; c3 := 0; c4 := 0;
wh
www.eeworm.com/read/131315/5944318
p kat3.p
program kat(input, output);
var
ch: char;
i: integer;
name: packed array [1..100] of char;
begin
i := 1;
repeat
if i < argc then begin
argv(i, name);
www.eeworm.com/read/131315/5944324
p copydata.p
program copydata(data, output);
var
ch: char;
data: text;
begin
reset(data);
while not eof(data) do begin
while not eoln(data) do begin
read(data, ch);
write(ch)
end;
read