代码搜索：while
找到约 10,000 项符合「while」的源代码
代码结果 10,000
www.eeworm.com/read/451329/7467214
c no_cont.c
#include
void main()
{
int counter;
printf("\nEven values\n");
for (counter = 1; counter
www.eeworm.com/read/451329/7467234
c chrcnt.c
int chrcnt(const char *string, int letter)
{
int count = 0;
while (*string)
if (*string == letter)
count++;
return(count);
}
www.eeworm.com/read/450999/7473919
pas a20.pas
var x,n,k:integer;
begin
write('x=');readln(x);
write('n=');readln(n);
k:=1;
while n>0 do
if n mod 2=0 then begin
x:=x*x;
n:=n div 2;
www.eeworm.com/read/450999/7473956
pas a63.pas
var f,g:text;
n,x,min,max:integer;
begin
assign(f,'numere.in');reset(f);
assign(g,'numere.out');rewrite(g);
while not eof(f) do begin
read(f,x);
min:
www.eeworm.com/read/450999/7473966
pas teza3fis.pas
program teza3;
var f:text;
v:array[1..100] of integer;
n,i,a,r,b,p:integer;
begin
assign(f, 'pal.in');
reset(f);
while not eof(f) do
begin
n:=0;
www.eeworm.com/read/450999/7473980
pas roreuniu.pas
type pnod=^nod;
nod=record
inf:integer;
leg:pnod;
end;
var p1,p2,p3:pnod;
f:text;
procedure creare(var p:pnod);
var nou,ultim:pnod;
begin
while not eoln(f) do
if p=nil then begin
www.eeworm.com/read/450999/7473996
pas scriere.pas
program scriere;
var n,i,r:integer;
begin
write('n=');readln(n);
i:=0;
while n0 do
begin
r:=n mod 2;
if r=1 then i:=i+1;
n:=n div 2;
www.eeworm.com/read/450999/7474021
pas rofish1.pas
var f:text;
nr,n :integer;
begin
assign(f,'f1.txt');
reset(f);
while not eof(f) do
begin
nr:=nr+1;
while not eoln(f) do
www.eeworm.com/read/450999/7474022
pas graff.pas
var a:array[1..50,1..50] of integer;
n,i,j,p,q,u:integer;
c,viz:array[1..100] of integer;
f:text;
ok:boolean;
begin
assign(f,'graf.txt');
reset(f);
readln(f,n);
while not eof(