Viết chương trình tính trung bình của n số thực được nhập từ bàn phím.(2 cách: dùng for, dùng while)

0 bình luận về “Viết chương trình tính trung bình của n số thực được nhập từ bàn phím.(2 cách: dùng for, dùng while)”

1. While .. do

   Program BTH;
   uses crt;
   var s:real;
   n,i:longint;
   a:array[1..100000] of real;
   begin
           clrscr;
           write(‘Nhap so luong phan tu cua mang: ‘);readln(n);
           s:=0;
           i:=1;
           while i<=n do
           begin
                   write(‘a[‘,i,’]: ‘); readln(a[i]);
                   s:=s+a[i];
                   i:=i+1;
           end;
           writeln(‘Trung binh cong la: ‘,s/n:4:2);
           readln;
   end.

   For..do

   Program BTH;
   uses crt;
   var s:real;
   n,i:longint;
   a:array[1..100000] of real;
   begin
           clrscr;
           write(‘Nhap so luong phan tu cua mang: ‘); readln(n);
           s:=0;
           for i:=1 to n do
           begin
                   write(‘a[‘,i,’]: ‘); readln(a[i]);
                   s:=s+a[i];
           end;
           writeln(‘Trung binh cong la: ‘,s/n:4:2);
           readln;
   end.

   Bình luận

2. sử dụng while…do:

   program oken;
   uses crt;
   var sum:real;
       n,i:longint;
       a: array[1..1000] of real;
   begin
           clrscr;
           write(‘nhap so so phan tu cua mang: ‘); readln(n);
           sum:=0; i:=1;
           while i<=n do
                   begin
                           write(‘a[‘,i,’]: ‘); readln(a[i]);
                           sum:=sum+a[i];
                           i:=i+1;
                   end;
           writeln(‘TBC=’,sum/n:0:3);
           readln;
   end.

   Sử dụng For…to…do:

   program oken;
   uses crt;
   var sum:real;
       n,i:longint;
       a: array[1..1000] of real;
   begin
           clrscr;
           write(‘nhap so so phan tu cua mang: ‘); readln(n);
           sum:=0;
           for i:=1 to n do
                   begin
                           write(‘a[‘,i,’]: ‘); readln(a[i]);
                           sum:=sum+a[i];
                   end;
           writeln(‘TBC=’,sum/n:0:3);
           readln;
   end.

   Bình luận