Tin học Chữa chương trình

[Dương Nhạt Nhẽo]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Program diem_trung_binh_mon;
Uses crt;
Var a,b,c,TBM: Real;
Begin
clrscr;
Writeln('Diem mon Toan la:'); Readln(a);
Writeln('Diem mon Van la:'); Readln(b);
Writeln('Diem mon Anh la:'); Readln(c);
TBM:=(a+b+c)/3;
Writeln('Diem trung binh mon la:',TBM:6:0);
If 8<= TBM then writeln('Hoan thanh tot nha');
If 5<= TBM<8 then writeln('Hoan thanh thoi nha')
else if TBM<5 then writeln('Chua hoan thanh roi');
Readln;
End.

 

[Bạc Liêu123]

Program diem_trung_binh_mon;
Uses crt;
Var a,b,c,TBM: Real;
Begin
clrscr;
Writeln('Diem mon Toan la:'); Readln(a);
Writeln('Diem mon Van la:'); Readln(b);
Writeln('Diem mon Anh la:'); Readln(c);
TBM:=(a+b+c)/3;
Writeln('Diem trung binh mon la:',TBM:6:0);
If 8<= TBM then writeln('Hoan thanh tot nha');
If 5<= TBM<8 then writeln('Hoan thanh thoi nha')
else if TBM<5 then writeln('Chua hoan thanh roi');
Readln;
End.

Vậy bạn cần gì nhỉ?
Thử chạy chương trình và kiểm tra kết quả thôi

 

[CuongGrove]

Chương trình báo lỗi như thế nào vậy bạn?
Hay bạn chạy ra kết quả sai?

Mình thì thấy có 1 dòng lỗi : If 5<= TBM<8 then writeln('Hoan thanh thoi nha')
Để có 2 điều kiện song song trong 1 câu if thì phải có từ and ở chính giữa và đặt điều kiện ở trong ngoặc (), bạn lên mạng tìm hiểu về if then cho rõ hơn nha.

 

[Tiến Phùng]

thay vì xếp như vậy thì bạn xếp:
if(TBM>=8)
else if( TBM <5)
else...
Thì không cần điều kiện kép kia