LAC-5700 Operatsioonisüsteemid
.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 );
if vabasidPositsioone >= BlokiSuurus then begin
kirjutaMallu( positsioonMalus, BlokiSuurus,
BlokiNimi );
leitiMalu := true;
end;
positsioonMalus := positsioonMalus + 1;
annaabi.ee 
