Question

Trong kì thi khảo sát môn Tiếng anh, thí sinh phải dự thi 3 phần: Viết, nghe, vấn đáp. Mỗi phần thi có thang điểm tối đa là 10, mỗi thí sinh đều thi đủ 3 phần. Hãy viết chương trình nhập vào điểm thi 3 phần trên, sau đó tính điểm trung bình cộng (DTB) điểm thi của 3 phần biết hệ số các phần thi như sau: Viết: Hệ số 1; nghe: hệ số 2; vấn đáp: hệ số 3. Sau đó xét và in ra màn hình kết quả của thi sinh theo qui định:

+ DTB>=8 (không có bài thi nào dưới 7): Kết quả Đạt, xếp loại Giỏi

+ DTB từ 7 đến dưới 8(không có bài thi nào điểm <6): Kết quả Đạt, xếp loại Khá

+ DTB từ 5 đến dưới 7 (không có bài thi nào điểm <5): Kết quả Đạt, xếp loại Trung Bình

+ DTB<5 (hoặc có bài thi điểm dưới 3): Kết quả Không Đạt

* Giải bài toán trên bằng ngôn ngữ Pascal

Answer 1

1. Ví dụ:

Viết: 10 điểm

Nghe: 10 điểm

Vấn đáp: 4 điểm

Trung bình: \(\dfrac{10+10*2+4*3}{6} = \dfrac{4}{2} = 7\) điểm

Trung bình là 7 mà vấn đáp lại dưới 5 điểm nên máy sẽ không cho ra được kết quả.

2. Đây là code:

Uses crt;
Var
viet,nghe,vandap,min:byte; {Ở đây dùng byte, word hoặc integer đều được nha}
Tb:real;
Begin
     Clrscr;
     Write('Nhap diem viet : '); Readln(viet);
     Write('Nhap diem nghe : '); Readln(nghe);
     Write('Nhap diem van dap : '); Readln(vandap);
     Tb:= (viet + nghe * 2 + vandap * 3)/6;
     min:=viet;
     If min>nghe Then min:=nghe;
     If min>vandap Then min:=vandap;
     If (Tb>=8) And (min>=7) Then
          Write('Ket qua Dat. Xep loai Gioi')
     Else If (Tb>=7) And (min>=6) Then
          Write('Ket qua Dat. Xep loai Kha')
     Else If (Tb>=5) And (min>=5) Then
          Write('Ket qua Dat. Xep loai Trung Binh')
     Else If (Tb<5) Or (min<3) Then
          Write('Ket qua Khong Dat');
Readln.
End.