LAC-5700 Operatsioonisüsteemid
2. märgistamine ning prahikoristus;
8) kõigi nelja variandi puhul kasutada sama testprogrammi.
PROGRAMM
program maluHaldus;
const
maluSuurus = 64;
var
malu: array[ 1..maluSuurus ] of Char;
maluKysimiseMeetod : Integer;
maluVabastamiseMeetod : Integer;
fail : text;
{ Otsib mitu thja kohta on antud koha peal j,,rjest m,,lus...
}
3
function leiaVabadePositsioonideArv( kohtMalus: Integer ):
Integer;
Var
vabasidKohti : Integer;
koht : Integer;
begin
koht := kohtMalus;
vabasidKohti := 0;
while ( malu[ koht ] = ' ' ) and ( koht <= maluSuurus )
do begin
koht := koht + 1;
vabasidKohti := vabasidKohti + 1;
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.
annaabi.ee 
