Структура программы. Объявление переменных

Uchburchak

• Line(x1,y1,x2,y2); LineTo(x,y);

• To’rtburchak

• Rectangle(x1,y1,x2,y2) – qarama qarshi uchlari (x1,y1) va (x2,y2) nuqtalarda joylashgan to’g’ri to’trburchak chizadi.

• Program to’rtburchak;
• uses GraphABC;
• begin
• Rectangle(50,50,200,200);
• end.

• x1,y1

• x2,y2

• Bo’yash

• FloodFill(x,y,color) - (x,y) nuqtadan boshlab color parametrli rang bilan bo’yash.

• Program pryamougolnik;
• uses GraphABC;
• begin
• Rectangle(50,50,200,200);
• FloodFill(100,100,clBlue);
• end.

• x1,y1

• x2,y2

• Cho’tka rangi

• SetBrushColor(color) - color parametr bilan berilgan rangni cho’tka rangi sifatida o’rnatadi.

• Program zalivka_kist;
• uses GraphABC;
• Begin
• SetBrushColor(clGreen);
• Rectangle(50,50,300,300); end.

• SetBrushStyle(0 dan to 7 gacha yoki nomi bilan) - параметрнинг қийматига қараб, чўтка учун стилни танлайди..

• Program p12_zalivka;
• uses GraphABC;
• Begin
• SetBrushColor(clAqua);
• SetBrushStyle(1);
• Rectangle(10,10,100,100);
• SetBrushColor(clRed);
• SetBrushStyle(2);
• Rectangle(110,10,200,100);
• SetBrushColor(clBlue);
• SetBrushStyle(3);
• Rectangle(210,10,300,100);
• SetBrushColor(clGreen);
• SetBrushStyle(4);
• Rectangle(10,110,100,210);
• SetBrushColor(clYellow);
• SetBrushStyle(5);
• Rectangle(110,110,200,210);
• SetBrushColor(clBlack);
• SetBrushStyle(6);
• Rectangle(210,110,300,210);
• end.

• SetBrushPicture(‘fname’) -
• fname номли матн ўзгарувчиси ёки матн ўзгармасида берилган файлда сақланган расмни чўтка учун намуна сифатида юклайди. Бунда чўтканинг ранги ва стили инобатга олинмайди.

• uses GraphABC;
• begin SetBrushPicture('brush4.bmp');Ellipse(0,0,640,400);
• end.

• Program pryamougolnik;
• uses GraphABC;
• begin
• SetPenColor(clred);
• SetPenWidth(20);
• Rectangle(50,50,200,200);
• FloodFill(100,100,clBlue);
• end.

• Kontur rangi

• SetPenWidth(w); SetPenColor(color);

• Circle(x,y,r) - markazi (x,y) nuqtadan iborat va radiusi r bo’lgan aylana chiadi.

• Aylana

• Program circle;
• uses GraphABC;
• begin
• Circle(500,200,100);
• FloodFill(500,200,clred);
• end.

• x1,y1

• r