谁知道郑启华的PASCAL程序设计第五章习题答案用函数解 输入a,b,c,计算M.M=max(a,b,c)/(max(a,b,c)*max(a,b,c)) 将求三个数的最大数max(x,y,z)

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/05 03:34:29
谁知道郑启华的PASCAL程序设计第五章习题答案用函数解 输入a,b,c,计算M.M=max(a,b,c)/(max(a,b,c)*max(a,b,c)) 将求三个数的最大数max(x,y,z)

谁知道郑启华的PASCAL程序设计第五章习题答案用函数解 输入a,b,c,计算M.M=max(a,b,c)/(max(a,b,c)*max(a,b,c)) 将求三个数的最大数max(x,y,z)
谁知道郑启华的PASCAL程序设计第五章习题答案
用函数解 输入a,b,c,计算M.M=max(a,b,c)/(max(a,b,c)*max(a,b,c)) 将求三个数的最大数max(x,y,z)

谁知道郑启华的PASCAL程序设计第五章习题答案用函数解 输入a,b,c,计算M.M=max(a,b,c)/(max(a,b,c)*max(a,b,c)) 将求三个数的最大数max(x,y,z)
5.7 输入a,b,c,计算m.已知: m=max(a,b,c)/(max(a+b,b,c)*max(a,b,b+c) 将求三个数的最大数max(x,y,z)定义成函数和过程两种方法作此题. 用函数解题: program ex5_71; var a,b,c,m:real; function max(a,b,c:real):real; var ma:real; begin ma:=a; if b>ma then ma:=b; if c>ma then ma:=c; max:=ma; end; begin read(a,b,c); writeln('a=',a,'b=',b,'c=',c); m:=max(a,b,c)/(max(a+b,b,c)*max(a,b,b+c); writeln('m=',m); end.