Program Bai_tap;
Uses crt;
Var a, b, c, dtb: real;
BEGIN
Clrscr;
Write (‘Moi nhap diem Van ’); read (a);
Write (‘Moi nhap diem Anh ’); read (b);
Write (‘Moi nhap diem Tin ’); read (c);
dtb:= (a+b+c)/3;
Writeln (‘Diem trung binh la:’, dtb:8:2);
If dtb >= 8 then writeln(‘Gioi’)
Else If dtb>=6.5 then writeln(‘Kha’)
Else If dtb>=5 then writeln(‘TB’)
Else If dtb>=3.5 then writeln(‘Yeu’)
Else writeln(‘Kem’);
Readln
END.
* Chú ý: Alt+F9 (dịch chương trình)
Ctrl+F9 (chạy chương trình)
Alt+F5 (xem kết quả)
Nguồn: http://diendankienthuc.net.
thay đổi nội dung bởi: rÙa tjỂu tHư, 01-22-2012 lúc 07:18 PM
╔══╗
╚╗╔╝
╔╝(¯`v´¯)
╚══`.¸.You...
Hạnh phúc giốg như . . .một nắm cát
-Khi nắm giữ nó quá lỏng, gió sẽ mag nó đi mất
-Và khi ta nắm quá chặt, nó sẽ tự tuột khỏi tay ta
Trả Lời Với Trích Dẫn
rÙa tjỂu tHư
20:54, 2nd Dec 2011 #6739ko ko ah ơi. đây là câu lệnh ghép mà, vs kả If...then...else: trước else ko đc dùng dấu ;
vanhieu1995
20:10, 2nd Dec 2011 #6738nhớ là sau mỗi câu lệnh là dấu ;