Viết chương trình tính điểm của 1 học sinh yêu cầu văn hệ sô 2, toán hệ số 3, lí hệ số 1, hoá hệ số 1, ngoại ngữ hệ số 2, in thông báoĐiểm trung bình < 5 xếp loại yếu,Điểm trung bình >=5 và <=6 xếp loại trung bìnhĐiểm trung bình >6.5 và < 8 thì xếp loại kháĐiểm trung bình >=8 thì xếp loại giỏi, sau đó in ra màn hình kết quả tính...
Đọc tiếp
Viết chương trình tính điểm của 1 học sinh yêu cầu văn hệ sô 2, toán hệ số 3, lí hệ số 1, hoá hệ số 1, ngoại ngữ hệ số 2, in thông báo
Điểm trung bình < 5 xếp loại yếu,
Điểm trung bình >=5 và <=6 xếp loại trung bình
Điểm trung bình >6.5 và < 8 thì xếp loại khá
Điểm trung bình >=8 thì xếp loại giỏi, sau đó in ra màn hình kết quả tính được
uses crt;
var a,b,c,d,e,t:real;
begin
clrscr;
readln(a,b,c,d,e);
t:=2*a+3*b+c+d+e*2;
if (t<5) then write('yeu')
else if (t>=5) and (t<=6.5) then write('trug binh')
else if (t>6.5) and (t<8) then write('kha')
else write('gioi');
readln;
end.