【導(dǎo)讀】理，如查詢、修改、增加、刪除等。校非常重要的一項數(shù)據(jù)資源，是一個教育單位不可缺少一部分。生活的各個領(lǐng)域，并發(fā)揮著越來越重要的作用。這種傳統(tǒng)的手工管理模式必然。被以計算機(jī)為物質(zhì)基礎(chǔ)的信息管理方法所取代。使用計算機(jī)對學(xué)生檔案進(jìn)行管。存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高學(xué)生檔案。院校與世界接軌的重要條件。號，姓名，性別，出生日期，各科成績等。1995，出生月為6,出生日為30，各科成績?yōu)閷嵭?。保存入文件和從文件讀取數(shù)據(jù)等操作。分程序菜單選項數(shù)學(xué)、語文、英語和平均分，選擇按哪個科目進(jìn)行排序，注意最高成績可能不止一人。該分程序建立在選擇科目對成績進(jìn)行從大到。學(xué)生信息存儲個數(shù)增加，將新增信息保存至數(shù)組最后。通過對學(xué)生管理系統(tǒng)的設(shè)計，我體會到了高級語言的靈活性。個作業(yè)我了解到自己所掌握的知識是遠(yuǎn)遠(yuǎn)不夠的！登錄，可設(shè)置用戶名和密碼。還可在錄入學(xué)生信息時增加學(xué)院、專業(yè)、民族等信息。

　　

【正文】 var counter:integer)。 Var num:string。 i,revisechoice:integer。 begin writeln(39。請輸入要查找的學(xué)生學(xué)號 39。)。 readln(num)。 for i:=1 to counter do begin if num=stu[i].infor[number] then begin writeln(39。選擇修改的信息 39。)。 writeln(39。 1 學(xué)號 39。)。 writeln(39。 2 姓名 39。)。 writeln(39。 3 性別 39。)。 writeln(39。 4 出生日期 39。)。 writeln(39。 5 數(shù)學(xué)成績 39。)。 writeln(39。 6 語文成績 39。)。 writeln(39。 7 英語成績 39。)。 writeln(39。 8 平均分 39。)。 writeln(39。請輸入選項： 39。)。 readln(revisechoice)。 case revisechoice of 35 1:begin readln(stu[i].infor[number])。 end。 2:begin readln(stu[i].infor[name])。 end。 3:begin readln(stu[i].sex)。 end。 4:begin readln(stu[i].year)。 readln(stu[i].month)。 readln(stu[i].day)。 if 2021stu[i].year30 then //判斷日期是否正確 begin writeln(39。年齡超范圍 輸入錯誤 請重新輸入學(xué)生信息 39。)。 readln(stu[i].year,stu[i].month,stu[i].day)。 end else begin case stu[i].month of 1,3,5,7,8,10,12:result:=31。 4,6,9,11:result:=30。 2:if (stu[i].year mod 4=0) and (stu[i].year mod 1000) or (stu[i].year mod 400=0) then result:=29 else result:=28。 end。 if stu[i].dayresult then begin writeln(39。輸入期有誤 請重新輸入 39。) 。 readln(stu[i].year,stu[i].month,stu[i].day)。 end。 end。 end。 5:begin readln(stu[i].score[math])。 stu[i].score[average]:=(stu[i].score[math]+stu[i].score[chinese]+stu[i].score[english])/3 。 end。 6:begin readln(stu[i].score[chinese])。 stu[i].score[average]:=(stu[i].score[math]+stu[i].score[chinese]+stu[i].score[english])/3 。 end。 7:begin readln(stu[i].score[english])。 stu[i].score[average]:=(stu[i].score[math]+stu[i].score[chinese]+stu[i].score[english])/3。 end。 8:begin writeln(39。重新計算平均分 39。)。 stu[i].score[average]:=(stu[i].score[math]+stu[i].score[chinese]+stu[i].score[english])/3 。 end。 end。 end。 end。 37 end。 {功能：刪除學(xué)生信息 參數(shù)： } procedure delete(var stu:stuarr。var counter:integer)。 var num:string。 i,j:integer。 begin writeln(39。請輸入需要刪除的學(xué)生學(xué)號： 39。)。 readln(num)。 for i:=1 to counter do begin if num=stu[i].infor[number] then begin if i counter then begin for j:=i to counter1 do begin stu[j]:=stu[j+1]。 end。 counter:=counter1。 end else begin counter:=counter1。 end。 break。 end。 end。 end。 {功能：追加學(xué)生信息 參數(shù)：變參 stufile 表示學(xué)生信息保存地址 } procedure append(Var stu:stuarr。 var counter:integer)。 Var sum:real。 result:integer。 ch:char。 begin repeat writeln(39。請輸入要追加的學(xué)生信息 39。)。 writeln(39。提示：女： female 男： male39。)。 sum:=0。 writeln(39。學(xué)號 :39。)。 readln(stu[counter+1].infor[number])。 writeln(39。姓名 39。)。 readln(stu[counter+1].infor[name])。 writeln(39。性別 39。)。 readln(stu[counter+1].sex)。 writeln(39。出生日期 39。)。 readln(stu[counter+1].year)。 readln(stu[counter+1].month)。 readln(stu[counter+1].day)。 39 if 2021stu[counter+1].year30 then //判斷日期是否正確 begin writeln(39。年齡超范圍 輸入錯誤 請重新輸入學(xué)生信息 39。)。 readln(stu[counter+1].year,stu[counter+1].month,stu[counter+1].day)。 end else begin case stu[counter+1].month of 1,3,5,7,8,10,12:result:=31。 4,6,9,11:result:=30。 2:if (stu[counter+1].year mod 4=0) and (stu[counter+1].year mod 1000) or (stu[counter+1].year mod 400=0) then result:=29 else result:=28。 end。 if stu[counter+1].dayresult then begin writeln(39。輸入期有誤 請重新輸入 39。) 。 readln(stu[counter+1].year,stu[counter+1].month,stu[counter+1].day)。 end。 end。 writeln(39。數(shù)學(xué)： 39。)。 readln(stu[counter+1].score[math])。 sum:=sum+stu[counter+1].score[math]。 writeln(39。語文： 39。)。 readln(stu[counter+1].score[chinese])。 sum:=sum+stu[counter+1].score[chinese]。 writeln(39。英語： 39。)。 readln(stu[counter+1].score[english])。 sum:=sum+stu[counter+1].score[english]。 writeln(39。平均分： 39。)。 stu[counter+1].score[average]:=sum/3。 writeln(stu[counter+1].score[average]:4:0)。 counter:=counter+1。 writeln(39。是否要繼續(xù)追加？ y/n39。)。 readln(ch)。 until ch39。y39。 end。 {功能： 提示程序結(jié)束 } procedure ending。 begin writeln(39。系統(tǒng)結(jié)束 歡迎再次使用 !39。)。 writeln(39。******************************************************************************39。)。 end。 end.