LAC-5700 Operatsioonisüsteemid
Peale prgi eelmadamist proovida uuesti, seekord
juba tavalise
m,,lu vabastamise meetodiga, et mitte uuesti prgi
korjama hakata
kui m,,lu ikkagi piisavalt pole.
}
maluVabastamiseMeetod := 1;
votaMalu( BlokiNimi, BlokiSuurus );
maluVabastamiseMeetod := 2;
end
else begin { Kui maluvabastamiseMeetod = 1 -- tavaline
(pole prgi) }
Writeln( 'M,,lu sai t,,is' );
Halt; { Läpetab programmi t"" }
end;
end;
end;
procedure vabastaMalu( BlokiNimi: Char );
Var
positsioonMalus: 1..maluSuurus;
begin
if maluVabastamiseMeetod = 1 then begin
{ Vabastatakse kohe }
For positsioonMalus := 1 to maluSuurus do
if malu[ positsioonMalus ] = BlokiNimi then
6
malu[ positsioonMalus ] := ' ';
end
else begin { Kui m,,lu vabastamise meetod on 2 }
{ M,,rgitakse m,,lu vabastamiseks }
For positsioonMalus := 1 to maluSuurus do
annaabi.ee 
