Pascal语言1-3(Tp与Fp的区别、程序设计初步).ppt

说明：while语句和repeat语句都可以实现循环结构，但它们有四点不同： 【例7】:将例题6的程序用repeat语句改写。 program ex7(input,output); var ch:char; i:integer; begin i:=0; repeat read(ch); if (ch=’a’) or (ch=’A’) then i:=i+1; until ch=’#’; writeln(‘i=’,i) end. 【例8】:从n个数中挑出最大的数。 算法分析： 读入n值； 读入第1个数，赋值给变量max； 依次读入后n-1个数，与max比较，若数值大于max，则将此数值赋给max; 输出最大数。 程序代码： program ex8(input,output); var n,m,max,x:integer; begin writeln(‘input n:’); read(n); writeln(‘input n nums:’); read(max); m:=0; repeat read(x); if xmax then max:=x; m:=m+1 until m=n-1; writeln(‘the max num is:’,max) end. 三、多重循环 【例9】:求100~999中的水仙花数。（若三位数abc,abc=a3+b3+c3,则称为水仙花数。如：153，13+53+33=1+125+27=153） 算法设计：采用三重循环求解，用for循环。 程序代码： program ex9(input,output); var a,b,c:integer; begin for a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do if a*a*a+b*b*b+c*c*c=a*100+b*10+c then write(a*100+b*10+c:6); writeln end. 【例10】:试编写能打印如下输出图形的程序。 ＃＃＃＃＃＃＃＃＃＃＃ 　＃＃＃＃＃＃＃＃＃ ＃＃＃＃＃＃＃ 　 ＃＃＃＃＃ 　　 ＃＃＃ 　　　 ＃ 程序代码： program ex10(input,output); var i,j,k:integer; begin for i:=6 downto 1 do begin for j:=1 to 6-i do write(‘ ‘); for k:=2*i-1 downto 1 do write(‘#’); writeln end end. 【例11】:四个学生上地理课时，回答我国四大淡水湖的大小时这样说。甲说：“最大洞庭湖，最小洪泽湖，鄱阳湖第三”；乙说：“最大洪泽湖，最小洞庭湖，鄱阳湖第二，太湖第三”；丙说：“最小洪泽湖，洞庭湖第三”；丁说：“最大鄱阳湖，最小太湖，洪泽湖第二，洞庭湖第三”。其中每个学生仅答对一个，请编程确定湖的大小。 算法分析：这是一个逻辑判断题，每个湖的大小不一样，因此要把它们数字化，每个湖必取1~4里面的一个整数，这个整数就代表它们各自的大小，用一个四重循环，由于循环的次数已经确定，所以采用for循环。 程序代码： program ex11(input,output); var dong,hong,bo,tai:integer; begin for dong:=1 to 4 do for hong:=1 to 4 do if hongdong then for bo:=1 to 4 do if (bodong) and (bohong) then begin tai:=10-dong-hong-bo; if (ord(dong=1)+ord(hong=4)+ord(bo=3)=1) and (ord(hong=1)+ord(dong=4)+ord(bo=2)+ord(tai=3)=1) and (ord(hong=4)+ord(dong=3)=1) and (ord(bo=1)+ord(tai=4)+ord(hong=2)+ord(dong=3)=1) then writeln(‘d