第八讲 函数和过程一.pptVIP

* * 第八讲 函数和过程 一、自定义函数 var s,sum:longint; a,b,c,i:integer; begin readln(a,b,c); s:=1; for i:=1 to a do s:=s*i; sum:=s; s:=1; for i:=1 to b do s:=s*i; sum:=sum+s; s:=1; for i:=1 to c do s:=s*i; sum:=sum+s; writeln(sum); end. 输入a，b，c，输出a!+b!+c!的值。（a,b,c=10） 如： 输入：3 4 5 输出：150 【引例】 var a,b,c:integer; y:longing; function sum(n:integer):longint; var i:integer;s:longint; begin s:=1; for i:=1 to n do s:=s*i; sum:=s; end; begin readln(a,b,c); y:=sum(a)+sum(b)+sum(c); writeln(y); end. 说明：1)自定义函数是一个子程序.2)函数首部以关键字function开头。函数名是用户自定义的标识符。 3)形式参数简称形参，形参即函数的自变量。自变量的初值来源于函数调用。在函数中，形参一般格式如下： 变量名表1：类型标识符1；变量名表2：类型标识符2；…;变量名表n：类型标识符n;4)函数体中至少有一条赋值语句： 函数名：=表达式； 一)、函数的定义： Function 函数名（形式参数列表）：函数类型；(函数首部) 说明部分； Begin 语句组; End; 函数体 二)函数的调用（和标准函数一样）: 函数调用的一般格式： ＜函数名＞（实在参数表） 说明：①实在参数简称实参。实参的个数必须与函数说明中形参的个数一致，实参的类型与形参的类型应当一一对应。 ②调用函数时，一般的，实参必须有确定的值。 ③函数调用的步骤为：计算实参的值，“赋给”对应的形参； 例题: 1、已知三边a,b,c，求三角形的面积（一定构成三角形）. 如： 输入：3 4 5 输出：6.00 var s,a,b,c:real; function squre(x,y,z:real):real; var m:real; begin m:=(x+y+z)/2; squre:=sqrt(m*(m-x)*(m-b)*(m-c)); end; begin read(a,b,c); s:=squre(a,b,c); writeln(s:0:2); end. 2、已知凸5边形的5个顶点的坐标，求他的的面积。 输入：依次输入p1,p2,p3,p4,p5的坐标。 输出：面积（保留两位小数）。 样例输入： 0 1 2 2 0 0 0 样例输出： 4.50 算法一 var x,y:array[1..5]of integer; i:integer; s1,s2,s3:real; function area(x1,y1,x2,y2,x3,y3:integer):real; var a,b,c,d:real; begin a:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); b:=sqrt((x1-x3)*(x1-x3)+(y1-y3)*(y1-y3)); c:=sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2)); d:=(a+b+c)/2; area:=sqrt(d*(d-a)*(d-b)*(d-c)); end; begin for i:=1 to 5 do readln(x[i],y[i]); s1:=area(x[1],y[1],x[2],y[2],x[5],y[5]); s2:=area(x[2],y[2],x[3],y[3],x[5],y[5]); s3:=area(x[3],y[3],x[4],y[4],x[5],y[5]); writeln(s