Xin mọi người giúp em với ạ!1. Tính điểm Trung Bình Cả Năm môn Tin Học với công thức tính: (HK1+HK2*2)/3. Hãy nhập điểm từ bàn phím điểm HK1, HK2. (3 điểm) 2. Dựa vào Điểm Trung Bình môn Tin Học mà in ra xếp loại như sau: (4 điểm) - Nếu ĐTB >= 8.0 thì xếp loại Giỏi - Nếu ĐTB >= 6.5 thì xếp loại Khá - Nếu ĐTB >= 5.0 thì xếp loại TB - Nếu ĐTB < 5.0 thì xếp loại Yếu Làm trong Free...
Đọc tiếp
Xin mọi người giúp em với ạ!
1. Tính điểm Trung Bình Cả Năm môn Tin Học với công thức tính: (HK1+HK2*2)/3. Hãy nhập điểm từ bàn phím điểm HK1, HK2. (3 điểm)
2. Dựa vào Điểm Trung Bình môn Tin Học mà in ra xếp loại như sau: (4 điểm)
- Nếu ĐTB >= 8.0 thì xếp loại Giỏi
- Nếu ĐTB >= 6.5 thì xếp loại Khá
- Nếu ĐTB >= 5.0 thì xếp loại TB
- Nếu ĐTB < 5.0 thì xếp loại Yếu
Làm trong Free Pascal
uses crt;
var a,b,tb:real;
begin
clrscr;
readln(a,b);
tb:=(a+b*2)/3;
writeln(tb:4:2);
if (tb>=8) then writeln('gioi')
else if ((tb>=6.5) and (tb<8)) then writeln('Kha')
else if ((tb>=5) and (tb<6.5)) then writeln('Trung Binh')
else writeln('Yeu');
readln;
end.