B. J. Boltayev, A. R. Azamatov, G. A. Azamatova, B. S. Xurramov nazariya, algoritm, dastur toshkent 2013


joriy nuqta deyiladi. Ekrandagi nuqtalar soni ko‘pi bilan 640x480


Download 372.89 Kb.
bet48/68
Sana02.11.2023
Hajmi372.89 Kb.
#1740971
1   ...   44   45   46   47   48   49   50   51   ...   68
Bog'liq
Algoritmlash va dasturlash asoslari seriyasidan Kitob – II b. J.-fayllar.org

joriy nuqta deyiladi. Ekrandagi nuqtalar soni
ko‘pi bilan 640x480 ta (0..639x0..479) bo‘ladi.
Ekranni grafik holatga o‘tkazish uchun Graph modulining Init-
Graph(GD,GM,); protsedurasidan foydalaniladi, bu yerda GD (Graph-
Driver) va GM (GraphMode) – butun sonli o‘zgaruvchilar. Ularning qiymati
kompyuterning grafik imkoniyatlariga va tanlangan grafik holatga bog‘liq. Agar
GD:=0; (yoki GD:=Detect;) deb tanlansa, dastur tomonidan avtomatik ravishda
eng samarali grafik holat aniqlanadi. – grafik holatda ishlashni
ta’minlovchi BGI kengaytmali maxsus fayl joylashgan BGI katalogining to‘liq
adresi bo‘lib, zamonaviy kompyuterlarda EGAVGA.BGI fayli qo‘llaniladi. Bu
fayl joriy katalogda joylashgan bo‘lsa o‘rnida bo‘sh satr yozilishi kifoya.
Grafik holatdan chiqish, ya’ni matn holatiga qaytish uchun CloseGraph
protsedurasidan foydalaniladi. Grafika bilan bog‘liq dasturlar, asosan, quyidagi
ko‘rinishda bo‘ladi:
Uses Graph;
Var Gd, Gm : Integer;
{Grafika bilan bo
g‘liq masalaga mos o‘zgaruvchilar tavsifi }
Begin
Gd := 0; { Grafik drayverni avtomatik ravishda aniqlash }

InitGraph(Gd,Gm, ‘‘); { Grafik holatga o‘tish }


{ Grafika bilan bo
g‘liq masala yechimi yoziladigan qism }
Readln; { Grafik
ma’lumotni ko‘rib olish uchun dasturni to‘xtatish }
CloseGraph; { Grafik holatdan chiqish }
End.
Paskal tilida 16 xil rangdan foydalanish mumkin bo‘ladi. Bu ranglar 0 dan 15
gacha butun sonlar bilan kodlangan. Graph modulida har bir rang uchun maxsus
o‘zgarmas (konstanta) ajratilgan bo‘lib, ular matn holatidagi ranglar bilan bir xil.
(0,0)
(400,200)
200
400



72
Graph modulida 80 ga yaqin protsedura va funksiyalar mavjud. Quyida ularn-


ing ba’zilari bilan tanishamiz.

Download 372.89 Kb.

Do'stlaringiz bilan baham:
1   ...   44   45   46   47   48   49   50   51   ...   68




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