Қarshi muҳandislik-iқtisodiyot instituti “Axborot texnologiyalari va matematik modellashtirish” kafedrasi assistenti J

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. 

---

119 
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); 
outtextxy(getmaxx, div 2+2, getmaxy div 2+2, ‘kompyuter olami’); 
setcolor(4);