O’zbekiston respublikasi oliy va o’rta maxsus ta‘lim vazirligi

setcolor(12); line(500,200,200,400);
setcolor(4); circle(325,225,200);
setcolor(5); arc(325,225,0,180,100);
setcolor(6); pieslice(220,300,90,280,50);
setcolor(15); ellipse(200,100,0,360,30,50);
setcolor(13); ellipse(300,100,0,180,50,30);
readln;
closegraph;
end.

Ushbu dasturni Turbo Pascal tizimida kiritilgandan sung natija oladigan bo’lsak ekranga 1-rasmdagi chizmalar chikadi.

1-rasm


Pascal tilining grafik rejimida matnlar hosil qilish

Grafik rejimida harflarni chizib matn yozish uchun quyidagi protsedura va funktsiyalardan foydalaniladi;

Settextstyle(font, derection, size); - joriy shriftni o’lchami va yo’nalishini belgilaydi. Bu yerda font shrift turi, derection, matn yozilish yo’nalishi, size esa shrift o’lchami.
Settextjustify(horiz,vert);- matnni gorizontal va vertikal yozilishi bo’yicha tekislash vazifasini bajaradi.
OutTextxy(x,y,Textstring);- textstring matnni (x,u) koordinatali nuqtadan boshlab yozadi.
Grafikli rejimda kompyuter ekraniga «Kompyuter olami» matnini chizish dasturini misol sifatida keltiramiz.


program grafikmatn;
uses graph;
var gd, gm:integer;
begin
gd:=detect;
initgraph(gd,gm, ‘ ‘);
if graphresult<> grok then halt(1);
setfillstyle(1,7);
bar(0, 0, getmaxx,getmaxy);
settextjustify(1,1);
settextstyle(4,1,8);
setcolor(0);
outtextxy(getmaxx, div 2, getmaxy div 2, ‘kompyuter olami’);
setcolor(2);