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


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


Download 0.61 Mb.
bet3/3
Sana23.04.2023
Hajmi0.61 Mb.
#1386006
1   2   3
Bog'liq
Pascal dasturlash tilining grafik imkoniyatlari

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

Download 0.61 Mb.

Do'stlaringiz bilan baham:
1   2   3




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