program xep_loai_hoc_luc; uses crt; var TB: real; begin clrscr; write (‘nhap diem TB: ‘); readln (TB); if TB >=8.0 then writeln (‘hoc luc gioi’) else if (TB >=6.5) and (TB<8) then writeln (‘hoc luc kha’) else if (TB>=5.0) and (TB <6.5) then writeln(‘hoc luc trung binh’) else if (TB>=3.5) and (TB<5.0) then writeln(‘hoc luc yeu’) else writeln(‘hoc luc kem’); readln end. Bình luận
Do Code này mình đã code sẵn từ trước nha nên nó nhanh(tránh trường hợp bạn bảo mik cop nên mik đã cho thêm dòng chữ kí,bạn có lấy dùng thì nhớ bỏ dòng code ấy đi) Bình luận
program xep_loai_hoc_luc;
uses crt;
var TB: real;
begin
clrscr;
write (‘nhap diem TB: ‘); readln (TB);
if TB >=8.0 then writeln (‘hoc luc gioi’)
else if (TB >=6.5) and (TB<8) then writeln (‘hoc luc kha’)
else if (TB>=5.0) and (TB <6.5) then writeln(‘hoc luc trung binh’)
else if (TB>=3.5) and (TB<5.0) then writeln(‘hoc luc yeu’)
else writeln(‘hoc luc kem’);
readln
end.
Do Code này mình đã code sẵn từ trước nha nên nó nhanh(tránh trường hợp bạn bảo mik cop nên mik đã cho thêm dòng chữ kí,bạn có lấy dùng thì nhớ bỏ dòng code ấy đi)