Hãy bổ sung thêm chương trình xeploai (ở §13) những lệnh cần thiết để chương trình đưa ra danh sách học sinh xếp loại A

Hãy bổ sung thêm chương trình xeploai (ở §13) những lệnh cần thiết để chương trình đưa ra danh sách học sinh xếp loại A.
Trả lời:

PHP:

1. Chương trình xeploai:
2. program xEp_loai ;
3. uses crt;
4. const max=60;
5. type Hocsinh = record
6. hoten: string[30];
7. ngaysinh: string [10];
8. Diachi: string[50];
9. Toan, Van: real;
10. Xeploai: char;
11. end;
12. var
13. Lop: array[1..max] of hocsinh;
14. N, i: byte;
15. Begin
16. clrscr;
17. readln(N)
18. write('So luong hoc sinh trong lop N=  ) ;
19. readln(N);
20. for i:= 1 to N do
21. begin
22. writeln( 'Nhap so lieu ve hoc sinh thu',i,': ');
23. Write (‘Ho va ten: ‘); readln (lop [i]. hoten);
24. Write (‘ Ngay sinh : ‘); readln (lop [i].ngaysinh);
25. Write (‘ Dia chi : ‘); readln (lop [i].Diachi);
26. Write (‘Diem Toan : ‘); readln (lop [i]. Toan);
27. Write (‘Diem Van : ‘); readln (lop [i]. Van);
28. If Lop [i]. Toan+Lop [i]. Van >=18
29. then Lop [i]. xeploai:=’A’;
30. if  (Lop[i].Toan+Lop[i].Van>=14)  and
31. Lop [i]. Toan+Lop [i]. Van <18
32. then Lop [i]. xeploai:=’B’;
33. if  (Lop[i].Toan+Lop[i].Van>=10)  and
34. Lop [i]. Toan+Lop [i]. Van >=14
35. then Lop [i]. xeploai:=’C’;
36. if  (Lop[i].Toan+Lop[i].Van<=10)  and
37. then Lop[i].xeploai:=’D’;
38. end;
39. clrscr;
40. writeln (‘Danh sach xep loai hoc sinh trong lop: ‘ );
41. for i:=1 to N do
42. writeln (Lop[i].Hoten:30,’ – Xep loai : ‘, Lop[i]. Xeploai);
43. readln
44. End.

nhằm mục đích xếp loại (A, B, c, D) cho học sinh. Để chương trình đưa ra danh sách học sinh xếp loại A, thì chúng ta cần đưa thêm đoạn chương trình sau vào cuối chương trình trên:
writeln(’Danh sach hoc sinh xep loai A trong lop: ');
for i:=1 to N do if Lop.Xeploai =’A' then writeln(Lop.Hoten:30);
Vì vậy, chương trình đưa ra danh sách học sinh xếp loại A trong lớp như sau:

PHP:

1. program xep_loai;
2. uses crt;
3. const max= 60;
4. type Hocsinh = record
5. hoten: string[30];
6. ngay sinh: string [ 10 ] ,ề
7. Diachi: string[50];
8. Toan, Van: real;
9. Xeploai: char;
10. end;
11. var
12. Lop: array[1..max] of hocsinh;
13. N,i: byte;
14. Begin
15. clrscr;
16. write('So luong hoc sinh trong lop N=');
17. readln(N); for i:= 1 to N do
18. begin
19. writeln('Nhap so lieu ve hoc sinh thu ',i,': ');
20. write('Ho va ten: ');
21. readln(lop[i].hoten);
22. write (’Ngay sinh: ');
23. readln (Lop[i] ngaysinh);
24. write('Dia chi : ’);
25. readln(Lop[i].Diachi) ;
26. write('Diem Toan: ');
27. readln(Lop[i].Toan) ;
28. write('Diem Van : ’);
29. readln(Lop[i].Van);
30. if Lop[i].Toan+Lop[i].Van>=18 then
31. Lop[i].xeploai:='A';
32. if (Lop[i].Toan+Lop[i].Van>=14) and Lop[i].Toan+Lop[i].Van<18) then
33. Lop[i].Xeploai:='B';
34. if (Lop[i].Toan+Lop[i].Van>=10) and (Lop[i].Toan+Lop[i].Van<14) then Lop[i].Xeploai:=’c';
35. if (Lop[i].Toan+Lop[i].Van<=10) then Lop[i] .xeploai: = 'D' ;
36. end;
37. clrser;
38. W1 iteln(1 Danh sach xep loai hoc sinh trong lop: '); fcr i:= 1 to n do writeln(Lop[i].Hoten: 30, ' -Xep loai:', Lop[i].Xeploai); writeIn('Danh sach hoc sinh xep loai A trong lop: '); ior i:= 1 to N do
39. if Lop[i].Xeploai ='A' then writeln(Lop[i].Hoten : 30);
40. readln
41. End.

Giả sử ta nhập vào dữ liệu của 5 học sinh thì kết quả của chương trình hiện trên màn hình như sau:

​