辽师大版信息技术九年《函数与过程》课件1.pptVIP

函数定义的一般格式:FUNCTION 函数名 (形式参数表):函数类型; {函数首部}　变量说明部分; BEGIN 函数体 END; 注意：函数体中至少应包括一个给函数名赋值的语句 ?????函数名 := 表达式?????????????????????? 函数调用的一般格式： 　函数名(实在参数表) 例1:编程找出任意输入五个整数中的最大整数。 解:设输入的五个整数为n1、n2、n3、n4、n5，为了便于处理，引入一个中间变量t1，按如下步骤处理： ①令t1=n1; ②将t1与n2比较，将两者中较大的数放入t1； ③将t1与n3比较，将两者中较大的数放入t1； ④将t1与n4比较，将两者中较大的数放入t1； ⑤将t1与n5比较，将两者中较大的数放入t1； ⑥经过以上5步处理后，t1即为5个数中最大者。 从上面规划的步骤看来，从步骤②到步骤⑤需处理的目标是相同的，因此我们可以设计一段子程序Max(x1,x2)，以找出x1和x2中最大的值并返回。 Program Exam1_a; Var n1,n2,n3,n4,n5,t1 : integer; Function max(x1,x2 : integer) : integer; Begin If x1x2 then max := x1 else max := x2; 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. 方法二： 求三个数中的最大数，定义一个专门求三个数中最大数的函数(Max)。第一次用这个函数求出n1,n2,n3三个数中的最大数t1;第二次调用这个函数求出t1与n4,n5三个数中的最大数，也就是前三个数的最大数(已在t1中)和后面二个数再求一次，就得到五个数的最大数。 Program Exam1_b; Var n1,n2,n3,n4,n5,t1: integer; Function max(x1,x2,x3: integer): integer; ｛自定义函数Max｝ Var xx: integer; ｛函数内部变量说明｝ Begin ｛函数体｝ if x1＞x2 then xx:＝x1 else xx:＝x2; if x3＞xx then xx:＝x3; max:＝xx End; Begin ｛主程序｝ write(Input 5 numbers:); readln(n1,n2,n3,n4,n5); ｛输入五个数｝ t1:＝max(n1,n2,n3); ｛用函数求n1, n2, n3的最大数｝ t1:＝max(n4,n5,t1); ｛用函数求n4, n5, t1 的最大数｝ writeln(Max number :, t1); End. 例2:编写一个求组合数 的函数,计算公式 为 (0nm) C n m m! n! (m-n)! Program Exam2; Var m,n,cmn : integer; Function fac(k : integer) : integer; Var i, t : integer; Begin t:=1; for i:=2 to k do t:=t * i; fac:=t; End;