30 (726)

return (true) ; (Słowo znaleziono)

«ise

bief^cy * bie£$cy*.nasc./

end;

endwhile

raturni/aise) ; (Słowa nic znalezionoJ

end;

procedurę WSTAW[x : słowo; va.r A : słownik) ; var kubełek : 0..a-l;

5:    cyp_Jisrowy;

be^in

if not JTS A) then kubełek :* h (x); szara__głowa : «= A [kubeiek]; new (A(kubełek ] ) ;

Afkubełek) ^A . r := x; .

AA kubeł ek) *. nas t := stara^ęłowa;

endif

end;

procedurę USUŃ(x : słowo; var A : słownik)/ v*ar kubełek : C . .a-l;

s zara^ęlowa :    op^łistowy;

begin    _:

if A(kubełek) O ni i then

if A {kubełekj\ r = :: then

{Słowo .r jesr w pierwszym elemencie]

A f k u bel ek j : * A (k u bel ek) * .msz,; {U sunięcie słowa z lisTy}

alse

{ Słowo z, jeśli występuje nie jest zawarte w pierwszym elemencie} bieżący    A (k u be i ek) ; (órerucy wskazuje na poprzedni element j

whii© bieżący'*. nasz. <> nii do

if bieżący*. nasi*. r = >: then {Usunięcie słowa z lisry) hi eiący* .nasz := bieżący*, nasz . ^A. msz; return; (Wyjście z procedury) eise (Słowa jeszcze nie znaleziono)

bieżący := bieżący*'. nasz;

en cii f; endwhile;

_f    andif;

endif;

end;

41. Dla metody mieszania zamkniętego podać procedury wyszukiwania, wstawiania i usuwania elementu z tablicy mieszającej.

i

V

const puszą - ¹    '; {10 odstępów)

usunięće *    {i o ovia zće k)

typo słowo - pacred array [ 1. . 1C ] of char; słownik - array(0..a-1) of słowo;

function 5JTKAJ(x ; słowo; \nar A : słownik) : in Cegac;

\*ar pocz, i : inceger;

beęin

pocz :» ho{x\: i : - 0 ;

whila (i < ć) and (A((poezji) mod a) <> x) and (A((poezji) rod e) <> pusze) do i : * i * 1 ;

endwhile;

re tum ( Ipocz - i) mod • a) ;

end;

30