第10讲 函数和过程一.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. 说明： 1)自定义函数是一个子程序. 2)函数首部以关键字function开头。函数名是用户自定义的标识符。 3)形式参数简称形参，形参即函数的自变量。自变量的初值来源于函数调用。在函数中，形参一般格式如下： 变量名表1：类型标识符1；变量名表2：类型标识符2；…;变量名表n：类型标识符n; 4)函数体中至少有一条赋值语句： 函数名：=表达式； 或者有exit语句。// exit(s) 2、输入n，输出n以内的素数。N=1000. var n,i,f,k:longint; begin readln(n); for k:=2 to n do begin f:=0; for i:=2 to k-1 do if k mod i=0 then begin f:=1; break; end; if f=0 then writeln(k); end; end. var n,i,k:longint; function prime(k:longint):boolean; var i:longint; begin for i:=2 to k-1 do if k mod i=0 then begin prime:=false;exit;end; //exit(false); prime:=true; //exit(true); end; begin readln(n); for i:=2 to n do if prime(i) then write(i, ); end. 合理的利用函数和过程实现： var a,b:array[1..240] of integer; s1,s2:string; BEGIN readln(s1); readln(s2); if compare(s1,s2)=0 then begin writeln(0);halt;end; if compare(s1,s2)=1 then sub(s1,s2) else begin write(-);sub(s2,s1);end; END. //0：a=b；1：ab; -1:ab function compare(a,b:string):integer; begin if a=b then exit(0); if (length(a)length(b))or((length(a)=length(b))and(ab)) then exit(1) else exit(-1); end; procedure sub(x,y:string); //求x-y的值 var la,lb,k,i:integer; begin la:=length(x); lb:=length(y); fillchar(a,sizeof(a),0); fillchar(b,sizeof(b),0); for i:=1 to la do a[i]:=ord(x[la-i+1])-48; for i:=1 to lb do b[i]:=ord(y[lb-i+1])-48; k:=la; for i:=1 to k do begin if a[i]b[i] then begin a[i+1]:=a[i+1]-