Viết chương trình nhập điểm của 10 học sinh. (Làm chung 1 chương trình) a) Tính tổng điểm 10 hs trên. b) Tính điểm trung bình 10 hs trên c) Đếm số học

0 bình luận về “Viết chương trình nhập điểm của 10 học sinh. (Làm chung 1 chương trình) a) Tính tổng điểm 10 hs trên. b) Tính điểm trung bình 10 hs trên c) Đếm số học”

1. Program BTT;
   Uses crt;
   Var A: array[1..10] of real;
       i,d,g: byte;
       s,tb: real;
   Begin
           Clrscr;
           s:=0; d:=0; g:=0;
           For i:=1 to 10 do
           Begin
                   Write(‘Nhap diem hoc sinh thu ‘,i,’: ‘); Readln(A[i]);
                   s:=s+A[i];
                   If A[i]>5 then inc(d);
                   If A[i]>=8 then inc(g);
           End;

           tb:=s/10;

           Writeln(‘Tong diem: ‘,s:0:2);
           Writeln(‘TBC: ‘,tb:0:2);
           Writeln(‘Co ‘,d,’ hoc sinh tren 5 diem’);
           Write(‘Co ‘,g,’ hoc sinh gioi’);
           Readln
   End.

   Bình luận

2. program Min;
   uses crt;
   var A:array[1..10] of real;
       tong,tb:real;
       i,dem:integer;
   begin 
      clrscr;
      tong:=0; tb:=0;
      for i:=1 to 10 do 
      begin
         write(‘Nhap diem cua hoc sinh ‘,i,’: ‘);
         readln(A[i]);
      end;
      for i:=1 to 10 do
      begin
         tong:=tong+A[i];
         if A[i]>5 then inc(dem);
      end;
      tb:=tong/10;
      writeln(‘ ‘);
      writeln(‘Tong diem cua 10 hs la: ‘,tong:4:2);
      writeln(‘Diem trung binh cua 10 hs la: ‘,tb:4:2);
      writeln(‘So hoc sinh tren 5 diem la: ‘,dem);
      readln
   end.
      

   Đây là code chương trình hoàn thiện cho ba câu a, b, c. Còn câu d thì mình không rõ lắm, như thế nào thì là học sinh giỏi, điều kiện là gì?

   Bình luận