for while 循环结构.ppt

《for while 循环结构.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、例1：Fibonacci数列，前几个数为0，1，1，2，3，5……，其规律是：F1＝0（n＝1）F2＝1（n＝2）Fn=Fn-1+Fn-2（n≥3）编程序求此数列的前40个数。每一行输出4个数。1、For语句1PROGRAMFibonacci(input,output);VARf3,f2,f1:real;i,n:integer;BEGINf1:=0;f2:=1;Write(f1:10:0,f2:10:0);n=2;FORi:=1TO38DOBEGINf3:=f1+f2;Write(f3:10:0);f1:=f2;f2:=f3;n:=n+1;{n是输出计数}IF(nMOD4=0)THE

2、NWriteln;END;END.例12例2：输入两个数x1，x2，判断它们是否互质数。大数X1;小数X2x1被x2整除TFX2,X1能同时被i整除非互质互质ForI:=2tondoX2DIV2nX2和X1同时被2~X2/2整除，判断是否互质非互质FT3ProgramM-P-N(input,output);Varx1,x2,t,n,i:integer;Yes:Boolean;Beginwrite(‘Inputx1,x2’);Readln(x1,x2);Ifx1

3、enyes:=falseElsebeginn:=x2div2;fori:=2tondoif(x1modi=o)and(x2modi=0)thenyes:=false；end;ifyesthenwriteln(‘theyaremutualprimenumber’)elsewriteln(‘Theyarenotmutualprimenumber’)；End.4请写出下面程序的输出内容。Programex(input,output);Varj:integer;beginForj:=1to10dowrite(‘*’)；end.5Programex(input,output);varI,j:i

4、nteger;beginForI:=1to4doForJ:=1to10dowrite(‘*’)；End.请写出下面程序的输出内容。6内循环Programex(input,output);varI,j:integer;beginForI:=1to4dobeginForJ:=1to10dowrite(‘*’)；writeln;end;End.请说出下面程序的输出内容。外循环7FOR循环的嵌套FORi:=1TO9DOBeginFORj:=1TO9DOwrite(i:6,’*’,j:2,’=‘,i*j:2);writeln;End.九九乘法表8************************

5、*练习：打印边长为n的直角三角形（其中n要求是任意的），如下图：n=5912345n=5时：i135792*i-1分析：*************************10programsd(input,output);vari,j,n:integer;beginread(n);fori:=1tondobeginforj:=1to2*i-1dowrite('*');writeln;end;end.样程：*************************11*************************练习：打印边长为n的等腰三角形（其中n要求是任意的），如下图：n=512123

6、45n=5时：43210n-ii135792*i-1*************************分析：13programsd(input,output);vari,j,n:integer;beginread(n);fori:=1tondobeginforj:=1ton-idowrite('');forj:=1to2*i-1dowrite('*');writeln;end;end.样程：*************************14*****************************************练习：打印边长为n的菱形（其中n要求是任意的）。如下图：n=

7、515-4-3-2-101234n=5时：432101234abs(i)i1357975312*(n-abs(i))-1*****************************************分析：16programsd(input,output);vari,j,n:integer;beginread(n);fori:=-(n-1)ton-1dobeginforj:=1toabs(i)dowrite('');forj:=1to2*(n-abs(i