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

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

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

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

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

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

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

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

8、014年7. 源代碼清單* Auther:sunxiaoying Number:413109030111 Name:Studentmanagement Function:學(xué)生成績管理系統(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); /成績類型 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é)生成績管

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

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

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); /以寫狀態(tài)打開文件 writeln('請輸入班級人數(shù)：');

16、 readln(n); writeln('請輸入學(xué)生的信息'); writeln('提示：女：female 男：male'); for i:=1 to n do begin sum:=0; writeln('學(xué)號:'); 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('年齡超范圍 輸入錯誤 請重新輸入學(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('輸入期有誤 請重新輸入') ; readln(s.year,s.month,s.day); end; end; writeln('數(shù)學(xué)：'); readln(s.scoremath); sum:=sum+s.scoremath; writeln('語文：'); readln(s.scorechinese); sum:=sum+s.scorechinese; writeln('英語：'); 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é)號 姓名 性別 出生日期 數(shù)學(xué) 語文 英語 平均分'); 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表示存儲學(xué)生信息個數(shù)procedure setuparray(var stufile:sfile;var stu:stuarr;var counter:integer);begin counter:=0; /數(shù)組存儲學(xué)生信息個數(shù) assign(stufile,'student.dat'); reset(stufile);/以讀狀態(tài)打開文件 while not eof(stufile) do begin counter:=counter+1

22、; read(stufile,stucounter);/每讀出一個數(shù)據(jù)，放入數(shù)組中 end; close(stufile);end;End./排序查找統(tǒng)計 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功能：按照選項對學(xué)生信息進(jìn)行從高到低排序 參數(shù)：變參stu表示數(shù)組，枚舉變量sortchoice1表示選擇的排序方式，變量counter表示數(shù)組存儲學(xué)生信息個數(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é)號 姓名 性別 出生日期 數(shù)學(xué) 語文 英語 平均分'); 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;功能：按照平均分或者某課成績排序輸出 參數(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;功能：按照選項將學(xué)生信息從小到大進(jìn)行排序 參數(shù)：變參stu表示數(shù)組，枚舉變量sortchoice1表示選擇的排序方式，變量counter表示數(shù)組存儲學(xué)生信息個數(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é)號 姓名 性別 出生日期 數(shù)學(xué) 語文 英語 平均分'); 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é)號排序輸出 參數(shù)：變參stu表示數(shù)組procedure sortbyorder(var stu:stuarr );var sortnumber:integer;begin writeln('選擇排序方式：'); writeln('1 姓名'); writeln('2 學(xué)號'); 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ù)組存儲學(xué)生信息個數(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('請輸入出生年份：'); readln(x); writeln('學(xué)號 姓名 性別 出生日期 數(shù)學(xué) 語文 英語 平均分'); 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('請輸入性別：'); readln(y); writeln('學(xué)號 姓名 性別 出生日期 數(shù)學(xué) 語文 英語 平均分'); 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;功能：查找平均分排名及成績 參數(shù)：變參stu表示數(shù)組，變量counter表示數(shù)組存儲學(xué)生信息個數(shù) procedure findbyranking(var stu:stuarr;var counter:integer) ;var i,

34、j:integer; temp:student; num:string;begin writeln('請輸入需要查找平均分排名和成績的學(xué)生學(xué)號：'); 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、號 姓名 性別 出生日期 數(shù)學(xué) 語文 英語 平均分'); 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('成績?nèi)缦拢?#39;); writeln(' 數(shù)學(xué) 語文 英語 平均分'); writeln(stui.scoremath:8:0,stui.scorechinese:8:0,stui.scoreenglish:8:0,stui.scoreaverage:8:0); break; end; end;end;功能：查找最高成績 參數(shù)：變參stu表示數(shù)組，變量counter表示

37、數(shù)組存儲學(xué)生信息個數(shù)，枚舉變量subjectchoice表示選擇的科目procedure part(var stu:stuarr;subjectchoice:subject;var counter:integer);var i:integer ; highest:real;begin writeln('成績最高的學(xué)生信息：'); writeln('學(xué)號 姓名 性別 出生日期 數(shù)學(xué) 語文 英語 平均分'); 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;功能：選擇科目 輸出該科目最高成績 參數(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('請輸入選擇的科目'); 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;功能：查找成績范圍 參數(shù)：枚舉變量subjectchoice表示選擇的科目，變參stu表示數(shù)組，變量counter表示數(shù)組存儲學(xué)生信息個數(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é)號 姓名 性別 出生日期 數(shù)學(xué) 語文 英語 平均分'); 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('請輸入選擇的科目'); readln(findnumber); case findnumber of 1