ハッシュ法でのデータ管理について教えてください

質問

ハッシュ法でのデータ管理をするプログラムを作りたいんですが長いことPASCALに触ってなかったせいか全く分かりません。
どなたか教えていただけないでしょうか？？問題の概要は以下のようなものです。
表に登録するデータについては、キーは英数字からなる長さ８までの文字列でデータ本体は整数（型名はintegerでよい）です。
ハッシュ表のサイズは１１とします。
ハッシュ関数は文字列xの各文字のASCIIコードの総和を１１で割った余りとします。
さらにメニュー表示として入力した文字により行う操作を決定します。
どの文字がどのような操作を行うのかは以下のとおりです。

's' の場合： ハッシュ表に登録されている全レコードを，ハッシュ関数値毎に(キーの値とデータの両方を)すべて表示します．

'r' の場合： さらに「キーの値」と「データ」を入力し，すでに同じキーをもつデータがあれば「二重登録」として検出し，そうでなければ，そのレコードをハッシュ表に登録します．

'e' の場合： さらに「キーの値」を入力し，そのキーをもつデータがハッシュ表に登録されているならば，
そのデータを表示します．さらに削除するかどうかを入力させて，削除する選択をした場合にはそのレ
コードを削除します．そのキーをもつデータがハッシュ表にない場合には「そのキーをもつレコードが
ないこと」を出力しますが，ハッシュ表には操作を加えません．

'i' の場合： ハッシュ表に登録されている全レコードを，キーの値が小さい順に表示します．ここで「キー
の値の順」とは，文字列の辞書順のことを意味します．Pascal では，文字列a,b に対して，a がb より
辞書的順序が先(小さい) ときには「a<b」で表現できます．

'd' の場合： 「'i' の場合」の逆で，キーの値が大きい順に表示します．

'q' の場合： プログラムを終了します．具体的には，実行文部の最後の「end.」の直前までジャンプし
ます．

長くなってすいません。ちょっとしたヒントでもいいので教えていただければ幸いです。

回答No.7

SHIMAPEE

ANo.5の改造版の抜粋です。チェーン内でキーが昇順になるようにしてみました。WindwosXP+Delphi2007で試しました。

ANo.5で、やや不自然か、とコメントしたのは、挿入した逆順に表示されるからです。そう作ったのだからそれはそうなのですが、挿入した順に表示された方が人間にはわかりやすいと思いました。

今回、更に考えてキーの昇順にしてみました。キーの大小関係を見ながら検索、挿入するので衝突が多い場合は性能向上が図れると思います。ま、いろいろ勉強してみました、ということでご参考まで。

function search(x:charstring; var p:list): boolean;
var
previous:list;
comp:integer;
begin
Result:=false;
previous:=nil;
p:=hashtable[hash(x)];
while p<>nil do begin {ハッシュ表が空の場合、pはnilを返す。}
comp:=strLcomp(p^.key, x, sizeof(x)-1);
if comp=0 then begin {キーが一致したならば、}
Result:=true; {結果をtrueにして、}
break {pはキーが一致したレコードを返す。}
end;
if comp<0 then begin {xの方が大きければ、}
if p^.next<>nil then begin {次のレコードがあれば、}
previous:=p; {前のレコードの位置を覚えて、}
p:=p^.next; {チェーンをたどる。}
end
else {次のレコードがなければ、}
break {pはチェーン最後のレコードを返す。}
end
else begin {xの方が小さければ、}
p:=previous; {pは前のレコードの位置を返す。先頭だった場合はnilを返す。}
break
end;
end;
end;

procedure insert(x:charstring; y:integer; previous:list);
var h : integer;
newp : list;
begin
h := hash(x);
new(newp);
newp^.key := x;
newp^.othertype := y;
if previous=nil then begin {前のレコードがなければ、}
newp^.next:=hashtable[h];{先頭に挿入する。}
hashtable[h]:=newp
end
else begin {前のレコードがあれば}
newp^.next:=previous.next;{そのレコードの次に挿入する。}
previous.next:=newp; {（チェーン内のキーは昇順）}
end;
end;
　：
　：
'r':begin {登録=========================================================}
write('キー　:'); readln(strx);
write('データ:'); readln(stry);
for ix:=0 to sizeof(x)-1 do x[ix]:=#0;
strLCopy(x, PChar(strx), sizeof(x)-1);
y:=StrtoIntDef(stry, 0);
if search(x, p) then
writeln('キー"'+x+'"は既に登録されています。データ：', IntToStr(p^.othertype))
else
insert(x, y, p);
end;

お礼

Resultはsearchのことだと思うのですが,strLcomp、strLCopy、StrtoIntDefとかって何のことですか？？