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

Graph модулида =улайлик учун Detect ызгармаси (Detect=0) киритилган. Мисолларда ундан =андай фойдаланганлигига ащамият беринг.
InitGraph процедурасига симметрик процедура CloseGraph щисобланади. Бу процедура драйверни хотирадан чи=ариб ташлайди ва олдинги видеорежимни тиклайди.
+уйидаги программа дисплейни график режимга ытказади ва шу защотиё= уни асли щолига =айтаради:


uses Graph;
var
Gd,Gm:Integer;
begin
GD:=detect;{Драйверни автоматик тарзда ани=лайди, чунки

Detect=0}

InitGraph(GD,GM,’d:\tp’); {График режимни ырнатиш}
ReadLn; {Enter бос=ичини босилишини кутиш}
CloseGraph;
end.

Баъзи щолларда, масалан .BGI кенгайтмали файл йылини хато кырсатилса ёки график режимни ырнатиш учун тезкор хотира етишмаса InitGraph процедураси ыз ишини муваффа=иятли якунлай олмайди. Бундай щолларда йыл =ыйилган хатоликларни ани=лаш учун GraphResult функциясидан фойдаланиш мумкин. Бу функция график режимни ишга туширишга щаракат =илганда =уйидаги =ийматлардан бирини беради:

0 - хатолар йы=;

-2 - график плата ырнатилмаган;
-3 - драйвер файли топилмади;
-4 – ноты\ри драйвер ырнатилган;
-5 - график режимни ырнатиш учун тезкор хотира етишмаган;


GraphResult функциясидан фойдаланишга доир =уйидаги программани кыриб чи=айлик:


uses Graph;
var
GD,GM,ErrCode:integer;
begin
GD:=Detect; {Драйверни автоматик тарзда ани=лаш}
InitGraph(GD,GM,’ ’); {График режимни ишга тушириш}
ErrCode:=GraphResult;
if ErrCode<>0 then WriteLn(ErrCode,’ра=амли хато’)
{Хатога йыл =ыйилган}
else CloseGraph;
{Хато топилмаган ва график режимни иши якунланди}