Pascal学生管理

 program Project2;

 {$APPTYPE CONSOLE}

 uses
   SysUtils;

 const N=;M=;
 type

 date=record
    day:..;
    month:..;
    year:..;
    end;
 student=record
     number:string[];
     name:string[];
     birthday:date;
     score:array[..M]of real;
     average:real;
     end;
 var
    stu:array[..N] of student;
   counter,s,i,j,k:integer;
    t:real;
    a:student;
    temp:student;
    ch:string[];
 begin
   { TODO -oUser -cConsole Main : Insert code here }
    for k:= to N do
    begin
    with a,birthday do
      begin
      write(k:,'number:');readln(number);
      write(k:,'name:');readln(name);
       write(k:,'day:');readln(day);
       write(k:,'month:');readln(month);
       write(k:,'year:');readln(year);
        t:=;
    for i:=  to M do
      begin
        write('score[',i,']=');read(a.score[i]);
        t:=t+a.score[i]
        end;
        readln;
        stu[k]:=a;
        stu[k].average:=t/M;
        end;
        end;
      for j:= to N do
      for k:= to N-j do
        if stu[k].average<stu[k+].average then
          begin
            temp:=stu[k];
             stu[j]:=stu[k+];
             stu[k+]:=temp;
             end;
        Writeln('按平均分从高到低排');
        writeln('----------------------------------------------------------');
        write('num','':,'name','':,'mm/dd/yy':,'':);
        writeln('chinese','':,'math','':,'english','':,'average');
        writeln('-----------------------------------------------------------');
        for j:= to N do
         with stu[j],birthday do
         begin
          write(number:,name:,'':,month:,'/',day:,'/',year:,' ');
          for i:= 1to M do write(score[i]::);
          writeln(stu[j].average::)

           end;
          for j:= to N do
             for k:= to N-j do
         if (stu[k].name)>(stu[k+].name) then
          begin
            temp:=stu[k];
             stu[j]:=stu[k+];
             stu[k+]:=temp;
             end;
          Writeln('按学生姓名的字典顺序排');
        writeln('----------------------------------------------------------');
        write('num','':,'name','':,'mm/dd/yy':,'':);
        writeln('chinese','':,'math','':,'english','':,'average');
        writeln('-----------------------------------------------------------');
           for j:= to N do
         with stu[j],birthday do
         begin
          write(number:,name:,'':,month:,'/',day:,'/',year:,' ');
          for i:= 1to M do write(score[i]::);
          writeln(stu[j].average::)

           end;
          writeln('按姓名查找学生信息');
          readln(ch);
          s:=;
           for j:= to N do
         if (stu[j].name)=ch then
          begin
           writeln('----------------------------------------------------------');
            write('num','':,'name','':,'mm/dd/yy':,'':);
            writeln('chinese','':,'math','':,'english','':,'average');
           writeln('-----------------------------------------------------------');
         with stu[j],birthday do
         begin
          write(number:,name:,'':,month:,'/',day:,'/',year:,' ');
          for i:= 1to M do write(score[i]::);
          writeln(stu[j].average::)
           end;
          end else  s:=s+;
         if s=N then Writeln('没有找到该学生信息');
         writeln('将数学不及格的学生信息输出，并统计数学成绩不及格人数');
         counter:=;
           for j:= to N do
         if (stu[j].score[])<  then
         begin
           counter:=counter+;
           writeln('----------------------------------------------------------');
          write('num','':,'name','':,'mm/dd/yy':,'':);
           writeln('chinese','':,'math','':,'english','':,'average');
          writeln('-----------------------------------------------------------');
           with stu[j],birthday do
           begin
          write(number:,name:,'':,month:,'/',day:,'/',year:,' ');
          for i:= 1to M do write(score[i]::);
          writeln(stu[j].average::)
           end;
          end;
           writeln('数学不及格人数：',counter);
          readln;
 end.