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


Graph модулида =улайлик учун Detect



Download 1,01 Mb.
bet71/83
Sana23.06.2022
Hajmi1,01 Mb.
#696724
1   ...   67   68   69   70   71   72   73   74   ...   83
Bog'liq
1-маъруза Математик моделлаштиришнинг асосий тушунчалари maruza

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;
{Хато топилмаган ва график режимни иши якунланди}

Download 1,01 Mb.

Do'stlaringiz bilan baham:
1   ...   67   68   69   70   71   72   73   74   ...   83




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish