Join us at IRC!
Understanding is the answer, hatred is the problem, and hackers are the slaves abused and destroyed in the process of peace online - Deshouleres
Friday, May 25, 2012
Navigation
Members Online
Total Online: 22
Web Spiders: 11
Guests Online: 21
Members Online: 1

Registered Members: 70208
Newest Member: andresuran
Latest Articles
View Thread

HellBound Hackers | Computer General | Programming

Author

pascal hashing function

santus
Member



Posts: 15
Location: I hate pichacu
Joined: 15.01.07
Rank:
God
Posted on 20-05-10 07:40
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.

okey, i have search and insert function can someone suggest hashfunction?
<script >i=0;while (i<=5){alert ('just santus ' )}</script>
Guest
Username

Password

Remember Me


Bookmark This Page
Affiliates
Adverts

 

 

Links
By using, viewing or obtaining any information contained on this site, you agree to the disclaimer.

© HellBound Hackers 2008- 2009. Since 3rd December 2004.