8–Mashg’ulot. Paskalning grafik imkoniyati. Tasvirli matnlar bilan ishlash. Maqsad: Paskal tilida Paskalning grafik imkoniyatini, Tasvirli matnlar bilan ishlashni yozilishi va ularning qo’llanishini o’rganish

Clreol – Kursor turgan qatorni o’chiradi.
Delay(n) – Dastur bajarilishini n millisekundda to’xtatib turadi.
Sound (m) – Dinamikni oldindan berilgan m chastotada ishlashini ta’minlaydi.
Window(xl,yl,x2,y2) – Kompyuter ekranida matn uchun oyna hosil qiladi. Bu
yerda xl, yl— oynaning yuqori chap burchagi koordinatalari, x2, y2— o’ng past
burchagi koordinatalari. Quyidagi dastur ekranda matn uchun oyna hosil qilish
usullaridan birini aniqlaydi.
TASVIRLARNI HOSIL QILISH (GRAPH MODULI).
Ekranda tasvirlarni hosil qilish uchun grafik rejimiga o’tish zarur bo’ladi. Bu
rejimda matn rejimidan farqli ekran rang–barang nuqtalar – piksellar to’plamidan
tashkil topgan to’rtburcbakdan iborat bo’ladi. Ekranning holatini adapterlar belgilaydi
va ular bir–biridan ekranga mumkin qadar ko’p nuqtalar joylashtira olish va rang–
baranglikni oshirish imkoniyati bilan farqlanadi. Hozirgi paytga kelib, imkoniyati
jihatidan afzalligi bilan ajralib turuvchi SVGA (Super Video Graphics Adapter)
adapteri kompyuter ekranida (400x800 nuqtani 256 xil rangda hosil qilishi mumkin.
Kompyuter odatda matn rejimida ishlaydi. ekranni grafik rejimiga o’tkazish uchun
quyidagi funksiyadan foydalaniladi:
Initgraph (GD,GM,Path);
Bu erda GD – drayver nomeri, GM—rejim nomeri, Path—drayverni saqlab
turuvchi faylga o’tish yo’li. Agar Path o’rnida ‘ belgi turgan bo’lsa, drayver joriy
katalogdan axtariladi. Agar 0 ga teng bo’lsa, bu drayver uchun grafik rejimni eng
maqbul varianti kompyuter tomonidan avtomatik ravishda tanlanadi. Ba’zan 0
o’rnida Detect konstantasi ham ishlatiladi. Grafik rejimdan chiqish uchun
Closegraph funksiyasi ishlatiladi. Ekranda nuqta va turli xil chiziqlarni hosil qilish
uchun quyidagi funksiyalar ishlatiladi.
Putpixel (X,Y,color) – ekranda X,Y koordinatali nuqtani color rangida hosil
qiladi. Masalan, 600x 800 o’lchamda qizil rangli nuqtalar hosil qilish.
Dasturi:
uses Crt, Graph;
var
Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
if GraphResult <> grOk then halt(100);
repeat