Viết chương trình nhập điểm hk1 môn tin của các bạn trong lớp (44 bạn). Sau đó in ra màn hình tỉ lệ phần trăm học sinh giỏi, khá,trung bình, yếu, kém với tiêu chuẩn sau:
-Nếu đạt từ 8.0 trở lên thì xếp loại” giỏi”.Nếu điểm đạt từ 6.5 đến 7.9 thì xếp loại “khá”.Nếu đạt từ 5.0 đến 6.4 thì xếp loại “trung bình”.Nếu đạt từ 3.5 đến 4.9 thì xếp loại “yếu” .Ngược lain xếp loại “kém”
program Bai_8_CLDKDD_Diem;
uses crt;
var DMTB :real;
begin
clrscr;
writeln(‘Chuong trinh tinh hoc luc,Vui long nhap diem TB cua ban’);
writeln(‘——————————————————-‘);
repeat
write(‘Nhap diem cua ban: ‘); readln(DMTB)
until (DMTB>=0)and(DMTB<=10);
if DMTB>=8 then writeln(‘Chuc mung,Em dat loai gioi’);
if (DMTB>=6.5)and(DMTB<8) then writeln(‘Tot lam,Em dat loai kha’);
if (DMTB>=5)and(DMTB<6.5) then writeln(‘Em can co gang hon.Em dat loai Trung Binh’);
if (DMTB>=3.5)and(DMTB<5) then writeln(‘Rat tiec,Em duoc loai yeu’);
if (DMTB<3.5) then writeln(‘Em duoc loai Kem,Em co gang nam sau nhe!! ‘);
readln;
end.