Viết chương trình nhập điểm của các bạn trong lớp sau đó in ra màn hình số bạn đạt điểm giỏi, khá, trung bình, kém. Giỏi: >_8đ Khá: 6.5-7.9đ Trung bìn

0 bình luận về “Viết chương trình nhập điểm của các bạn trong lớp sau đó in ra màn hình số bạn đạt điểm giỏi, khá, trung bình, kém. Giỏi: >_8đ Khá: 6.5-7.9đ Trung bìn”

1. Program Phanloai;

   Uses crt;

   Var i, n, gioi, kha, trungbinh, kem: integer;

   A:array [1..100] of real;

   Begin 

   clrscr;

   writeln (‘Nhap so cac ban trong lop,n=’);

   readln (n);

   writeln (‘Nhap diem’);

   For i:=1 to n do begin write (i,’.’);

   readln (a[i]);end;

   gioi:=0; kha:=0; trungbinh:=0; Kem:=0;

   For i:=1 to n do

   begin

   If a[i]>=8.0 then gioi:=gioi+1;

   If a[i]<5.0 then kem:=kem+1;

   If (a[i]<8.0) and (a[i]>=6.5) then trungbinnh:=trungbinh+1

   end;

   Writeln (‘ket qu hoc tap:’);

   Writeln (gioi,’ban hoc gioi’);

   Writeln (kha,’ban hoc kha’);

   Writeln (trungbinh,ban hoc trungbinh’);

   Writeln (kem, ban hoc kem);

   Readln;

   End.

   Bình luận

2. var a: array[1..100] of real;

         dg, dkh, dtb, dk, i, n: byte;

   Begin

       Write(‘co bao nhieu hoc sinh: ‘);

       readln(n); dg:=0; dkh:=0;

       dtb:=0; dk:=0;

       For i:=1 to n do

        Begin

            Write(‘nhap diem cua hs thu ‘,i, ‘: ‘);

           Readln(a[i]); 

           If a[i]>8 then inc(dg)

           else if a[i]>6.5 Then inc(dkh)

           Else if a[i]>5 then inc(dtb)

           Else inc(dk);

        End;

      Writeln(‘gioi: ‘, dg); writeln(‘kha: ‘, dkh);

      Writeln(‘trung binh: ‘, dtb);

      Writeln(‘yeu: ‘, dk);

      Readln

   End.

   Bình luận