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.