Pascal语言基础..ppt

repeat语句：（“直到型循环”）：反复执行循环体直到条件满足为止。 格式：repeat 语句1； 语句2； 语句3； ··· 语句n until 布尔表达式； 功能：执行过程：先执行指定的语句序列，然后判别表达式。 3． repeat语句：（“直到型循环”） 说明：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. 本讲要点 Free Pascal与Turbo Pascal的区别 Pascal的程序结构 基本符号、保留字、标识符 数据类型、常量、变量及说明方法 函数与表达式 三种基本的程序结构 顺序结构 分支结构 循环结构 请讲例题上机练习 本讲结束 谢谢合作 程序的三种基本结构 一、顺序结构 二、选择结构 (if 、case) 三、循环结构(for、while、repeat) 例：输入三角形的三条边a，b，c，输出三角形的面积。（a，b，c是正整数100，满足三角形条件） 一、顺序结构 var a,b,c:integer; p,s:real; begin readln(a,b,c); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln(s:0:2); end. 程序从第一句开始，依次顺序执行语句直到结束，中间无分支和循环，这种程序结构称为顺序结构 Readln(a,b,c) 读入边长 求p 求s 输出面积s 流程图 上机练习1 var　a,b,t:integer;begin　 read(a,b);