"kysimise" - 1 õppematerjal

LAC-5700 Operatsioonisüsteemid

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... } positsioonMalus := 1; sobivaimPositsioon := 0; sobivaimaPositsiooniSuurus := maluSuurus; { suurem kui maluSuurus - 1 } Repeat vabasidPositsioone := leiaVabadePositsioonideArv( positsioonMalus ); if ( vabasidPositsioone >= BlokiSuurus ) and ( vabasidPositsioone < sobivaimaPositsiooniSuurus ) then begin sobivaimPositsioon := positsioonMalus;