Viết chương trình tính điểm TB 3 môn : Toán,Văn,Anh với yêu cầu sau:
+) Nhập trường, họ tên, lớp
+) Nếu ĐTB > 8.0 và 1 trong số đó k có môn nào dưới 8.0 thì đạt loại giỏi và ngược lại
Nếu ĐTB > 6.5 và 1 trong số đó k có môn nào dưới 6.5 thì đạt loại khá và ngược lại
Nếu ĐTB > 5.0 và 1 trong số đó k có môn nào dưới 5.0 thì đạt loại TB và ngược lại
Nếu ĐTB > 3.5 và 1 trong số đó k có môn nào dưới 3.5 thì đạt loại yếu và ngược lại
Loại kém: Còn lại
+) In ra màn hình vừa ĐTB vừa Xếp loại học lực.
program ctpt;
uses crt;
var t, a, v, tb: real;
tr, ht, l: string;
begin
clrscr;
write(‘Nhap ten truong: ‘); readln(tr);
write(‘Nhap ten lop: ‘); readln(l);
write(‘Nhap ho ten: ‘); readln(ht);
write(‘Nhap diem trung binh mon toan: ‘); readln(t);
write(‘Nhap diem trung binh mon van: ‘); readln(v);
write(‘Nhap diem trung binh mon anh: ‘); readln(a);
tb:=(t+v+a)/3;
writeln(‘Diem trung binh 3 mon la: ‘, tb:4:1);
if (tb>=8) and (t>=8) and (v>=8) and (a>=8) then write(‘Gioi’) else
if (tb>=6.5) and (t>=6.5) and (v>=6.5) and (a>=6.5) then write(‘Kha’) else
if (tb>=5) and (t>=5) and (v>=5) and (a>=5) then write(‘TB’) else
if (tb>=3.5) and (t>=3.5) and (v>=3.5) and (a>=3.5) then write(‘Yeu’) else
write(‘Kem’);
readln
end.