Paskalda grafika

Turbo Pascal 7.0

SetColor(N)

Chiziq rangi

0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

SetLineStyle(s, p, t)

0
1
2
3
4 Namunadan tanlanadi

Namuna

Chiziq turi

Qalinligi

1 Ingichka
3 Yo`g`on

Rectangle(x1,y1,x2,y2)

Uses Graf;
Var gd,gm:integer;
Begin
Gd:=dedect;
initGraph(gd,gm,’’);
Setcolor (Green);
Regtanggle(10,10,200,100);
Readlen;
CloseGraph;
end.

10

10

100

200

Circle (x, y, r)

r

Uses Graf;
Var gd,gm:integer;
Begin
Gd:=dedect;
initGraph(gd,gm,’’);
Setcolor (4);
Circle(300.200,100);
Readlen;
CloseGraph;
end.

200

300

100

Ellipse (x,y,Rx,Ry)

Rx

Ry

Uses Graf;
Var gd,gm:integer;
Begin
Gd:=dedect;
initGraph(gd,gm,’’);
Setcolor (4); SetFillStyle(8,1);
FillEllipse(320,240,200,100);
Readlen;
CloseGraph;
end.

0 – Fon rangi bilan yaxlit bo`yash
1 – Joriy rang bilan yaxlit bo`yash
9 – Piksellarni shaxmat usulida bo`yash
2 -11 – Foydalanuvchi tanlagan usul

2 3 4 5 6 7 8 10 11

SetFillStyle (s, c)

Usul

rang

0 … 15

0 … 12

Bar (x1,y1, x2,y2)

FillEllipse (x,y,Rx,Ry)

Rx

Ry

F l o o d F i l l (x,y, b)

Chegara rangi

Ichki nuqta kordinatasi

Guruhlarga topshiriq

Ekranning o`rtasida radiusi 150 ga teng bo`lgan sariq rangli aylana chizish dasturini tuzing.

Ekranning o`rtasining yuqori qismida uzunligi 300 ,balandligi 150 piksel bo`lgan qizil rangli to`rtburchak chizish dasturini tuzing.

Ekranning o`rtasida ichma – ich joylashgan 2 ta aylana hosil qilish dasturini tuzing. R1=150, R2=140.

1- Guruhga topshiriq

2- Guruhga topshiriq

3- Guruhga topshiriq

Guruhlarga savollar

1- Guruhga savollar

1.To`g`ri to`rtburcak chizish operatorida X1,Y1,X2,Y2 lar
nimani bildiradi?
2. Chiziq rangi qaysi operator yordamida tanlanadi?

2- Guruhga savollar

SetFillStyle operatorining fazifasini ayting?
Qaysi operator ichi bo`yalgan to`rtburchak chizadi?

FillEllipse operatori qanday shakl chizadi?
Circle operatori qanday shakl chizadi?

3- Guruhga savollar

Etiboringiz uchun rahmat