Viết chương trình tính TB cộng của n số thực (vs n là các số thực đc nhập từ bàn phím ) thực hiện bằng câu lệnh while …do

0 bình luận về “Viết chương trình tính TB cộng của n số thực (vs n là các số thực đc nhập từ bàn phím ) thực hiện bằng câu lệnh while …do”

1. uses crt;

   var i,n:integer;

         tb:real;

         a: array [1..10000] of real;

   begin

   clrscr;

   write(‘Nhap n: ‘);readln(n);

   tb:=0;

   writeln(‘Nhap ‘,n,’ so thuc:’); i:= 1;

   while i<= n do

   begin 

   write(‘so thu ‘,i,’: ‘);readln(a[i]);

   tb:=tb+a[i];

   i:=i+1;

   end;

   tb:=tb/n;

   writeln(‘TBC cua ‘,n,’ so thuc la : ‘,tb:0:4);

   readln;

   end.

   Bình luận

2. uses crt;
   var i,n : integer;
   a : array[1..100] of real;
   t:real;
   begin clrscr;
   write(‘Nhap n:’); readln(n);
   for i:=1 to n do begin write(‘Nhap a[‘,i,’]=’); readln(a[i]);
   end;
   for i:=1 to n do t:=t+a[i];
   write(‘Trung binh cong cua n so thuc la :’, t/n :3:2);
   readln
   end.

   Bình luận