函数var a,b,c:double;function max(x,y,z:double):double;begin if x>y then if x>z then exit(x) else exit(z) else if y>z then exit(y) else exit(z);end;begin readln(a,b,c); writeln(max(a,b,c)/(max(a+b,b,c)*max(a,b,b+c)):0:3);end.过程var a,b,c,d,e,f:double;procedure max(x,y,z:double;var g:double);begin if x>y then if x>z then g:=x else g:=z else if y>z then g:=y else g:=z;end;begin readln(a,b,c); max(a,b,c,d); max(a+b,b,c,e); max(a,b,b+c,f); writeln(d/(e*f):0:3);end.
标签：pascal,入门者,教教
版权声明：文章由 知之问问 整理收集，来源于互联网或者用户投稿，如有侵权，请联系我们，我们会立即处理。如转载请保留本文链接：https://www.zhzhwenwen.com/answer/8373.html
