《函数与过程》ppt课件1九年级信息技术.ppt

函数定义的一般格式: 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 x1x2 then xx:x1 else xx:x2; if x3xx 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),,科目一考试 驾驶员理论考试 科目二考试 场地考试 科目三考试 实际道路考试 科目四考试 安全文明驾驶常识考试 2016年驾驶员试题网学车试题大全,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; Begin write(Please input m,n:); read (m,n); if (n=0) and (nm) then begin cmn:= fac(m) div (fac(n)*fac(m-n); writeln( c( ,m, ,n, )=, cmn ) end else writeln(Input error!) End.,过程定义的一般格式: PROCEDURE (); 过程首部 ； BEGIN ; END; 注意：过程的结果由参数送回，可以包括多个,过程调用的一般格式： (实在参数表),例3:输入三个不同的整数,按由小到大排序 。,Program exam3; Var a,b,c: integer; Procedure swap (VAR x,y:integer); 自定义过程 Var t:integer; Begin 过程体 t:=x; x:=y; y:=t 交换两个变量的值 End; Begin 主程序 write(input a,b,c=); readln(a,b,c); if ab then swap (a,b); 调用自定义过程 if ac then swap (a,c); if bc fhen swap (b,c); writeln (a:6, b:6, c:6); End.,形式参数的说明： 1、对于值参数，调用时将实在参数的值传给形式参数，然后参加运算，形式参数的值不会影响对应实在参数的值。 2、对于变量参数，在调用时将实在参数的地址传给形式参数，对形式参数的运算就是对于实在参数的运算。利用变量参数可以送回过程运算的结果。,例4 写出下列两个程序的运行结果。 program ex1; program ex2; var a,b:integer; var a,b:integer; procedure swap(x,y:integer); procedure swap(Var x,y:integer) ; var t:integer; var t:integer; begin begin t:=x;x:=y;y:=t; t:=x;x:=y;y:=t; end; end; begin begin a:=1;b:=2; a:=1;b:=2; writeln(a:3,b:3); writeln(a:3,b:3); swap(a,b); swap(a,b); writeln(a:3,b:3); writeln(a:3,b:3); end. end.,1 2 1 2 1 2 2 1,变量的作用域： 1、局部量：在子程序内部作用的变量 ，局部变量的作用域就是其所在的子程序。 2、全局量：主程序的说明部分中说明的量。全程量的作用域分两种情况： 当全程量和局部量不同名时，其作用域是整个程序范围（自定义起直到主程序结束）。 当全程量和局部量同名时，全程量的作用域不包含局部量的作用域。,分析该程序，写出运行结果 Program ex4; Var x,u: integer; Procedure change (x:integer; VAR y:integer); Begin x:=x+1; y:=y+1; writeln(x,y) End; Begin x:=1; u:=1; writeln(x,u); change(x,u); writeln (x,u) End.,x u 1 1 2 2 1 2,分析该程序，写出运行结果 Program ex5; Var x,y: integer; Procedure swap (x