Informatyka MIMUW

<b>const</b> M = 100;
 D = 100;
<b>type</b> Tab = array[0..D-1] of ^array[0..M-1]; 
Str = record
 T:Tab;
 poczD,konD, poczM, konM:integer; 
end;

<b>function</b> Wstaw(var S:Str; liczba: integer):boolean; 
//wstawiamy liczbę do struktury S (S.T[S.poczD]^[S.poczM] to pierwsza liczba w ciągu, 
//S.T[S.konD]^[S.konM] to pierwsze wolne miejsce w S 
//Wstaw staje się false wtedy i tylko wtedy, gdy struktura S jest pełna 
<b>begin</b> 
<b>if</b> (S.konD=S.poczD <b>and</b> S.konM+1=S.poczM) <b>or</b> ((S.konD+1) mod D = S.poczD <b>and</b> S.konM=M-1 <b>and</b> S.poczM=0) <b>then</b> 
Wstaw:=false 
<b>else</b> <b>begin</b>
 Wstaw:=true; 
<b>if</b> S.konM = 0 <b>and</b> S.poczD &lt;&gt;S.konD <b>then</b> New(S.T[S.konD]); 
S.T[S.konD]^[S.konM]:=liczba; 
S.komM:=(S.komM+1) mod M; 
<b>if</b> S.konM=0 <b>then</b> S.konD:=(S.konD+1) mod D; 
<b>end</b>; 
<b>end</b>;

<b>function</b> Pobierz(var S:Str; var liczba: integer):boolean;
//pobieramy liczbę ze struktury S (S.T[S.poczD]^[S.poczM] to pierwsza liczba w ciągu, 
//S.T[S.konD]^[S.konM] to pierwsze wolne miejsce w S 
//Pobierz staje się false wtedy i tylko wtedy, gdy struktura S jest pusta
<b>begin</b> 
<b>if</b> (S.konD=S.poczD <b>and</b> S.konM=S.poczM) <b>then</b>
Pobierz:=false 
<b>else</b> <b>begin</b> 
Pobierz:=true; 
liczba:=S.T[S.poczD]^[S.poczM];
S.poczM:=(S.poczM+1) mod M; 
<b>if</b> S.poczM=0 <b>then</b> <b>begin</b> 
<b>if</b> S.konD &lt;&gt; S.pocz <b>then</b> Dispose(S.T[poczD]);
 S.poczD:=(S.poczD+1) mod D; 
<b>end</b>; 
<b>end</b>; 
<b>end</b>;

<b>const</b> N = 100; 
<b>type</b> rodzaj = (napis, liczba)
 Dane = record 
case co:rodzaj of 
napis: (s:string) 
liczba: (l:liczba) 
end; 
Eltab = record 
klucz:integer;
 case co:rodzaj of 
napis: (wsk:^string) 
liczba: (l:liczba) 
end; 
<b>var</b> T: array[0..N] of Eltab

<b>procedure</b> Wstaw(klucz: integer; var d: Dane); 
//wstawiamy dane z d do tablicy T na pierwsze wolne miejsce, zaczynając od indeksu klucz mod (N+1) 
//zakładamy, że są wolne miejsca w tablicy T 
<b>var</b> k:integer; 
<b>begin</b> 
k:=klucz mod (N+1);
 <b>while</b> T[k].klucz &lt;&gt; -1 <b>do</b> k:=(k+1) mod (N+1);
 T[k].klucz:=klucz; 
T[k].co:=d.co; 
<b>case</b> d.co <b>of</b>
 napis: New(T[k].wsk); T[k].wsk^:=d.s;
 liczba: T[k].l:=d.l 
<b>end</b>; 
<b>end</b>;

<b>function</b> Daj(klucz: integer; var d: Dane):boolean; 
//pobieramy liczbę lub napis z tablicy T skojarzonych z kluczem klucz 
//zakładamy, że są wolne miejsca w tablicy T 
<b>var</b> i:integer; 
<b>begin</b> 
k:=klucz mod (N+1); 
<b>while</b> T[k].klucz &lt;&gt; klucz <b>and</b> T[k].klucz &lt;&gt; -1 <b>do</b> k:=(k+1) mod (N+1); 
<b>if</b> T[k].klucz = -1 <b>then</b> 
Daj:=false 
<b>else</b> <b>begin</b>
 Daj:=true;
 d.co:=T[k].co;
 <b>case</b> d.co <b>of</b>
 napis: d.s:=T[k].wsk^;
 liczba: d.l:=T[k].l; 
<b>end</b>; 
<b>end</b>; 
<b>end</b>;

<b>const</b> N = 100;
 <b>type</b> rodzaj = (pełny, pusty);
 Eltab = record
 case rodzaj of
 pełny: (d:T)
 pusty: (nast:integer)
 end;
 Str = record 
T:array[1..N] of Eltab;
 pierwszy:integer; 
end;

<b>procedure</b> InitT(var S:Str);
 //wszystkie pola ustawiamy na puste, nast wskazują na następne pole lub zero; pierwszy staje się równy 1 
<b>var</b> i:integer;
 <b>begin</b> 
<b>for</b> i:=1 <b>to</b> N <b>do</b> S.T[i].nast:=(i+1) mod (N+1);
 S.pierwszy:=1;
 <b>end</b>;

<b>function</b> NewT(var S:Str; var nowy:integer):boolean; 
//nowy to indeks któregoś z dotychczas pustych pól w S.T; jeśli takich nie ma, to New będzie miało wartość false 
<b>begin</b>
 <b>if</b> S.pierwszy = 0 <b>then</b> 
New:=false 
<b>else</b> <b>begin</b>
New:=true;
 nowy:=S.pierwszy;
 S.pierwszy:=S.T[S.pierwszy].nast;
 <b>end</b>;
 <b>end</b>;
 

<b>procedure</b> DisposeT(var S:Str; d:integer);
//zwalniamy indeks d w tablicy S.T 
<b>begin</b>
 S.T[d].nast:=S.pierwszy;
 S.pierwszy:=d; 
<b>end</b>;

<b>procedure</b> Sort(var A:array[1..N] of ^string); 
//sortujemy leksykograficznie tablicę wskażników do słów 
<b>var</b> i,j,min: integer;
 pom: ^string;
 <b>begin</b>
 <b>for</b> i:=1 <b>to</b> N <b>do</b> <b>begin</b> 
min:=i; 
<b>for</b> j:=i+1 <b>to</b> N <b>do</b> 
<b>if</b> compare(A[j]^,A[i]^) <b>then</b> min:=j;
 pom:=A[i];
 A[i]:=A[min];
 A[min]:=pom;
 <b>end</b>;
 <b>end</b>;