Pascal中自定義函數

Pascal中自定義函數

http://gaokao.eol.cn/　　來源：　　作者：信息女士　　2010-09-21　　字體：大　中　小

 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));

　　　　　　　 end;

　　　　　 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

掌上高招服務號

中國教育在線高考訂閱號