聪明人的游戏 上课稿第20课200.pptVIP

算出团体总分 计算团体总分 及时充电（函数） 函数调用 格式：函数名(实在参数表) function fac(n:integer):integer; var a,b:integer; begin b:=1; for a:=2 to n do b:=a*b; fac:=b; end; begin writeln(fac(5)); end. 探索奥秘 如果a小于b，试求出正整数a和b之间的完全数。(完全数是指小于该数本身的因子之和等于它本身的数。如6=1+2+3，6是一个完全数) 展示实力（阅读程序） 展示实 力(完善程序) 展示实力（编写程序） 我们数学把从1开始的连续自然数相乘叫做阶乘。如1*2*3*4*5称作5的阶乘，记为5！你能写一个自定义函数来求n！吗？调用这个函数求出3！+5！+8！+10！值是多少？ * * 各班积分表 … … … … … … 16 26 26 502 … 23 20 15 501 … 跳远 100米 跳高 得分 班级 Program P1_20_1； var a,b,c,i,sum:integer; function fac(x,y,z:integer):integer; begin fac:x+y+z; end; begin for i:=1 to 5 do begin readln(a,b,c); sum:=fac(a,b,c); writeln (sum:5); end; end. 1、子程序 在程序设计中，功能相同的程序段在程序的不同地方反复出现或某段程序的功能相对独立。我们把这个程序段独立出来，给个名字代替。这样的程序段称之为子程序。 Pascal 中子程序有两种形式：函数和过程。 2、函数 Pascal中函数分为标准函数和自定义函数。 标准函数：系统本身提供的函数，在程序中可以直接引用。 调用格式： 函数名 (实在参数) 自定义函数： 1、自定义函数要先说明后使用。 格式： function 函数名(形式参数表):类型; {函数首部} 局部变量说明部分; begin 语句系列; {函数体} end; 2、调用函数，函数名后面圆括号内的参数必须有确定的值，称为实在参数。函数中的形式参数接受调用函数时所传入的值，用来参与函数中的运算。 3、函数的结果是一个具体的值，在函数体中必须将所得到的运算结果赋值给函数名；主程序通过调用函数得到函数的运算结果。函数不能单独书写，只能作为一个数来处理。 调用函数 参数传递 返回函数值 实在参数 形式参数 Program P1_20_2； var i,a,b:integer; function perfect(x:integer):boolean; var k,sum:integer; begin sum:=1; for k:=2 to x div 2 do if x mod k =0 then sum:=sun:+k; perfect:=(x=sum); end; begin{主程序} write(‘Input a,b:’); repeat readln(a,b); until (a0) and (b0) and (ab); writeln(‘List perfect:’); for i:=a to b do if perfect(i) then writeln(i); end. var a,b:integer; function p20(x:integer):integer; begin b:=b-x; p20:=sqr(x); end; begin b:=0; a:=p20(10); a:=a*p20(b); writeln(a:5,b:5); b:=10;a:=p20(10); a:=a*p20(b); writeln(a:5,b:5); end. var x,y,s1,s2,s:inte