Follow us on Twitter!
Your life is ending one minute at a time. If you were to die tomorrow, what would you do today?
Monday, July 25, 2016
Navigation
Home
 Find:
 Information:
Learn
Communicate
Submit
Shop
Challenges
 Exploit:
 Programming:
 Think:
 Track:
 Patch:
 Other:
 Need Help?
Other
Members Online
Total Online: 40
Guests Online: 39
Members Online: 1

Registered Members: 94714
Newest Member: Zip
Latest Articles
View Thread

HellBound Hackers | Computer General | Programming

Author

pascal hashing function


Member

Your avatar

Posts:
Location:
Joined: 01.01.70
Rank:
Guest
Posted on 20-05-10 07:40
[CODE]program Bevardė7;
const m = 1000;
type datarecord = record
k:string;
end;
mas = array [0..m-1] of datarecord ;
var n:integer;
a:mas;
//----------------------------------
procedure implement;
var i:integer;
begin
for i:=0 to m-1 do
a[i].k:='';
end;

//---------------------------------------------------------------------

//---------------------------------------------
function hashfunction (rakt:string):integer;
var b:integer;
begin
end;
//------------------------------------------------------------------------
procedure insert (reiksme:raktas;var a:mas);

//--------------------------------------------------------------------------
function search(reiksme:raktas;var a:mas):integer;

begin

Readln;
end.[/CODE]
okey, i have search and insert function can someone suggest hashfunction?