Originally Posted by mynameisrich

Hi, i have an assignment that involves me making a hash table which stores strings. I am struggling to find a good example of a hash table anywhere and would be greatful if someone could give me an idea of the basic code or even pseudocode for it.

ineed to
initialise the table
display the table
search it
and insert to it

my data type is

Help with Code Tags

(Toggle Plain Text)

type HTable = array [0 .. tableSize-1] of integer;

type HTable = array [0 .. tableSize-1] of integer;

firstly- should it say string instead of integer?

my initialise procedure basically runs through the array assigning giving each item the value 0

Help with Code Tags

(Toggle Plain Text)

procedure initialise(var h: HTable);
var i:integer;
begin
i:=0 ;
for i := 0 to tableSize-1 do
h[i]:= 0 ;
end;

procedure initialise(var h: HTable); var i:integer; begin i:=0 ; for i := 0 to tableSize-1 do h[i]:= 0 ; end;

is this correct and again should i be assigning everything a blank char ' ' ?

My display procedure is similar but it write to the screen

Help with Code Tags

(Toggle Plain Text)

procedure display (h: HTable; filename: string);
var i:integer;
begin
i:=0  ;
for i := 0 to tableSize-1 do
begin
WriteLn ('#',i,': ',h[i]) ;
End;
end;

procedure display (h: HTable; filename: string); var i:integer; begin i:=0 ; for i := 0 to tableSize-1 do begin WriteLn ('#',i,': ',h[i]) ; End; end;

this is how i have started and my program compiles but when i choose to display the list nothing at all happens, i have done something terribly wrong here?

thansk alot