viết chương trình tính trung b ình nhân của bốn số a b c d sử dụng chương trình con

0 bình luận về “viết chương trình tính trung b ình nhân của bốn số a b c d sử dụng chương trình con”

1. uses crt;

   var t,tb,a,b,c,d:real;

   function tbn(a,b,c,d:real):real;

   begin

   write(‘nhap a: ‘);readln(a);

   write(‘nhap b: ‘);readln(b);

   write(‘nhap c: ‘);readln(c);

   write(‘nhap d: ‘);readln(d);

   t:=a*b*c*d;

   tb:=exp(1/4*ln(t));//cong thuc tinh can bac 4 cua t

   end;

   begin

   clrscr;

   tbn(a,b,c,d);

   readln;

   end.

   Bình luận

2. uses crt;
   var a,b,c,d:longint; 
   function tbc(a,b,c,d:longint):real;
   begin
      tbc:=(a+b+c+d)/4;
   end;
   begin
   clrscr;
      write(‘a,b,c,d=’);readln(a,b,c,d);
      writeln(‘Trung binh cong: ‘,tbc(a,b,c,d));
   readln
   end.

   Bình luận