小女子求pascal语言的学生成绩管理系统~~

来源：百度知道 编辑：UC知道 时间：2024/07/08 09:28:49
偶今年大一,老师要我们交份pascal语言的学生成绩管理系统,在网上找了老半天都找8到,据说这语言已经都8怎么用了,不知道为什么老师还要我们做这个,5555555555,不交的话这门学科就挂了,实在是米办法了,跪求哥哥姐姐们给想想办法,有这个系统代码的发给偶邮箱:snoopyxdy@163.com或回贴下,小女子感激不尽```````
我已经弄了一份c语言的交给老师了，可是他说我唬他，55555555，老师太变态了，好郁闷````真怕挂科。。。大家帮帮我啊，我真的没办法了。。。要哭了
只要学生的成绩录入、修改、查询和删除就可以了，不用排名那些的，谢谢帮忙！！

program work;
const maxn=10000;
var i,j,top:longint;
s:string;
b:boolean;
inputs:text;
name:array[1..maxn]of string;
exam:array[1..maxn]of longint;
procedure out;
begin
writeln('Error');
end;
procedure todelete;
var i,j:longint;
ss:string;
begin
readln(ss);
for i:=1 to top do
if name[i]=ss then
begin
for j:=i to top-1 do
begin
name[j]:=name[j+1];
exam[j]:=exam[j+1];
end;
dec(top);
exit;
end;
writeln('Can''t find it');
end;
procedure toinput;
var ss:string;
i:longint;
begin
inc(top);
readln(ss);
name[top]:=ss;
readln(i);
exam[top]:=i;
end;
procedure tooutput;
var ss:string;
begin
readln(ss);
for i:=1 to t