Модульное программирование в Турбо Паскале. Бакланов М.В - 16 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

- 16 -
^\mo jZaebqguo dexq_c k1<>k2 agZq_gb_ owr-nmgdpbb kh\iZ^Z_l h(k1)=h(k2) ),
gZau\Z_lkydheebab_c 
Ijbj_r_gbbgZr_caZ ^Zqbg_h[oh^bfhijZ\bevgh\u[jZlvowr-nmgdpbx h(k)
bgZclbkihkh[ujZaj_r_gby\hagbdZxsbodheebabc <^Zgghffh^me_ij_^eZ]Z_lky
hj]Zgbah\Zlv owr-lZ[ebpm \ \b^_ ebg_cgh]h fZkkb\Z \ dZq_kl\_ owr-nm gdpbb
\u[jZlv f_lh^ k\zjldbkf gb`_ Z \ dZq_kl\_ kihkh[Z jZaj_r_gby dheebabc –
ebg_cgh_hijh[h\Zgb_kfgb`_
<ZjbZgl f_lh^Z k\zjldb bkihevam_fuc \ ^Zgghc aZ^Zq_ R_klbagZqguc
ghf_j :LK k=a
1
a
2
a
3
a
4
a
5
a
6
jZa[b\Z_lky gZ ^\_ ljzoagZqgu_ pbnju a
1
a
2
a
3
b a
4
a
5
a
6
.
:^j_khfaZibkb\owr-lZ[ebp_[m^_lh(k) = (a
1
a
2
a
3
+ a
4
a
5
a
6
) mod M]^_F –jZaf_j
owr-lZ[ebpu
Ebg_cgh_ hijh[h\Zgb_ khklhbl \ lhf qlh ijb \hagbdgh\_gbb dheebabb ijb
^h[Z\e_gbbaZibkvihf_sZ_lky\ke_^mxsmxk\h[h^gmxyq_cdmowr -lZ[ebpu
(*******************************************************************)
(* *)
-
(* *)
(*******************************************************************)
unit
Hash;
interface
const
-
type
TPhone = string
[PhoneLen];
TFIO =
string
[FIOLen];
TInfo = record
-
end
;
THashItem = record
-
end
;
THashTable = record
-
Size : Integer;
H : array
[0..HTableLen-1] of THashItem
end
; 
                                       - 16 -
^\mo jZaebqguo dexq_c k1<>k2 agZq_gb_ owr-nmgdpbb kh\iZ^Z_l h(k1)=h(k2) ),
gZau\Z_lkydheebab_c

      Ijbj_r_gbbgZr_caZ^Zqbg_h[oh^bfhijZ\bevgh\u[jZlvowr-nmgdpbx h(k)
bgZclbkihkh[ujZaj_r_gby\hagbdZxsbodheebabc<^Zgghffh^me_ij_^eZ]Z_lky
hj]Zgbah\Zlv owr-lZ[ebpm \ \b^_ ebg_cgh]h fZkkb\Z \ dZq_kl\_ owr-nmgdpbb
\u[jZlv f_lh^ k\zjldb kf gb`_  Z \ dZq_kl\_ kihkh[Z jZaj_r_gby dheebabc –
ebg_cgh_hijh[h\Zgb_ kfgb`_ 
      ebgZ kljhdb ^ey ojZg_gby NBH              `
type
  TPhone = string[PhoneLen];
  TFIO   = string[FIOLen];
  TInfo = record           ^ OjZgbfZy \ owr-lZ[ebp_ bgnhjfZpby `
      3KRQH 73KRQH           ^ R_klbagZqguc l_e_nhg Z[hg_glZ              `
      ),2  7),2               ^ NBH Z[hg_glZ                               `
  end;

  THashItem = record           ^ Yq_cdZ owr-lZ[ebpu                         `
    ,QIR 7,QIR               ^ BgnhjfZpby                                 `
    XVHG %RROHDQ              ^ IjbagZd bkihevah\Zgby yq_cdb               `
  end;

  THashTable = record     ^ Owr-lZ[ebpZ                                     `
    Size : Integer;
    H    : array [0..HTableLen-1] of THashItem
  end;

  ^ <\h^ l_e_nhgZ `

Страницы