[Giúp] Lập trình Pascal

[con khi dot]

Viết chương trình cho phép nhập vào điểm văn, anh, tin của một học sinh. Tính điểm trung bình và hiển thị điểm trung bình lên màn hình kết quả.
hiển thị xếp loại theo yêu cầu sau:
đtb >= 8.0 Giỏi
đtb >= 6.5 khá
đtb >= 5.0 tb
đtb >=3.5 yếu
còn lại: kém

 

[rÙa tjỂu tHư]

[FONT=&amp]Program Bai_tap;[/FONT]
[FONT=&amp]Uses crt;[/FONT]
[FONT=&amp]Var a, b, c, dtb: real;[/FONT]
[FONT=&amp]BEGIN[/FONT]
[FONT=&amp]Clrscr;[/FONT]
[FONT=&amp]Write (‘Moi nhap diem Van ’); read (a);[/FONT]
[FONT=&amp]Write (‘Moi nhap diem Anh ’); read (b);[/FONT]
[FONT=&amp]Write (‘Moi nhap diem Tin ’); read (c);[/FONT]
[FONT=&amp]dtb:= (a+b+c)/3;[/FONT]
[FONT=&amp]Writeln (‘Diem trung binh la:’, dtb:8:2);[/FONT]
[FONT=&amp]If dtb >= 8 then writeln(‘Gioi’)[/FONT]
[FONT=&amp] Else If dtb>=6.5 then writeln(‘Kha’)[/FONT]
[FONT=&amp] Else If dtb>=5 then writeln(‘TB’)[/FONT]
[FONT=&amp] Else If dtb>=3.5 then writeln(‘Yeu’)[/FONT]
[FONT=&amp] Else writeln(‘Kem’);[/FONT]
[FONT=&amp]Readln[/FONT]
[FONT=&amp]END.

[/FONT]

* [FONT=&amp]Chú ý: Alt[/FONT][FONT=&amp]+F9 (dịch chương trình)[/FONT]

[FONT=&amp]Ctrl[/FONT][FONT=&amp]+F9 (chạy chương trình)[/FONT]

[FONT=&amp] Alt[/FONT][FONT=&amp]+F5 (xem kết quả)[/FONT]

 

[abc_253_39]

Có thể thay 1 loạt câu lệnh if-then-else bằng cấu trúc case-of cho gọn...

 

[winter1988]

Chà chà. Tuổi nhỏ tài cao. Lớp 8 mà đã ngâm cứu thể loại này thì bái phục.

 

[Friend-NTT]

Phải là else chứ, đâu phải eles.
Mà dùng case...of... cho gọn

 

[Duy Cường]

Case...of với if...else khác nhau như thế nào nhỉ?

 

[Tamduongkhach]

Chương trình này không khống chế được các số liệu nhập lỗi, VD điểm âm hay lớn hơn 10