viết chương trình nhập vào họ tên , lớp ,điểm liws thuyết điểm thực hành sao đó kiểm tra kết quả điểm trung bình in ra kết quả đạt loại gì (giỏi,khá,trung bình,yếu)
viết chương trình nhập vào họ tên , lớp ,điểm liws thuyết điểm thực hành sao đó kiểm tra kết quả điểm trung bình in ra kết quả đạt loại gì (giỏi,khá,trung bình,yếu)
Uses CRT;
Var TB : real;
BEGIN
clrscr;
repeat
begin
write(‘Moi ban nhap diem trung binh: ‘);
Readln(TB);
end;
until (TB>0) and (TB<10);
If (TB >= 8) then write(‘hoc luc gioi’) else
If (TB>=6.5) then write(‘hoc luc kha’) else
If (TB>5) then write(‘hoc luc trung binh’) else
If (TB>3.5) then write(‘hoc luc yeu’) else
write(‘hoc luc kem’);
Readln;
END.
Var ht,lop,TB : real;
begin
clrscr;
write(‘Nhap ho ten: ‘); readln(ht);
write(‘Nhap lop: ‘); readln(lop);
write(‘Nhap diem trung binh: ‘); readln(TB);
If (TB >= 8) then write(‘hoc luc gioi’)
else if (TB>=6.5) then write(‘hoc luc kha’)
else if (TB>5) then write(‘hoc luc trung binh’)
else if (TB>3.5) then write(‘hoc luc yeu’)
Readln;
END.