Viết chương rình nhập điểm 3 môn: Toán, Lý, Hóa. Tính điểm trung bình 3 môn đó và xếp loại. Nếu điểm trung bình lớn hơn hoặc = 8 thì sếp loại giỏi, nếu điểm trung bình lớn hơn hoặc =6,5 và bé hơn 8 thì xếp loại khá. nếu điểm trung bình lớn hơn hoặc =5 và bé hơn 6,5 thì xếp loại trung bình. Ngược lại xếp loại yếu
uses crt;
var toan, ly, hoa, tb: real;
begin
clrscr;
write(‘Nhap diem toan = ‘); readln(toan);
write(‘Nhap diem ly = ‘); readln(ly);
write(‘Nhap diem hoa = ‘); readln(hoa);
tb:=(toan+ly+hoa)/3;
writeln(‘Diem trung binh la: ‘, tb:1:1);
if tb>=8 then write(‘Xep loai gioi’) else
if (tb>=6.5) and (tb<8) then write(‘Xep loai kha’) else
if (tb>=5) and (tb<6.5) then write(‘Xep loai trung binh’) else
write(‘Xep loai yeu’);
readln
end.
program bt;
var
T,L,H,DTB:real; {Mình khai báo điểm các môn là kiểu số thực nhé}
begin
write(‘Nhap diem 3 mon Toan, Li, Hoa: ‘);
readln(T,L,H);
DTB:=(T+L+H)/3;
writeln(‘Diem trung binh la: ‘,DTB:5:2);
if DTB>=8 then write(‘Xep loai gioi’) else
if (6.5<=DTB) and (DTB<8) then write(‘Xep loai kha’) else
if (5<=DTB) and (DTB<6.5) then write(‘xep loai trung binh’) else
write(‘xep loai yeu’);
readln;
end.
#Chuc_ban_hoc_tot
#Vote_5_*_cho_minh_nhe
#Xin_tlhn