學(xué)生成績(jī)管理系統(tǒng)

1、鏈表的學(xué)生管理系統(tǒng)報(bào)告1. 需求分析1.1 開(kāi)發(fā)背景學(xué)生信息管理系統(tǒng)是針對(duì)學(xué)校人事處的大量業(yè)務(wù)處理工作而開(kāi)發(fā)的管理軟件，主要用于學(xué)校學(xué)生信息管理，總體任務(wù)是實(shí)現(xiàn)學(xué)生信息關(guān)系的系統(tǒng)化、科學(xué)化、規(guī)范化和自動(dòng)化，其主要任務(wù)是用計(jì)算機(jī)對(duì)學(xué)生各種信息進(jìn)行日常管理，如查詢(xún)、修改、增加、刪除等。學(xué)生信息檔案的管理對(duì)于學(xué)校的管理者來(lái)說(shuō)至關(guān)重要，學(xué)生信息是高等學(xué)校非常重要的一項(xiàng)數(shù)據(jù)資源，是一個(gè)教育單位不可缺少一部分。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)與技術(shù)日漸成熟，計(jì)算機(jī)應(yīng)用的普及已進(jìn)入人類(lèi)社會(huì)生活的各個(gè)領(lǐng)域，并發(fā)揮著越來(lái)越重要的作用。這種傳統(tǒng)的手工管理模式必然被以計(jì)算機(jī)為物質(zhì)基礎(chǔ)的信息管理方法所取代。使用計(jì)算

2、機(jī)對(duì)學(xué)生檔案進(jìn)行管理，有著手工管理所無(wú)法比擬的優(yōu)點(diǎn)，如：檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生檔案管理的效率，也是學(xué)校向科學(xué)化、正規(guī)化管理發(fā)展的必要條件，更是各個(gè)高等院校與世界接軌的重要條件。1.2數(shù)據(jù)需求學(xué)生管理系統(tǒng)能實(shí)現(xiàn)對(duì)大量的學(xué)生信息的管理處理，其中記錄了學(xué)生的學(xué)號(hào)，姓名，性別，出生日期，各科成績(jī)等。首先學(xué)號(hào)為字符型長(zhǎng)度為十七位，姓名為字符串型長(zhǎng)度為十七位，性別為字符型，female為女，male為男，出生年月日為整型，例如出生年為1995，出生月為6,出生日為30，各科成績(jī)?yōu)閷?shí)型。1.3功能性需求本程序可對(duì)學(xué)生管理系統(tǒng)的學(xué)生信息進(jìn)

3、行增、刪、改、查、排序、統(tǒng)計(jì)、保存入文件和從文件讀取數(shù)據(jù)等操作。2. 概要設(shè)計(jì)2.1流程程序執(zhí)行的命令包括：(1)錄入(2)讀取信息(3)存入數(shù)組(4)平均分或某課成績(jī)排序(5)姓名或?qū)W號(hào)順序輸出(6)按照年齡和性別查找(7)查找平均分排名及成績(jī)(8)查找某課最高成績(jī)(9)查找某課成績(jī)分?jǐn)?shù)段內(nèi)(10)統(tǒng)計(jì)人數(shù)及百分比(11)修改學(xué)生信息(12)刪除學(xué)生信息(13)插入學(xué)生信息(0)退出系統(tǒng)菜 單信息查詢(xún)統(tǒng)計(jì)信息錄入輸出信息維護(hù)更新信息修改信息刪除信息增加信息錄入信息讀取入放入數(shù)組排序查找圖2-1 流程圖圖2-2 主菜單2.2測(cè)試數(shù)據(jù)學(xué)號(hào) 姓名性別出生日期數(shù)學(xué)成績(jī)語(yǔ)文成績(jī)英語(yǔ)成績(jī)1001sufe

4、male199506073456771002kaimale199405097090891003taofemale199304188090701004beimale1995070799100791005bingmale199609099090901006yafemale199308086050661007geefemale1995062488991001008fanfemale199401016655401009lilimale199406309084621010sangmale1994051570801003. 詳細(xì)設(shè)計(jì) 3.1平均分或某課成績(jī)輸出學(xué)生信息分程序菜單選項(xiàng)數(shù)學(xué)、語(yǔ)文、英語(yǔ)和平均分

5、，選擇按哪個(gè)科目進(jìn)行排序，排序時(shí)用的是冒泡排序，依據(jù)選擇的學(xué)科成績(jī)由大到小排序，排序好了就將信息輸出出來(lái)。3.2查找某課最高成績(jī)注意最高成績(jī)可能不止一人。該分程序建立在選擇科目對(duì)成績(jī)進(jìn)行從大到小排序的基礎(chǔ)上。首先在分程序菜單中選擇要查詢(xún)的科目，然后對(duì)該科目的成績(jī)進(jìn)行從大到小的排序，令第一個(gè)為最高成績(jī)，輸出學(xué)生信息，判斷接下來(lái)的成績(jī)是否等于最高成績(jī)，若等于最高成績(jī)輸出該學(xué)生信息。3.3刪除學(xué)生信息輸入需刪除的學(xué)生學(xué)號(hào)，輸出該學(xué)生信息，使當(dāng)前信息開(kāi)始被下一學(xué)生信息覆蓋，存儲(chǔ)信息個(gè)數(shù)減少。3.4插入學(xué)生信息 學(xué)生信息存儲(chǔ)個(gè)數(shù)增加，將新增信息保存至數(shù)組最后。4. 測(cè)試運(yùn)行測(cè)試運(yùn)行1：主菜單界面 圖4-

6、1 測(cè)試運(yùn)行2：錄入學(xué)生信息圖4-2測(cè)試運(yùn)行3：讀取信息圖4-3測(cè)試運(yùn)行4：平均分或某課成績(jī)排序輸出圖4-4平均分排序輸出 測(cè)試運(yùn)行5：姓名或?qū)W號(hào)順序輸出圖4-5 按姓名查找 測(cè)試運(yùn)行:6：按年齡和性別查找圖4-6 按年齡查找測(cè)試運(yùn)行7：查找平均分排名及成績(jī)圖4-7 測(cè)試運(yùn)行8：查找某課最高成績(jī)圖4-8測(cè)試運(yùn)行9：查找某課成績(jī)分?jǐn)?shù)段內(nèi)圖4-9 測(cè)試運(yùn)行11：修改學(xué)生信息圖4-11 測(cè)試運(yùn)行12：刪除學(xué)生信息圖4-12 測(cè)試運(yùn)行13：插入學(xué)生信息圖4-13測(cè)試運(yùn)行14：退出系統(tǒng)圖4-145. 總結(jié)展望5.1總結(jié)通過(guò)對(duì)學(xué)生管理系統(tǒng)的設(shè)計(jì)，我體會(huì)到了高級(jí)語(yǔ)言的靈活性。并且通過(guò)這個(gè)作業(yè)我了解到自己所掌

7、握的知識(shí)是遠(yuǎn)遠(yuǎn)不夠的！要編出完美的代碼需要自己下去看各種參考資料加上自己的思考。5.2展望 該系統(tǒng)還可在多方面加以拓展： (1)登錄，可設(shè)置用戶(hù)名和密碼。(2) 插入學(xué)生信息時(shí)，若已有相同的學(xué)號(hào)存在，則不允許再插入相同的學(xué)號(hào)的學(xué)生信息。(3) 修改學(xué)生信息時(shí)，可提示，讓用戶(hù)選擇要更改姓名、還是學(xué)號(hào)、還是成績(jī)。而不要默認(rèn)讓用戶(hù)把這個(gè)人的信息全部重新輸入。修改學(xué)號(hào)時(shí)同樣要注意不能出現(xiàn)重復(fù)學(xué)號(hào)(4) 還可在錄入學(xué)生信息時(shí)增加學(xué)院、專(zhuān)業(yè)、民族等信息。6. 參考文獻(xiàn)1 趙致琢.劉坤起等，高級(jí)語(yǔ)言程序設(shè)計(jì)，國(guó)防工業(yè)出版社，2010年2 趙占芳.劉坤起，高級(jí)語(yǔ)言程序設(shè)計(jì)實(shí)驗(yàn)教程，電子工業(yè)出版社，2

8、014年7. 源代碼清單* Auther:sunxiaoying Number:413109030111 Name:Studentmanagement Function:學(xué)生成績(jī)管理系統(tǒng)（數(shù)組) Date:2014_12_25 *program stumanagement;$APPTYPE CONSOLEuses definition in 'definition.pas', inputoutput in 'inputoutput.pas', sortfind in 'sortfind.pas', service in 'service.

9、pas', menu in 'menu.pas' begin /主程序 mainmenu; readln;end. /定義unit definition;interfacetype subject=(math,chinese,english,average); /成績(jī)類(lèi)型 inf=(name,number); student=record infor:arrayname.numberof string17; sex:string10; year:integer; month:integer; day:integer; score:arraymath.average of

10、 real; end; stuarr=array 1.30of student ; sfile=file of student;Var stu:stuarr; stufile:sfile; /文件變量 n,result,counter:integer;implementationEnd./菜單 unit menu;interface uses definition,inputoutput,sortfind,service; procedure mainmenu;implementationprocedure mainmenu;begin /主程序 writeln('*歡迎使用學(xué)生成績(jī)管

11、理系統(tǒng)*'); while true do begin writeln('*'); writeln(' '); writeln(' 菜單： '); writeln(' '); writeln(' 1 錄入 '); writeln(' 2 讀取信息 '); writeln(' 3 存入數(shù)組 '); writeln(' 4 平均分或某課成績(jī)排序 '); writeln(' 5 姓名或?qū)W號(hào)順序輸出 '); writeln(' 6 按照年齡和性

12、別查找 '); writeln(' 7 查找平均分排名及成績(jī) '); writeln(' 8 查找某課最高成績(jī) '); writeln(' 9 查找某課成績(jī)分?jǐn)?shù)段內(nèi) '); writeln(' 10 統(tǒng)計(jì)人數(shù)及百分比 '); writeln(' 11 修改學(xué)生信息 '); writeln(' 12 刪除學(xué)生信息 '); writeln(' 13 插入學(xué)生信息 '); writeln(' 0 結(jié)束 '); writeln('請(qǐng)用戶(hù)輸入選項(xiàng)：');

13、 readln(n); case n of 1: savetofile(stufile); 2: outfromfile(stufile); 3: setuparray(stufile,stu,counter); 4: sortbyscore(stu); 5: sortbyorder(stu); 6: findbyns(stu,counter); 7: findbyranking(stu,counter); 8: findbyhighest(stu); 9: findbyrange(stu); 10: count(stu,counter); 11: revise(stu,counter); 1

14、2: delete(stu,counter); 13: append(stu,counter); /追加 0:begin ending; break; end; end; end; readln;end;End./錄入輸出 unit inputoutput;interface uses definition; procedure savetofile(Var stufile:sfile); procedure outfromfile(Var stufile:sfile); procedure setuparray(var stufile:sfile;var stu:stuarr;var cou

15、nter:integer);implementation功能：將輸入的學(xué)生信息保存到文件中 便于多次運(yùn)行 參數(shù)：變參stufile表示學(xué)生信息保存地址 procedure savetofile(Var stufile:sfile);Var i,n:integer; sum:real; s:student;begin TODO -oUser -cConsole Main : Insert code here assign(stufile,'student.dat'); rewrite(stufile); /以寫(xiě)狀態(tài)打開(kāi)文件 writeln('請(qǐng)輸入班級(jí)人數(shù)：');

16、 readln(n); writeln('請(qǐng)輸入學(xué)生的信息'); writeln('提示：女：female 男：male'); for i:=1 to n do begin sum:=0; writeln('學(xué)號(hào):'); readln(rnumber); writeln('姓名:'); readln(rname); writeln('性別:'); readln(s.sex); writeln('出生日期:'); readln(s.year); readln(s.month);

17、 readln(s.day); if 2014-s.year>30 then /判斷日期是否正確 begin writeln('年齡超范圍 輸入錯(cuò)誤 請(qǐng)重新輸入學(xué)生信息'); readln(s.year,s.month,s.day); end else begin case s.month of 1,3,5,7,8,10,12:result:=31; 4,6,9,11:result:=30; 2:if (s.year mod 4=0) and (s.year mod 100<>0) or (s.year mod 400=0) then result:=29 e

18、lse result:=28; end; if s.day>result then begin writeln('輸入期有誤 請(qǐng)重新輸入') ; readln(s.year,s.month,s.day); end; end; writeln('數(shù)學(xué)：'); readln(s.scoremath); sum:=sum+s.scoremath; writeln('語(yǔ)文：'); readln(s.scorechinese); sum:=sum+s.scorechinese; writeln('英語(yǔ)：'); readln(s.sco

19、reenglish); sum:=sum+s.scoreenglish; writeln('平均分：'); s.scoreaverage:=sum/3; writeln(s.scoreaverage:4:0); write(stufile,s); end; close(stufile);end;功能：非首次運(yùn)行 從文件中讀取已保存學(xué)生信息 參數(shù)：變參stufile表示學(xué)生信息保存地址 procedure outfromfile(Var stufile:sfile);Var s:student;begin assign(stufile,'student.dat')

20、; reset(stufile); writeln('學(xué)號(hào) 姓名 性別 出生日期 數(shù)學(xué) 語(yǔ)文 英語(yǔ) 平均分'); writeln('_'); while not eof(stufile) do begin read(stufile,s); writeln(rnumber,#9,rname,#9,s.sex,#9,s.year:8,s.month:4,s.day:4,s.scoremath:8:0,s.scorechinese:8:0,s.scoreenglish:8:0,s.scoreaverage:8:0); end; close(st

21、ufile);end;功能；將原始數(shù)據(jù)保存到數(shù)組stu中 參數(shù)：變參stufile表示學(xué)生信息保存地址，變參stu表示數(shù)組,變參counter表示存儲(chǔ)學(xué)生信息個(gè)數(shù)procedure setuparray(var stufile:sfile;var stu:stuarr;var counter:integer);begin counter:=0; /數(shù)組存儲(chǔ)學(xué)生信息個(gè)數(shù) assign(stufile,'student.dat'); reset(stufile);/以讀狀態(tài)打開(kāi)文件 while not eof(stufile) do begin counter:=counter+1

22、; read(stufile,stucounter);/每讀出一個(gè)數(shù)據(jù)，放入數(shù)組中 end; close(stufile);end;End./排序查找統(tǒng)計(jì) unit sortfind;interface uses definition; procedure sortbyscore(var stu:stuarr); procedure sortbyorder(var stu:stuarr ); procedure findbyns(var stu:stuarr;var counter:integer); procedure findbyranking(var stu:stuarr;var cou

23、nter:integer) ; procedure findbyhighest(Var stu:stuarr); procedure findbyrange(var stu:stuarr); procedure count(var stu:stuarr;var counter:integer);implementation功能：按照選項(xiàng)對(duì)學(xué)生信息進(jìn)行從高到低排序 參數(shù)：變參stu表示數(shù)組，枚舉變量sortchoice1表示選擇的排序方式，變量counter表示數(shù)組存儲(chǔ)學(xué)生信息個(gè)數(shù) procedure sort1( var stu:stuarr; sortchoice1:subject;var

24、counter:integer);var i,j:integer; temp:student;begin for i:=1 to counter-1 do for j:=1 to counter-i do begin if stuj.scoresortchoice1<stuj+1.scoresortchoice1 then begin temp:=stuj; stuj:=stuj+1; stuj+1:=temp; end; end; writeln('排序結(jié)果為：'); writeln('學(xué)號(hào) 姓名 性別 出生日期 數(shù)學(xué) 語(yǔ)文 英語(yǔ) 平均分'); writ

25、eln('_'); for i:=1 to counter do begin writeln(rnumber,#9,rname,#9,stui.sex,#9,stui.year:8,stui.month:4,stui.day:4,stui.scoremath:8:0,stui.scorechinese:8:0,stui.scoreenglish:8:0,stui.scoreaverage:8:0); end;end;功能：按照平均分或者某課成績(jī)排序輸出 參數(shù)：變參stu表示數(shù)組 procedure sortbyscore(var stu:st

26、uarr);var sortnumber:integer;begin writeln('1 math'); writeln('2 chinese'); writeln('3 english'); writeln('4 average'); writeln('選擇排序方式：'); readln(sortnumber); case sortnumber of 1: sort1(stu,math,counter); 2: sort1(stu,chinese,counter); 3: sort1(stu,english,c

27、ounter); 4: sort1(stu,average,counter); end;end;功能：按照選項(xiàng)將學(xué)生信息從小到大進(jìn)行排序 參數(shù)：變參stu表示數(shù)組，枚舉變量sortchoice1表示選擇的排序方式，變量counter表示數(shù)組存儲(chǔ)學(xué)生信息個(gè)數(shù) procedure sort2(var stu:stuarr; sortchoice2:inf;var counter:integer); /從小到大排序var i,j:integer; temp:student;begin for i:=1 to counter-1 do for j:=1 to counter-i do begin if

28、 rsortchoice2>stuj+1.inforsortchoice2 then begin temp:=stuj; stuj:=stuj+1; stuj+1:=temp; end; end; writeln('排序結(jié)果為：'); writeln('學(xué)號(hào) 姓名 性別 出生日期 數(shù)學(xué) 語(yǔ)文 英語(yǔ) 平均分'); writeln('_'); for i:=1 to counter do begin writeln(rnumber,#9,rname,#9,stui.sex,#9,stui.y

29、ear:8,stui.month:4,stui.day:4,stui.scoremath:8:0,stui.scorechinese:8:0,stui.scoreenglish:8:0,stui.scoreaverage:8:0); end;end;功能：按照姓名或者學(xué)號(hào)排序輸出 參數(shù)：變參stu表示數(shù)組procedure sortbyorder(var stu:stuarr );var sortnumber:integer;begin writeln('選擇排序方式：'); writeln('1 姓名'); writeln('2 學(xué)號(hào)'); r

30、eadln(sortnumber); case sortnumber of 1: sort2(stu, name, counter); 2: sort2(stu, number, counter); end;end;功能：按照年齡或性別查找學(xué)生信息 參數(shù)：變參stu表示數(shù)組，變量counter表示數(shù)組存儲(chǔ)學(xué)生信息個(gè)數(shù)procedure findbyns(var stu:stuarr;var counter:integer);var x,findnumber,i:integer; y:string;begin writeln('選擇查找方式：'); writeln('1

31、年齡 '); writeln('2 性別'); readln(findnumber); case findnumber of 1: begin write('請(qǐng)輸入出生年份：'); readln(x); writeln('學(xué)號(hào) 姓名 性別 出生日期 數(shù)學(xué) 語(yǔ)文 英語(yǔ) 平均分'); for i:=1 to counter do begin if x=stui.year then begin writeln(rnumber,#9,rname,#9,stui.sex,#9,stui.year:8,stui.m

32、onth:4,stui.day:4,stui.scoremath:8:0,stui.scorechinese:8:0,stui.scoreenglish:8:0,stui.scoreaverage:8:0); break; end; end; end; 2: begin write('請(qǐng)輸入性別：'); readln(y); writeln('學(xué)號(hào) 姓名 性別 出生日期 數(shù)學(xué) 語(yǔ)文 英語(yǔ) 平均分'); for i:=1 to counter do begin if y=stui.sex then begin writeln(rnumber,#9

33、,rname,#9,stui.sex,#9,stui.year:8,stui.month:4,stui.day:4,stui.scoremath:8:0,stui.scorechinese:8:0,stui.scoreenglish:8:0,stui.scoreaverage:8:0); break; end; end; end; end;end;功能：查找平均分排名及成績(jī) 參數(shù)：變參stu表示數(shù)組，變量counter表示數(shù)組存儲(chǔ)學(xué)生信息個(gè)數(shù) procedure findbyranking(var stu:stuarr;var counter:integer) ;var i,

34、j:integer; temp:student; num:string;begin writeln('請(qǐng)輸入需要查找平均分排名和成績(jī)的學(xué)生學(xué)號(hào)：'); readln(num); for i:=1 to counter-1 do for j:=1 to counter-i do begin if stuj.scoreaverage<stuj+1.scoreaverage then begin temp:=stuj; stuj:=stuj+1; stuj+1:=temp; end; end; writeln('平均分總排名：'); writeln('學(xué)

35、號(hào) 姓名 性別 出生日期 數(shù)學(xué) 語(yǔ)文 英語(yǔ) 平均分'); writeln('_'); for i:=1 to counter do begin writeln(rnumber,#9,rname,#9,stui.sex,#9,stui.year:8,stui.month:4,stui.day:4,stui.scoremath:8:0,stui.scorechinese:8:0,stui.scoreenglish:8:0,stui.scoreaverage:8:0); end; writeln('_'); for i:=1

36、 to counter do begin if num=rnumber then begin writeln('該同學(xué)的平均分排名為：',i) ; writeln('成績(jī)?nèi)缦拢?#39;); writeln(' 數(shù)學(xué) 語(yǔ)文 英語(yǔ) 平均分'); writeln(stui.scoremath:8:0,stui.scorechinese:8:0,stui.scoreenglish:8:0,stui.scoreaverage:8:0); break; end; end;end;功能：查找最高成績(jī) 參數(shù)：變參stu表示數(shù)組，變量counter表示

37、數(shù)組存儲(chǔ)學(xué)生信息個(gè)數(shù)，枚舉變量subjectchoice表示選擇的科目procedure part(var stu:stuarr;subjectchoice:subject;var counter:integer);var i:integer ; highest:real;begin writeln('成績(jī)最高的學(xué)生信息：'); writeln('學(xué)號(hào) 姓名 性別 出生日期 數(shù)學(xué) 語(yǔ)文 英語(yǔ) 平均分'); writeln('_'); writeln(rnumber,#9,rname,#9,stu1.sex,#9

38、,stu1.year:8,stu1.month:4,stu1.day:4,stu1.scoremath:8:0,stu1.scorechinese:8:0,stu1.scoreenglish:8:0,stu1.scoreaverage:8:0); highest:=stu1.scoresubjectchoice; for i:=2 to counter do begin if stui.scoresubjectchoice=highest then begin writeln(rnumber,#9,rname,#9,stui.sex,#9,stui.year

39、:8,stui.month:4,stui.day:4,stui.scoremath:8:0,stui.scorechinese:8:0,stui.scoreenglish:8:0,stui.scoreaverage:8:0); end; if stui.scoresubjectchoice<highest then begin break ; end; end;end;功能：選擇科目 輸出該科目最高成績(jī) 參數(shù)：變參stu表示數(shù)組 procedure findbyhighest(Var stu:stuarr);var findnumber:integer;begin writeln(

40、9;選擇查找方式：'); writeln('1 math'); writeln('2 chinese'); writeln('3 english'); writeln('請(qǐng)輸入選擇的科目'); readln(findnumber); case findnumber of 1:begin sort1(stu,math,counter); part(stu,math,counter); end; 2:begin sort1(stu,chinese,counter); part(stu,chinese,counter); end

41、; 3:begin sort1(stu,english,counter); part(stu,english,counter); end; end;end;功能：查找成績(jī)范圍 參數(shù)：枚舉變量subjectchoice表示選擇的科目，變參stu表示數(shù)組，變量counter表示數(shù)組存儲(chǔ)學(xué)生信息個(gè)數(shù)procedure range(var stu:stuarr;subjectchoice:subject;var counter:integer);var i: integer; mindata,maxdata:real;begin writeln('輸入查找范圍的最小值'); readl

42、n(mindata); writeln('輸入查找范圍的最大值') ; readln(maxdata); writeln('學(xué)號(hào) 姓名 性別 出生日期 數(shù)學(xué) 語(yǔ)文 英語(yǔ) 平均分'); writeln('_'); for i:=1 to counter do begin if (stui.scoresubjectchoice<=maxdata) and (stui.scoresubjectchoice>=mindata) then begin writeln(rnumber,#9,rname,#9,s

43、tui.sex,#9,stui.year:8,stui.month:4,stui.day:4,stui.scoremath:8:0,stui.scorechinese:8:0,stui.scoreenglish:8:0,stui.scoreaverage:8:0); end; end;end;功能：選擇科目 輸出該科目分?jǐn)?shù)段內(nèi)的學(xué)生信息 參數(shù)：變參stu表示數(shù)組 procedure findbyrange(var stu:stuarr); / 分?jǐn)?shù)段var findnumber:integer;begin writeln('選擇查找方式：'); writeln('1 math'); writeln('2 chinese'); writeln('3 english'); writeln('請(qǐng)輸入選擇的科目'); readln(findnumber); case findnumber of 1