Xây dựng menu chương trình thực hiện những công việc sau: “Bài toán với dữ liệu kiểu bản ghi”. Viết chương trình quản lý điểm thi đại học của thí sinh bao gồm
Xây dựng menu chương trình thực hiện những công việc sau: “Bài toán với dữ liệu kiểu bản ghi”. Viết chương trình quản lý điểm thi đại học của thí sinh bao gồm các trường sau: Số báo danh, họ tên, ngày sinh, giới tính, điểm toán, văn, tiếng anh, tổng điểm, xếp loại. Thực hiện các công việc sau: Nhập vào danh sách N thí sinh (không quá 30 người), bao gồm: Số báo danh, họ tên, ngày sinh, giới tính, điểm toán, văn, tiếng anh. Tính tổng điểm (=toán + văn + tiếng anh) và xếp loại cho từng thí sinh (nếu tổng điểm >=29, “thủ khoa”, tổng điểm >=25 ,“xuất sắc”, tổng điểm >=20, “có cơ hội đậu”, còn lại là “ôn lại năm sau”). 1. In ra danh sách thí sinh. 2. Đưa ra danh sách thí sinh có tổng điểm cao nhất. 3. Sắp xếp các bản ghi theo tổng điểm tăng dần. 4. Đưa ra danh sách thí sinh xếp loại xuất sắc. 5. Đưa ra danh sách thí sinh nam có điểm trung bình 2 môn toán, văn trên 7.5 6. Viết chức năng tra cứu theo số báo danh của thí sinh. Ví dụ: Khi nhập vào số báo danh X thì chương trình sẽ tìm và in ra màn hình thông tin đầy đủ của thí sinh đó.
Lời giải 1 :
uses crt;
type hs=record
sbd:longint;
hoten,gtinh,nsinh:string;
toan,van,anh:extended;
end;
var a:array[0..50]of hs;
i,n,s,j:longint;
max:extended;
tg:hs;
begin
clrscr;
write('so hoc sih:');readln(n); max:=0;
for i:=1 to n do
begin
write('sbd:'); readln(a[i].sbd);
write('ho ten:'); readln(a[i].hoten);
write('ngay sinh:'); readln(a[i].nsinh);
write('gioi tinh:'); readln(a[i].gtinh);
write('diem toan:'); readln(a[i].toan);
write('diem van:'); readln(a[i].van);
write('diem anh:'); readln(a[i].anh);
if ((a[i].toan)+(a[i].van)+(a[i].anh))>max then
max:=((a[i].toan)+(a[i].van)+(a[i].anh));
end;
for i:=1 to n do
begin
writeln('sbd: ',a[i].sbd:0);
writeln('ho ten: ',a[i].hoten);
writeln('ngay sinh: ',a[i].nsinh);
writeln('gioi tinh: ',a[i].gtinh);
writeln('diem toan: ',a[i].toan:1:1);
writeln('diem van: ',a[i].van:1:1);
writeln('diem anh: ',a[i].anh:1:1);
end;
for i:=1 to n do
if ((a[i].toan)+(a[i].van)+(a[i].anh))=max then
begin
writeln('sbd: ',a[i].sbd:0);
writeln('ho ten: ',a[i].hoten);
writeln('ngay sinh: ',a[i].nsinh);
writeln('gioi tinh: ',a[i].gtinh);
writeln('diem toan: ',a[i].toan:1:1);
writeln('diem van: ',a[i].van:1:1);
writeln('diem anh: ',a[i].anh:1:1);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if ((a[i].toan)+(a[i].van)+(a[i].anh))>((a[j].toan)+(a[j].van)+(a[j].anh)) then
begin
tg:=a[i]; a[i]:=a[j]; a[j]:=tg;
end;
for i:=1 to n do
begin
writeln('sbd: ',a[i].sbd:0);
writeln('ho ten: ',a[i].hoten);
writeln('ngay sinh: ',a[i].nsinh);
writeln('gioi tinh: ',a[i].gtinh);
writeln('diem toan: ',a[i].toan:1:1);
writeln('diem van: ',a[i].van:1:1);
writeln('diem anh: ',a[i].anh:1:1);
end;
for i:=1 to n do
begin
if (((a[i].toan)+(a[i].van)+(a[i].anh))>=25) and
(((a[i].toan)+(a[i].van)+(a[i].anh))<29) then
begin
writeln('sbd: ',a[i].sbd:0);
writeln('ho ten: ',a[i].hoten);
writeln('ngay sinh: ',a[i].nsinh);
writeln('gioi tinh: ',a[i].gtinh);
writeln('diem toan: ',a[i].toan:1:1);
writeln('diem van: ',a[i].van:1:1);
writeln('diem anh: ',a[i].anh:1:1);
end;
end;
for i:=1 to n do
begin
if (((a[i].van)+(a[i].toan))/2)>7.5 then begin
writeln('sbd: ',a[i].sbd:0);
writeln('ho ten: ',a[i].hoten);
writeln('ngay sinh: ',a[i].nsinh);
writeln('gioi tinh: ',a[i].gtinh);
writeln('diem toan: ',a[i].toan:1:1);
writeln('diem van: ',a[i].van:1:1);
writeln('diem anh: ',a[i].anh:1:1);
end;
end;
write('tra sbd:');readln(s);
for i:=1 to n do
if a[i].sbd = s then begin
writeln('sbd: ',a[i].sbd:0);
writeln('ho ten: ',a[i].hoten);
writeln('ngay sinh: ',a[i].nsinh);
writeln('gioi tinh: ',a[i].gtinh);
writeln('diem toan: ',a[i].toan:1:1);
writeln('diem van: ',a[i].van:1:1);
writeln('diem anh: ',a[i].anh:1:1);
end;
readln;
readln;
end.
Thảo luận
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 12
Lớp 12 - Năm cuối ở cấp tiểu học, năm học quan trọng nhất trong đời học sinh trải qua bao năm học tập, bao nhiêu kì vọng của người thân xung quanh ta. Những nỗi lo về thi đại học và định hướng tương lai thật là nặng. Hãy tin vào bản thân là mình sẽ làm được rồi tương lai mới chờ đợi các em!
Nguồn : ADMIN :))Copyright © 2021 HOCTAP247