Follow us on Twitter!
Never in the field of human conflict was so much owed by so many to so few. - Winston Churchill
Sunday, April 26, 2015
Navigation
Home
HellBoundHackers Main:
HellBoundHackers Find:
HellBoundHackers Information:
Learn
Communicate
Submit
Shop
Challenges
HellBoundHackers Exploit:
HellBoundHackers Programming:
HellBoundHackers Think:
HellBoundHackers Track:
HellBoundHackers Patch:
HellBoundHackers Other:
HellBoundHackers Need Help?
Other
Members Online
Total Online: 25
Guests Online: 24
TeamSpeak Online : 5 Members Online: 1

Registered Members: 88060
Newest Member: balachandarps
Latest Articles
Our sponsor needs your help!


One of our sponsors needs your help, http://www.virginmediabusiness.co.uk/pitch-to-rich/grow/krystal-hosting/
Go check out their video and Don't forget to vote !


~ Thanks for your help
HBH
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?