A. Muxtorov

Misol_1. Ekranning o’rtasida joylashgan, qizil rangli , to’rtburchak va uning ichida joylashgan aylana hosil qilish dasturini tuzing.
U ses GraphABC;
begin
setwindowsize(600,400);
setpencolor(clred);
rectangle(50,50,550,350);
circle(300,200,130);
end.
Misol_2. Markazi ekranning markazida bo’lgan ko’k rangli uchta ichma-ich joylashgan aylanalar chizish dasturini tuzing.
U ses GraphABC;
Begin

setwindowsize(600,400);

setpencolor(clblue);
SetPenWidth(5);
circle(300,200,180);
circle(300,200,130);
circle(300,200,80);
end.
___________________________________________________________________________________________________
Lineto(x,y) — «Методическое пасобие по програмированию на языке PascalABC» Ерёмин.О.Ф 2009 г
PascalABC dasturida turli xildagi shakllarni har xil ko’rinishda bo’yash imkoniyati mavjud bo’lib buning uchun mo’yqalam uskunasidan foydalaniladi. Mo’yqalam (bo’yash) rangini belgilash uchun SetBrushColor(rang), bo’yash usulini belgilash uchun SetBrushStyle(usul) protsedurasidan foydalaniladi. Bo’yash usullariga mos konstantalar nomi va ko’rinishini quyidagi jadvalda keltiramiz.

Bo’yash usuliga mos konstanta nomi	Ko’rinishi	Bo’yash usuliga mos konstanta nomi	Ko’rinishi
bsColid		bsClear
bsCross		bsBDiagonal
bsHorizontal		bsFDiagonal
bsVertical		dsDiagCross

Misol_3. Ekranning to’rt burchagida to’rt xil rangda va har-xil usulda bo’yalgan to’rtta to’g’ri to’rtburchak chizish dasturini tuzing.
Uses GraphABC;
b egin
setwindowsize(600,500);
Setpencolor(clblue);
setbrushstyle(bscross); setbrushcolor(clgreen);
rectangle(0,0,200,200);
setbrushstyle(bsdiagcross); setbrushcolor(clred);
rectangle(399,0,599,200);
setbrushstyle(bsvertical); setbrushcolor(clyellow);
rectangle(0,299,200,499);
setbrushstyle(bshorizontal); setbrushcolor(clpurple); rectangle(399,299,599,499);
end.
Grafik oynaga matn yozish uchun TextOut(x,y,matn) protsedurasidan foydalaniladi. Bunda (x,y) — nuqta matnni chiqarish koordinatalari, matn — chiqarish kerak bo’lgan matn. Chiqarilayotgan matnning rangini SetFontColor(rang), matn o’lchamini SetFontSize(a) protseduralar orqali o’zgartirish mumkin.