1-маъруза: Математик моделлаштиришнинг асосий тушунчалари, масалаларни эщмда ечиш бос=ичлари ва алгоритмлар назарияси

SwapVectors процедраси ишга туширилаётган субпроцесслар учун системали ёки ва=тинчалик узилишлар векторларини тиклайди;

Exec (ExeFile, ComLine: String) процедураси ComLine сатрли параметр билан ExeFile (субпроцесс) бажарилувчи файлини ишга туширади;

DosExitCode: Word функцияси субпроцесс якунланганлиги ща=идаги кодни ани=лайди;

Keep(ExitCode:Word) процедураси ШЭЩМ хотирасидан ычмаган щолда программа ишини якунлайди (резидент кодини ташкил =илади).



3. Printer модули
Паскал тилининг кутубхонасида санаб ытилган модуллар =аторида Printer модули щам ызининг муносиб жойини эгаллаган, чунки олинган натижаларни принтер ор=али =о\озга чоп этиш мущим ишдир. Бу модулнинг асосий вазифаси программа ва чоп этувчи =урилма (одатда принтер) ыртасида ало=а ырнатишдир.
Бу кичик модул бор-йы\и битта ызгарувчи ва бажарилувчи матннинг икки =аторидан ташкил топган. Бу модул Lst ызгарувчиси ва LPT1 (биринчи параллел порт) системали =урилма мослигини ырнатади. Модулнинг тыли= матни =ыйидагича:


Unit Printer;
Interface
Var
Lst:Text;
Implementation
Begin
Assign(Lst,'LPT1');
Rewrite(Lst)
End.
Printer модулини улангандан сынг Write(Lst, ... ) ва WriteLn(Lst, ... ) операторлари натижавий маълумотларни ты\ридан-ты\ри принтерга чи=аради.
Агар принтер бош=а =урилма ор=али уланган былса, масалан иккинчи порт LPT2 ёки кетма-кетли СОМ1 порти ор=али у щолда дастурчи ызининг Printer2 номли модулини яратиб олиши мумкин. У щолда ю=оридаги модул программаси матнидаги LPT1 ёзувини бош=а исмга (LPT2 ёки СОМ1) алмаштирилиб трансляция =илиб олинади.
Натижаларни ёки махсус буйру=ли кодларни принтерга Lst файли (ёки шунга ыхшаган) ор=али чи=ариш, чоп этишни бош=аришнинг ягона йыли эмас. БСВВ17Н узилиши ор=али принтерга белгилар ёки уларнинг кетма-кетлигини узатиш мумкин. Бундан таш=ари мазкур узилишдан фойдаланиш, чоп этиш =урилмасининг щолатини сыраш имкониятини яратади.
17Н узилиши принтерга хизмат кырсатишнинг 3 хил функциясидан фойдаланишга рухсат беради:
- белгиларни принтерда чоп этиш (0-номерли функция);
- принтер портини ишга созлаш (1-номерли функция);
- принтер щолатини ы=иш (2-номерли функция).