Tin học Viết chương trình

[monrofy]

[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.

Viết chương trình xuất ra màn hình kết quả xếp loại học lực như sau: điểm trung bình môn >=8 và toán >=8 hoặc Văn >=8 là học sinh giỏi. Ngược lại là học sinh khá.

Bài em làm như này:
var TBM,TBT,TBV: real;
write('Nhap diem tbm, tbt,tbv');
readln(TBM,TBT,TBV);
If (TBM>=8) and (TBT>=8) or (TBV>=8) then write('HSG')
else writeln('HSK');
readln
end.

Em đã làm thử rồi nhưng khi thử TBM<8 và TBT,TBV>8 thì vẫn ra HSG em không biết phải làm thế nào để sửa. Lẽ ra phải là HSK mới đúng

 

[khai221050]

Có vài điều mình cần nói với bạn
- Bạn chưa đáp ứng đủ cấu trúc một chương trình pascal-> thiếu begin
- có thể bạn chưa để ý đến thứ tự ưu tiên các toán tử trong pascal:
+ Qui tắc 1 : Các phép toán nào có ưu tiên cao hơn
sẽ được tính trước.
+ Qui tắc 2 : Trong các phép toán có cùng thứ tự ưu
tiên thì sự tính toán sẽ được thực hiện từ trái
sang phải.
+ Qui tắc 3 : Phần trong ngoặc từ trong ra ngoài
được tính toán để trở thành một giá trị.

Bài mình sửa thế này nhé:
uses crt;
var TBM,TBT,TBV: real;
begin
clrscr;
write('Nhap diem tbm, tbt,tbv');
readln(TBM,TBT,TBV);
If (TBM>=8) and ((TBT>=8) or (TBV>=8)) then write('HSG')
else writeln('HSK');
readln
end.