|
Line (x1,y1) va (x2,y2) kordinatali to’g;ri chiziq chizadi.
Circle
|
| bet | 3/4 | | Sana | 06.07.2024 | | Hajmi | 10,15 Mb. | | #266740 |
Bog'liq Azizbek 1IAT 1 Ro\'imov.B gaLine (x1,y1) va (x2,y2) kordinatali to’g;ri chiziq chizadi.
Circle markazi (x,y) kordinatada bo’lgan aylana chizadi.
Rectangle to’g’ri to’rtburchak chizadi.
SetColor chizish rangini belgilaydi.
Setfilstyle Color rangi bilan soxani to’ldirish va ular ni ko’rsatilgan usulda shtrixlash.
Bar3D (x1,y1,x2,y2,Depth,Top) paralelopiped yasash uchun hizmat qiladi Depth balandlik, Top markaziy o’zgaruvchisi Tru qiymatli bo’lsa yuqorisini aks xolda chizmay o’tadi.
Bar (x1,y1,x2,y2) to’g’ri to’rttburchak chizadi.
FillEllipse (x,y,XRadius,YRadius) li ellips chizadi. XRadius-ellips eni, YRadius-ellips baladligi. Va h.k .
Ekrandagi nuqtalar va grafik holatlar bilan ishlashni quyidagi dasturlarda ko’rib chiqishimiz mumkin:
1 Rangli yozuvlar bilan ishlash
uses graphABC;
begin
S etFontColor($ff0000);
textout(20,20,'Matn rangi ko''k.');
SetFontColor($00ff00);
textout(20,40,'Matn rangi yashil.');
SetFontColor($0000ff);
textout(20,60,'Matn rangi qizil.');
SetFontColor($000000);
textout(20,80,'Matn rangi qora.');
end.
2 (x,y) kordinata bo’yicha rangli nuqtalar hosil qilish
uses graphABC;
var x,y:integer;
begin
setwindowsize(401,201);
centerwindow;
for x:=0 to 100 do
for y:=0 to 50 do
setpixel(4*x,4*y,x*10+y*1000)
end.
3 Markazi (x,y) da bo’igan bir qancha aylanalar chizuvchi dastur
uses graphABC;
var x:integer;
begin
setwindowsize(400,400);
centerwindow;
for x:=50 downto 0 do
circle(200,200,x*4);
end.
4 -dastur
uses graphABC;
var x:integer;
19
begin
setwindowsize(400,400);
centerwindow;
for x:=20 downto 1 do
begin
pie(100+5*x,200,10*x,30,330);
FloodFill(100+4*x,200,255500+x*10);
end;
end.
|
| |
