"ksimise" - 1 õppematerjal

LAC-5700 Operatsioonisüsteemid

votaMalu( 'o', 1 ); vabastaMalu( 'i' ); votaMalu( 'r', 15); vabastaMalu( 'u' ); vabastaMalu( 'P' ); votaMalu( 'n', 7 ); votaMalu( 'D', 3 ); votaMalu( 'O', 2 ); vabastaMalu( 'r' ); votaMalu( 'b', 12); vabastaMalu( 'o' ); vabastaMalu( 'O' ); votaMalu( 'G', 2 ); votaMalu( 'I', 4 ); vabastaMalu( 'n' ); vabastaMalu( 'D' ); vabastaMalu( 'I' ); vabastaMalu( 'b' ); vabastaMalu( 'G' ); end; Var positsioonMalus: Integer; begin Write( 'Millist m,,lu ksimise meetodit kasutada (1/2)? ' ); ReadLn( maluKysimiseMeetod ); Write( 'Millist m,,lu vabastamise meetodit kasutada (1/2)? ' ); ReadLn( maluVabastamiseMeetod ); 8  For positsioonMalus := 1 to maluSuurus do malu[ positsioonMalus ] := ' '; Assign( FAIL, 'valjund.txt' ); ReWrite( fail ); maluKysija; close ( fail ); readln end. PROGRAMMI DISAINI KIRJELDUS Programm on kirjutatud Borland Pascal 7.0-s