請問如何用delphi做一個整理學生資料的程式? |
尚未結案
|
edcash
一般會員 發表:3 回覆:3 積分:1 註冊:2007-10-20 發送簡訊給我 |
要寫一個程式!!!
要求: 先做個有7個選項的menu 1.加入學生資訊-輸入 姓 名 科系 平均分數. 2.刪除學生資訊-輸入 姓 名. 3.顯示單一個學生資訊- 輸入 姓 名- 顯示 姓 名 科系 平均分數. 4.顯示單一科系學生資訊-輸入 科系- 顯示 姓 名 科系 平均分數. 5.顯示所有學生資訊(依照 姓 來排列)-顯示所有學生資訊 姓 名 科系 平均分數. 6.顯示所有學生資訊(依照 平均分數 來排列,由小到大)-顯示所有學生資訊 姓 名 科系 平均分數. 7.關閉 以下是我目前的框架進度. 想知道下一部該怎麼做? 感謝!!! TYPE adrecordT = RECORD end; var Option : CHAR; Fname : CHAR; Sname : CHAR; course : CHAR; avg : real; add : adrecordT; {1} PROCEDURE add_record(VAR add : adrecordT); BEGIN write('First name: '); readln(Fname); write('Surname: '); readln(Sname); write('course: '); readln(course); write('average: '); readln(avg); END; {case} BEGIN writeln('welcome come to student database'); WHILE Option <> '7' DO BEGIN CASE Option OF '1' : add_record(add); '2' : writeln('unknow'); '3' : writeln('unknow'); '4' : writeln('unknow'); '5' : writeln('unknow'); '6' : writeln('unknow'); end; {menu} BEGIN writeln; writeln('Please choose an option:'); WriteLn('1.Add a student record'); WriteLn('2.Delete a student record'); WriteLn('3.Show a single students record'); WriteLn('4.show all students on a particular course'); WriteLn('5.show all students in alphabetic surname order'); WriteLn('6.show all students in increasing average order'); WriteLn('7.Quit'); END; Write('Please enter your choice: '); ReadLn(Option); end; end. |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |