7-8函数与过程.pptVIP

7函数与过程 交大二附中　　刘峰 子程序 程序中往往需要把主要任务分成若干个子任务，每个子任务只负责一个专门的基本工作。每个子任务就是一个独立的子程序。Turbo Pascal 可以把函数和过程作为子程序调用。 函数 [例7.1]编程找出由键盘任意输入五个整数中的最大整数。 Program Exam7_1b; Var n1,n2,n3,n4,n5,t1 : integer; Function max(x1,x2 : integer) : integer; Begin If x1x2 then Max := x2 Else Max := x1; End; Begin Write(Input 5 numbers :); Readln(n1,n2,n3,n4,n5); T1 := n1; T1 := Max(t1,n2); T1 := Max(t1,n3); T1 := Max(t1,n4); T1 := Max(t1,n5); Writeln(Max number :,t1); End. Program Exam7_1a; Var n1,n2,n3,n4,n5,t1 : integer; Begin Write(Input 5 numbers : ); Readln(n1,n2,n3,n4,n5); T1 := n1; if t1 n2 then t1:=n2; if t1 n3 then t1:=n3; if t1 n4 then t1:=n4; if t1 n5 then t1:=n5; Writeln(Max number :,t1); End. 从上例看出，引入函数实际上是将一个复杂的问题划分成若干个易于处理的子问题，将编程化简的一种有效办法，而化简的方法是多种多样的 函数 自定义函数的一般格式为:function 函数名(形式参数表): 类型;?? ｛函数首部｝局部变量说明部分;begin????? 语句系列;????????????{函数体 }end; 函数的结果是一个具体的值, 在函数体中必须将所得到的运算结果赋给函数名；如例6_1 Max := x1 主程序通过调用函数得到函数的运算结果。调用函数的一般格式为:??????????? 函数名 (实在参数表) 函数不是单独的语句, 只能作为运算赋值或出现在表达式中. [例7.2]哥德巴赫猜想的命题之一是:大于6 的偶数等于两个素数之和。编程将6～100所有偶数表示成两个素数之和。 program ex7_2; var n, p, q:integer; flagp,flagq:boolean; function sushu(m:integer):boolean; var p:boolean; i:integer; begin p:=true; for i:= 2 to round(sqrt(m)) do if m mod i = 0 then p:= false; if p then sushu:=true else sushu:=false; end; begin for n:= 6 to 100 do begin if not(odd(n)) then begin p:=1; repeat p:=p+1; q:=n - p; flagp:=sushu(p); flagq:=sushu(q); until flagp and flagq; write(n, =, p, +, q); end; writeln; end; {for n} readln end. 作业： 2.如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13。试求出所有二位绝对素数。 Program ex7_3; Const NN=7; Type Arr1=array[0..30] of char; var s:arr1; k,p:integer; Function fun(s:arr1; a:char;n:integer):