DELPHI语法基础 循环嵌套

delphi语法基础-循环嵌套

循环嵌套用于一个循环的循环体中又包含循环结构程序时。

例5_6、1!+2!+…+10!的值。

分析：这个问题是求1到10自然数的阶乘之和。

var s,t:longint;

i,j:integer;

begin

s:=0;

for i:=1to10do

begin

t:=1;

for j:=1to i do t:=t*j;{求N!的值t}

s:=s+t;{累加N!的值t}

end;

writeln('s=',s);

end.

以上的程序是一个二重for循环嵌套。这是比较容易想到的方法，但实际上对于求n!，可以求出的(n-1)!再乘上n即可得到，而无需重新从1再累乘到n。程序可改为：

var s,t:longint;

i:integer;

begin

S:=0;t:=1;

for i:=1to10do

begin t:=t*i;s:=s+t end;

writeln('s=',s);

end.

显然程序二的效率要比程序一高得多。程序一要进行1+2+…+10=55次循环，而程序二进行10次循环。

例5_7、上街采购，用500元钱买了90只鸡,其中母鸡一只15元，公鸡一只10元，小鸡一只5元，正好把钱买完。问母鸡、公鸡、小鸡各买多少只？

var i,j,k:integer;

begin

for i:=1to33do

for j:=1to50do

begin

k:=90-i-j;

if15*i+10*j+5*k=500then writeln(i:5,j:5,k:5);

end;

end.

例5_8、求100－200之间的所有素数。

分析：我们可对100－200之间的每一整数进行判断，判断它是否为素数，是则输出。而对于任意整数i，根据素数定义，我们从2开始到找到i的第一个约数。若找到第一个约数，则i必然不是素数。否则i为素数。

var i,x:integer;

begin

for i:=101to200do

begin

x:=2;

while(x<=trunc(sqrt(i)))and(i mod x<>0)do

begin

x:=x+1;

if x>trunc(sqrt(i))then write(i:6)

end;

end;writeln

end.

将for循环改为while循环可以减少循环次数。

例5_9、输出下面的数字图形：

1

222

33333

4444444

555555555

var row,column,n,d:integer;

begin

writeln('n=');readln(n);

d:=20;

for row:=1to n do

begin

write('':d-row);

for column:=1to2*row-1do write(row);

writeln;

end

end.

例5_10、三人对ABCD的比赛名次预测如下：

A B C D

甲13

乙14

丙32

比赛结果，三人都只说对了一个，问A、B、C、D的实际名次。

var a,b,c,d:shortint;

begin

for a:=1to4do

for b:=1to4do

if a<>b then

for c:=1to4do

if(a<>c)and(b<>c)then

begin

d:=10-a-b-c;

if(ord(a=1)+ord(b=3)=1)and(ord(c=1)+ord(d=4)=1)

and(ord(a=3)+ord(d=2)=1)

then writeln('A=',a,'B=',b,'C=',c,'D=',d)

end;

end.

五、用GOTO语句实现循环

例5_11、两个正整数的最大公约数，可用GOTO实现循环

label a;

var m,n,r:integer;

begin

write('Input m,n=');readln(m,n);

write('The greatest common divide of',m,'and',n,'is')

a：r:=m mod n;m:=n;n:=r;

if r<>0then goto a;

writeln(m);

end.

GOTO语句是无条件转向语句，GOTO语句的使用可能会使程序出现乱线团式的结构，应限制使用。Pascal语言的发明者沃思说过：“如果一个程序员在Pascal程序中使用goto语句，往往说明他还没有学会用Pascal语言来思考。”