中国教育在线
PROGRAM e5(inmput,output);
VAR a,b,c,s:real;
i:integer;
FUNCTION area(a1,a2,a3:real):real;
var s1,d:real;
begin
d:=(a1+a2+a3)/2;
s1:=Sqrt(d*(d-a1)*(d-a2)*(d-a3));
area:=s1;
end;
BEGIN
for i:=1 to 10 do
begin
writeln('input a,b,c');
readln(a,b,c);
if (a+b<=c) or (a+c<=b) or(b+c<=a)
then writeln('data error!')
else writeln('s=',area(a,b,c));
|
B1 |
|
B2 |
|
B3 |
|
B4 |
|
B5 |
|
B6 |
|
B7 |
END.
六、阅读下面程序，写出运行结果。
1、Program ex(input,output);
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.
输入：3 10 3 输出：___________
输入：9 6 12 输出：___________
输入：16 8 8 输出：___________
文章来源：http://hefengqinczkj.blog.edu.cn/2010/585654.html
① 凡本站注明“稿件来源：中国教育在线”的所有文字、图片和音视频稿件，版权均属本网所有，任何媒体、网站或个人未经本网协议授权不得转载、链接、转贴或以其他方式复制发表。已经本站协议授权的媒体、网站，在下载使用时必须注明“稿件来源：中国教育在线”，违者本站将依法追究责任。
② 本站注明稿件来源为其他媒体的文/图等稿件均为转载稿，本站转载出于非商业性的教育和科研之目的，并不意味着赞同其观点或证实其内容的真实性。如转载稿涉及版权等问题，请作者在两周内速来电或来函联系。
