LAC-5700 Operatsioonisüsteemid
end;
leiaVabadePositsioonideArv := vabasidKohti;
end;
{ Kirjutab m,,llu alates antud positsioonist, antud pikkuse
ja nimega bloki }
procedure kirjutaMallu( positsioon, pikkus : Integer;
BlokiNimi: Char );
Var
positsioonMalus: 1..maluSuurus;
begin
For positsioonMalus := positsioon to positsioon + pikkus
- 1 do
malu[ positsioonMalus ] := BlokiNimi;
end;
procedure votaMalu( BlokiNimi: Char; BlokiSuurus: Integer );
var
positsioonMalus : 1..maluSuurus;
leitiMalu : boolean;
vabasidPositsioone : Integer;
sobivaimPositsioon : Integer;
sobivaimaPositsiooniSuurus: Integer;
begin
leitiMalu := false;
if maluKysimiseMeetod = 1 then begin
{ Vätta esimene sobiva suurusega m,,lublokk }
positsioonMalus := 1;
Repeat
4
{ Kas positsioonil 'positsioonm,,lus' on sobiva
suurusega... }
vabasidPositsioone :=
leiaVabadePositsioonideArv( positsioonMalus );
annaabi.ee 
