Viết chương trình nhập điểm kiểm tra học kỳ môn tin cho N học sinh và in ra màn hình tỉ số phần trăm số hs xếp loại Giỏi, Khá, TB, Yếu, Kém. Với N và điểm kiểm tra được nhập từ bàn phím (sử dụng biến mảng).
Viết chương trình nhập điểm kiểm tra học kỳ môn tin cho N học sinh và in ra màn hình tỉ số phần trăm số hs xếp loại Giỏi, Khá, TB, Yếu, Kém. Với N và điểm kiểm tra được nhập từ bàn phím (sử dụng biến mảng).
Uses Crt;
Var hs:array[1..1000] of real;
i,n:integer; DTB:real;
Gioi,Yeu,TB,Kha,Kem:integer;
Begin
Clrscr;
Writeln(‘Nhap so ban hoc sinh trong lop vao: ‘); Readln(n);
For i:= 1 to n do
Begin
Writeln;
Write(‘Diem TB cua hs[‘,i,’] la: ‘); Readln(hs[i]);
End;
Writeln;
For i:= 1 to n do
Begin
If hs[i]>=8.0 then Gioi:=Gioi+1;
If (hs[i] < 5) and (hs[i]>=3.5) then Yeu:=Yeu+1;
If (hs[i]<8.0) and (hs[i]>=6.5) then Kha:=Kha+1;
If (hs[i]>=5) and (hs[i]<6.5) then TB:=TB+1;
If hs[i]<3.5 then Kem:= Kem+1;
End;
Writeln(‘ So ban dat HSG la: ‘,Gioi,’. Voi ty le: ‘,Gioi/n*100:0:0,’%’);
Writeln(‘ So ban dat HSK la: ‘,Kha,’. Voi ty le: ‘,Kha/n*100:0:0,’%’);
Writeln(‘ So ban dat HSTB la: ‘,TB,’. Voi ty le: ‘,TB/n*100:0:0,’%’);
Writeln(‘ So ban dat HSY la: ‘,Yeu,’. Voi ty le: ‘,Yeu/n*100:0:0,’%’);
Writeln(‘ So ban dat HSK la: ‘,Kem,’. Voi ty le: ‘,Kem/n*100:0:0,’%’);
Readln
End.
Program Phan_loai;
uses crt;
Var i, n, gioi, kha, trung binh, yeu : integer;
A: array[1..100] of real;
Begin
clrscr;
write(‘Nhap so HS trong lop, n= ‘);
readln(n);
writeln(‘Nhap diem :’);
For i:=1 to n do
Begin
write(i,’ . ‘);
readln(a[i]);
End;
G:=0; Kh:= 0; TB:= 0; K:= 0;
for i:=1 to n do
Begin
if a[i] >= 8.0 then G:= G + 1;
if a[i] <5.0 then K:= K + 1; if (a[i] =6.5) then Kh:= Kh + 1;
if (a[i] >= 5 ) and (a[i] < 6.5) then TB:= TB + 1;
end;
writeln(‘ Ket qua hoc tap: ‘);
writeln(G, ‘ ban hoc gioi ‘);
writeln(Kh, ‘ ban hoc kha ‘);
writeln(TB, ‘ ban hoc trung binh’);
writeln(K, ‘ ban hoc kem ‘);
Readln;
End.