Tegidan tashqari bu bo’limning qolgan barcha teglari ekranda aks ettirilmaydi. Odatda tegi darhol tegidan keyin keladi tegi sarlavhaning tegidir, va hujjatga nom berish uchun hizmat kiladi. Hujjat nomi va

PASKAL algoritmik tilidagi dastur matni:

uses

Crt, Graph;

var

Gd, Gm : Integer;

begin

Gd := Detect; InitGraph(Gd, Gm, '');

if GraphResult <> grOk then Halt(1);

Line(10,20,10,100);

ReadLn;

CloseGraph;

end.

Natijada OX abssissa o‘qiga perpendikulyar talab qilingan kesma ekranda hosil bo‘ladi.

2-misol. Dioganal koordinatalari (50,150) va (200,50) bo‘lgan to‘g‘ri to‘rtburchak yasalsin.

PASKAL algoritmik tilidagi dastur matni:

uses

Crt, Graph;

var

Gd, Gm : Integer;

begin

Gd := Detect; InitGraph(Gd, Gm, '');

if GraphResult <> grOk then Halt(1);

Line(50,150,200,50);

ReadLn;

CloseGraph;

end.

Natijada ekranda talab qilingan to‘g‘ri to‘rtburchak hosil qilinadi.

3-misol. Markazi (80,80) bo‘lgan va radiusi 60 bo‘lgan aylanani chizing.

Bajarish. Aylana, aylana sektori, ey, ellips, shar kabi shakllarni ekranda chizish uchun Beysik tilini CIRCLE operatoridan foydalaniladi .

PASKAL algoritmik tilidagi dastur matni:

Uses Graph;

var

Gd, Gm : Integer;

begin

Gd := Detect; InitGraph(Gd, Gm, '');

if GraphResult <> grOk then Halt(1);

Circle(80, 80, 60);

ReadLn;

CloseGraph;

End

Natijada ekranda talab qilingan aylana hosil qilinadi.

Nazorat uchun savollar

1. Kompyuter ekrani grafik rejimga qanday o‘tkaziladi.

2. Grafik rejimda ranglar qanday tanlanadi?

3. Koordinata sistemasi qanday chiziladi?

4. To‘g‘ri chiziq, to‘rtburchak elementlarini chizish protsedurasini ayting. Javobingizni

misollarda tushuntiring.

5. Aylana, ellips va uning elementlarini chizish protsedurasini ayting.

6. Grafik rejimda shriflar o‘lchamini aniqlaydigan va matn yozishda ishlatiladigan

protsedurani ayting.

Test savollari