资源描述：
《高中信息技术 信息学奥赛 PASCAL语言函数与过程课件2.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、本次作业：P1225.25.35.75.195.2定义一函数digit(n,k)，它回送整数n的从右边开始数第k个数字的值。例如digit(15327,4)=5Programex52(input,output);Varn,k,dig:integer;Functiondigit(n,k:integer):integer;Beginrepeatdigit:=nmod10;n:=ndiv10;k:=k-1untilk=0End;Beginwrite(‘Pleaseinputn,k:’);read(n,k);dig:=digit(n,k);writeln(‘digit(’,n
2、,‘,’,k,‘)=’,dig);End.5.2定义一函数digit(n,k)，它回送整数n的从右边开始数第k个数字的值。例如digit(15327,4)=5Programex52(input,output);Varn,k,dig:integer;Functiondigit(n,k:integer):integer;vari:integer;Beginfori:=1tokdobegindigit:=nmod10;n:=ndiv10endEnd;Beginwrite(‘Pleaseinputn,k:’);read(n,k);dig:=digit(n,k);writeln
3、(‘digit(’,n,‘,’,k,‘)=’,dig);End.5.3定义一函数check(n,d)，它回送一个布尔值。如果数字d在整数n的某位中出现，则回送true(真)，否则回送false(假)。例如check(3256,2)=true。Programex53(input,output);Varn,d,c:integer;Functioncheck(n,d:integer):integer;Beginrepeatm:=nmod10;n:=ndiv10until(m=d)or(n=0);check:=m=dEnd;Beginwrite(‘Pleaseinputn,d
4、:’);read(n,d);c:=check(n,k);writeln(‘digit(’,n,‘,’,k,‘)=’,dig);End.5.7输入a,b,c，计算m。已知max(a,b,c)m=max(a+b,b,c)×max(a,b,b+c)求三个数的最大数max(x,y,z)定义成函数和过程。Programex571(input,output);{函数}Vara,b,c,m:real;Functionmax(a,b,c:real):real;Varma:real;Beginma:=a;ifb>mathenma:=b;ifc>mathenma:=c;max:=maEn
5、d;Beginwrite(‘Pleaseinputa,b,c:’);read(a,b,c);m:=max(a,b,c)/(max(a+b,b,c)*max(a,b,b+c));writeln(‘m=’,m:5:2);End.5.7输入a,b,c，计算m。已知max(a,b,c)m=max(a+b,b,c)×max(a,b,b+c)求三个数的最大数max(x,y,z)定义成函数和过程。Programex572(input,output);{过程}Vara,b,c,m,m1,m2,m3:real;Proceduremax(a,b,c:real;varma:real);Be
6、ginma:=a;ifb>mathenma:=b;ifc>mathenma:=cEnd;Beginwrite(‘Pleaseinputa,b,c:’);read(a,b,c);max(a,b,c,m1);max(a+b,b,c,m2);max(a,b,b+c,m3);m:=m1/(m2*m3);writeln(‘m=’,m:5:2);End.函数定义的一般格式:FUNCTION<函数名>(<形式参数表>):<函数类型>;{函数首部}<变量说明部分>;BEGIN<函数体>END;注意：函数体中至少应包括一个给函数名赋值的语句<函数名>:=<表达式>函数调用的一般格式：<
7、函数名>(实在参数表)过程定义的一般格式:PROCEDURE<过程名>(<形式参数表>);｛过程首部｝<变量说明部分>；BEGIN<过程体>;END;注意：过程的结果由参数送回，可以包括多个过程调用的一般格式：<过程名>(实在参数表)形式参数的说明：1、对于值参数，调用时将实在参数的值传给形式参数，然后参加运算，形式参数的值不会影响对应实在参数的值。2、对于变量参数，调用时将实在参数的地址传给形式参数，对形式参数的运算就是对于实在参数的运算。利用变量参数可以送回过程运算的结果。例：写出下列两个程序的运行结果。programex1;programex2
