發信人： LinJarway (阿尾) 看板：math89
日期： Fri Jun 13 21:26:04 1997
標題： 計程Lab6
來源： 中山大學 Formosa BBS Client
今天下午我到Ｂ樓時，發現計程的LAB6好像很少人交，
而且，我又聽到有很多人還沒寫出來，
我想再不交的話，時間就到了，所以忍不住打了一份陽春版的LAB6
還沒寫的人就將就一下，改幾個名稱交了好專心應付下週的期末考吧。
--------------------------------------------------------------
type ptrtype=^student;
student=record
link:ptrtype;
data:string;
end;
var id,head:array['A'..'Z'] of ptrtype;
select:char;
procedure initalize;
var i:char;
begin
for i:='A' to 'J' do
begin
new(head[i]);
head[i]^.link:=head[i];
id[i]:=head[i];
end;
end;
procedure borrow;
var tmp:ptrtype;
stdid:char;
begin
new(tmp);
write(#2,'Student ID : ');
readln(stdid);
if stdid in ['a'..'j'] then stdid:=char(ord(stdid)-32);
if stdid in ['A'..'J'] then
begin
write('Name of the Book: ');
readln(tmp^.data);
id[stdid]^.link:=tmp;
id[stdid]:=tmp;
id[stdid]^.link:=head[stdid];
end
else writeln(#1,'No such student !');
end;
procedure return;
var tmp,last:ptrtype;
stdid:char;
book:string;
found:boolean;
begin
write(#2,'Student ID : ');
readln(stdid);
if stdid in ['a'..'j'] then stdid:=char(ord(stdid)-32);
if stdid in ['A'..'J'] then
begin
write('Name of the Book: ');
readln(book);
last:=id[stdid];
id[stdid]:=head[stdid];
found:=false;
while (id[stdid]^.link<>head[stdid]) and not found do
begin
tmp:=id[stdid];
found:=(id[stdid]^.link^.data=book);
id[stdid]:=id[stdid]^.link;
end;
if found then
begin
id[stdid]:=tmp;
if last=id[stdid]^.link then last:=id[stdid];
tmp:=id[stdid]^.link;
id[stdid]^.link:=tmp^.link;
dispose(tmp);
end
else writeln(#1,'No such book!');
id[stdid]:=last;
end
else writeln(#1,'No such student !');
end;
procedure list;
var i:char;
last:ptrtype;
begin
for i:='A' to 'J' do
begin
last:=id[i];
id[i]:=head[i]^.link;
if id[i]<>head[i] then writeln('Student ',i,' :');
while id[i]<>head[i] do
begin
writeln(id[i]^.data);
id[i]:=id[i]^.link;
end;
id[i]:=last;
end;
end;
begin
initalize;
repeat
write(#1,'Borrow/Return/List/Exit : ');
readln(select);
case select of
'B','b': borrow;
'R','r': return;
'L','l': list;
'E','e': begin end;
else writeln(#2,'Wrong Selection!!');
end;
until select in ['E','e'];
writeln(#2,'Bye~~');
end.
---------------------------------------------------------------------
PS:寫得雖然不好，但是有交就好，不是嗎？
--
中 十 年 守┐╓─→上站為交友之本→交友為寫信之本→寫信為聊天之本─╖
土 ︱ ╞╝╓─本之瘡痔為祕便←本之祕便為屁打←本之屁打為天聊←╜
日 ︱ │ ╙→「阿 尾 總 是 比 較 含 蓄 ，
山 'I ︱ 則┘ 你 們 要 多 多 寫 信 關 心 他 ……㊣」
|