02Pascal循环结构(2)

m:=m*i;

writeln(‘m=’,m);

end.

例7．计算：s=1+2+3+4+5+??+99+100。 Var

s,i:integer; begin s:=0;

for i:=1 to 100 do

s:=s+i; writeln(s); end.

For语句练习：

例8、输出1到300之间的能够被3整除的数。 program xumin21； var

m:integer； begin

for m:=1 to 300 do

if m mod 3=0 then write(m,' ')； readln； end.

例9、统计1到1000之间能够同时被3和7整除的数的个数，并计算他们的和。 program xumin22；

var m，gs，he:integer； begin

gs:=0; he:=0;

for m:=1 to 1000 do

if (m mod 3=0) and (m mod 7=0) then begin

he:=he+m； gs:=gs+1； end；

writeln('gs='，gs，' '，'he='，he)； writeln；end.

例10、编程求100到500之间有多少个其各位数字之和为5的倍数，并逐个输出。（例如，172，1+7+2=10） program xumin23；

var a，b，c，gs，m:integer； begin gs:=0;

for m:=100 to 500 do div mod begin

a:=m div 100；

b:=m mod 100 div 10；（掌握如何把某整数各数字拆开） c:=m mod 10； if (a+b+c) mod 5 =0 then begin

gs:=gs+1； write(m，' ')； end；

end； writeln('gs='，gs)； writeln； end.

例11．计算s=1+3+5+??+99。 Var

s:=0; i,m,s:integer; For i:=1 to 50 do s:=s+2*i-1; begin

writeln(s); s:=0; for i:=1 to 99 do

if i mod 2<>0 then s:=s+i; writeln(s); end.

例12．输入30个数，统计其中正数、负数、零的个数。 var i,n,zs,fs,ling:integer; Begin

zs:=0; fs:=0; ling:=0; For i:=1 to 30 do Begin

Read(n);

If n>0 then zs:=zs+1

Else if n=0 then ling:=ling+1 Else fs:=fs+1; End;

Writeln(zs:4,ling:4,fs:4); End.

当型循环（while）语句

使用for语句编写程序时，必须要事先知道循环次数，如果遇到不能确定循环次数的问题就无法使用了，当型循环语句提供了解决此类问题的方法。

while语句用于“当满足某一条件时进行循环”的情况。

while语句的语法格式：

while 布尔表达式 do

语句；

循环结束条件在进入循环体之前测试，若最初的测试值为false，则根本不进入循环体，也就是说while循环是是属于当型循环。为了能使while重复能终止，循环体中一定要有影响布尔表达式的操作，否则该循环就是一个死循环。 例1：求s＝2+6+10+??+98的值。

分析：用x代表累加的数据，x赋初值为2，每次循环后增加4。设s为累加器，取x≤98作为布尔表达式。

Program e11; Var

s,x:integer; begin

x:=2;s:=0;

while x<=98 do {当x满足条件时执行do后面的复合语句}

begin

s:=s＋x; x:=x+4; end;

writeln('s=',s); end.

例2．计算从０到某个数之间所有奇数的和。1+3+5??+66 program jishu;

var odds,limit,sum:integer; begin

readln(limit); sum:=0; odds:=1;

while odds<=limit do begin

sum:=sum+odds; odds:=odds+2；

end;

writeln(sum); end.

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库02Pascal循环结构(2)在线全文阅读。