Câu 11 trang 80 SGK Tin học 11
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.
Đề bài
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.
Lời giải chi tiết
Chương trình xeploai:
program xEp_loai ;
uses crt;
const max=60;
type Hocsinh = record
hoten: string[30];
ngaysinh: string [10];
Diachi: string[50];
Toan, Van: real;
Xeploai: char;
end;
var
Lop: array[1..max] of hocsinh;
N, i: byte;
Begin
clrscr;
readln(N)
write('So luong hoc sinh trong lop N= ) ;
readln(N);
for i:= 1 to N do
begin
writeln( 'Nhap so lieu ve hoc sinh thu',i,': ');
Write (‘Ho va ten: ‘); readln (lop [i]. hoten);
Write (‘ Ngay sinh : ‘); readln (lop [i].ngaysinh);
Write (‘ Dia chi : ‘); readln (lop [i].Diachi);
Write (‘Diem Toan : ‘); readln (lop [i]. Toan);
Write (‘Diem Van : ‘); readln (lop [i]. Van);
If Lop [i]. Toan+Lop [i]. Van >=18
then Lop [i]. xeploai:=’A’;
if (Lop[i].Toan+Lop[i].Van>=14) and
Lop [i]. Toan+Lop [i]. Van <18
then Lop [i]. xeploai:=’B’;
if (Lop[i].Toan+Lop[i].Van>=10) and
Lop [i]. Toan+Lop [i]. Van >=14
then Lop [i]. xeploai:=’C’;
if (Lop[i].Toan+Lop[i].Van<=10) and
then Lop[i].xeploai:=’D’;
end;
clrscr;
writeln (‘Danh sach xep loai hoc sinh trong lop: ‘ );
for i:=1 to N do
writeln (Lop[i].Hoten:30,’ – Xep loai : ‘, Lop[i]. Xeploai);
readln
End.
Để 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[i].Xeploai =’A' then writeln(Lop[i].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:
program xep_loai;
uses crt;
const max= 60;
type Hocsinh = record
hoten: string[30];
ngay sinh: string [ 10 ] ,ề
Diachi: string[50];
Toan, Van: real;
Xeploai: char;
end;
var
Lop: array[1..max] of hocsinh;
N,i: byte;
Begin
clrscr;
write('So luong hoc sinh trong lop N=');
readln(N); for i:= 1 to N do
begin
writeln('Nhap so lieu ve hoc sinh thu ',i,': ');
write('Ho va ten: ');
readln(lop[i].hoten);
write (’Ngay sinh: ');
readln (Lop[i] ngaysinh);
write('Dia chi : ’);
readln(Lop[i].Diachi) ;
write('Diem Toan: ');
readln(Lop[i].Toan) ;
write('Diem Van : ’);
readln(Lop[i].Van);
if Lop[i].Toan+Lop[i].Van>=18 then
Lop[i].xeploai:='A';
if (Lop[i].Toan+Lop[i].Van>=14) and Lop[i].Toan+Lop[i].Van<18) then
Lop[i].Xeploai:='B';
if (Lop[i].Toan+Lop[i].Van>=10) and (Lop[i].Toan+Lop[i].Van<14) then Lop[i].Xeploai:=’c';
if (Lop[i].Toan+Lop[i].Van<=10) then Lop[i] .xeploai: = 'D' ;
end;
clrser;
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
if Lop[i].Xeploai ='A' then writeln(Lop[i].Hoten : 30);
readln
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:
Bình luận
Chia sẻ- Câu 10 trang 80 SGK Tin học 11
- Câu 9 trang 80 SGK Tin học 11
- Bài 8 trang 79 SGK Tin học 11
- Câu 7 trang 79 SGK Tin học 11
- Bài 6 trang 79 SGK Tin học 11
>> Xem thêm
Tham Gia Group Dành Cho 2K8 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí
