LAC-5700 Operatsioonisüsteemid
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 );
if vabasidPositsioone >= BlokiSuurus then begin
kirjutaMallu( positsioonMalus, BlokiSuurus,
BlokiNimi );
leitiMalu := true;
end;
positsioonMalus := positsioonMalus + 1;
Until ( positsioonMalus = maluSuurus ) or LeitiMalu;
end
else begin { Kui kysimise meetod on 2 ... }
{ Valitakse sobivaima suurusega m,,lublokk... }
annaabi.ee 
