1 program Project2;
2
3 {$APPTYPE CONSOLE}
4
5 uses
6 SysUtils;
7
8 const N=2;M=3;
9 type
10
11 date=record
12 day:1..31;
13 month:1..12;
14 year:1970..1999;
15 end;
16 student=record
17 number:string[5];
18 name:string[8];
19 birthday:date;
20 score:array[1..M]of real;
21 average:real;
22 end;
23 var
24 stu:array[1..N] of student;
25 counter,s,i,j,k:integer;
26 t:real;
27 a:student;
28 temp:student;
29 ch:string[8];
30 begin
31 { TODO -oUser -cConsole Main : Insert code here }
32 for k:=1 to N do
33 begin
34 with a,birthday do
35 begin
36 write(k:2,'number:');readln(number);
37 write(k:2,'name:');readln(name);
38 write(k:2,'day:');readln(day);
39 write(k:2,'month:');readln(month);
40 write(k:2,'year:');readln(year);
41 t:=0;
42 for i:= 1 to M do
43 begin
44 write('score[',i,']=');read(a.score[i]);
45 t:=t+a.score[i]
46 end;
47 readln;
48 stu[k]:=a;
49 stu[k].average:=t/M;
50 end;
51 end;
52 for j:=1 to N do
53 for k:=1 to N-j do
54 if stu[k].average<stu[k+1].average then
55 begin
56 temp:=stu[k];
57 stu[j]:=stu[k+1];
58 stu[k+1]:=temp;
59 end;
60 Writeln('按平均分从高到低排');
61 writeln('----------------------------------------------------------');
62 write('num','':5,'name','':9,'mm/dd/yy':10,'':4);
63 writeln('chinese','':2,'math','':2,'english','':2,'average');
64 writeln('-----------------------------------------------------------');
65 for j:=1 to N do
66 with stu[j],birthday do
67 begin
68 write(number:5,name:9,'':8,month:2,'/',day:2,'/',year:4,' ');
69 for i:= 1to M do write(score[i]:6:1);
70 writeln(stu[j].average:10:1)
71
72 end;
73 for j:=1 to N do
74 for k:=1 to N-j do
75 if (stu[k].name)>(stu[k+1].name) then
76 begin
77 temp:=stu[k];
78 stu[j]:=stu[k+1];
79 stu[k+1]:=temp;
80 end;
81 Writeln('按学生姓名的字典顺序排');
82 writeln('----------------------------------------------------------');
83 write('num','':5,'name','':9,'mm/dd/yy':10,'':4);
84 writeln('chinese','':2,'math','':2,'english','':2,'average');
85 writeln('-----------------------------------------------------------');
86 for j:=1 to N do
87 with stu[j],birthday do
88 begin
89 write(number:5,name:9,'':8,month:2,'/',day:2,'/',year:4,' ');
90 for i:= 1to M do write(score[i]:6:1);
91 writeln(stu[j].average:10:1)
92
93 end;
94 writeln('按姓名查找学生信息');
95 readln(ch);
96 s:=0;
97 for j:=1 to N do
98 if (stu[j].name)=ch then
99 begin
100 writeln('----------------------------------------------------------');
101 write('num','':5,'name','':9,'mm/dd/yy':10,'':4);
102 writeln('chinese','':2,'math','':2,'english','':2,'average');
103 writeln('-----------------------------------------------------------');
104 with stu[j],birthday do
105 begin
106 write(number:5,name:9,'':8,month:2,'/',day:2,'/',year:4,' ');
107 for i:= 1to M do write(score[i]:6:1);
108 writeln(stu[j].average:10:1)
109 end;
110 end else s:=s+1;
111 if s=N then Writeln('没有找到该学生信息');
112 writeln('将数学不及格的学生信息输出，并统计数学成绩不及格人数');
113 counter:=0;
114 for j:=1 to N do
115 if (stu[j].score[2])<60 then
116 begin
117 counter:=counter+1;
118 writeln('----------------------------------------------------------');
119 write('num','':5,'name','':9,'mm/dd/yy':10,'':4);
120 writeln('chinese','':2,'math','':2,'english','':2,'average');
121 writeln('-----------------------------------------------------------');
122 with stu[j],birthday do
123 begin
124 write(number:5,name:9,'':8,month:2,'/',day:2,'/',year:4,' ');
125 for i:= 1to M do write(score[i]:6:1);
126 writeln(stu[j].average:10:1)
127 end;
128 end;
129 writeln('数学不及格人数：',counter);
130 readln;
131 end.
浙公网安备 33010602011771号