pascal viết chương trình nhập điểm hai môn văn và toán của các bạn trong lớp.tính điểm trung bình của từng bạn ,tính điểm trung bình của môn văn và to

0 bình luận về “pascal viết chương trình nhập điểm hai môn văn và toán của các bạn trong lớp.tính điểm trung bình của từng bạn ,tính điểm trung bình của môn văn và to”

1. uses crt;

   var ban,i:integer;

   tb,t:real;

   van,toan:array[1..100] of byte;

   begin

   clrscr;

   t:=0;

   repeat

   begin

   write(‘nhap so ban hoc: ‘);readln(ban);

   for i:=1 to ban do

   begin

   write(‘nhap diem mon van cua ban ‘,i,’: ‘);readln(van[i]);

   write(‘nhap diem mon toan cua ban ‘,i,’: ‘);readln(toan[i]);

   tb:=(van[i]+toan[i])/2;

   writeln(‘diem trung binh cua ban ‘,i,’ la: ‘,tb:1:2);

   t:=t+tb;

   end;

   end;

   until ban>0;

   writeln(‘diem trung binh cua ca lop la: ‘, (t/ban):1:2);

   readln;

   end.

   Bình luận