要寫一個程式!!!
要求:
先做個有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.

附加檔案：474d980a6a016_data.exe

編輯記錄