Ta’limda innovasion texnologiyalar a. A. Karimov, «informatika va axborot texnologiyalari»

Circle(X,Y,Radius) процедураси маркази (X,Y) бўлган ва Radius ли айлана чизади.
Rectangle(X1,Y1,X2,Y2) процедураси чап юқори бурчаги координатаси (X1,Y1) ва ўнг пастки бурчаги координатаси (X2,Y2) бўлган тўғри тўртбурчак чизади.
SetColor(Color) процедураси чизманинг жорий рангини аниқлайди. Агар бу процедурада бошқа ранг ўрнатилган бўлмаса, у ҳолда жорий ранг оқ ранг ҳисобланади.
SetTextStyle(Fond,direction,Size)- жорий шрифтни, символ ўлчамини ва матнни чиқариш йўналишини ўрнатади. Font–шрифтни аниқлайди, Direction– матнни чиқариш йўналишини (чапдан ўнгга ёки пастдан юқорига), Size–шрифт ўлчамини аниқлайди.
Arc процедураси айлана ёйини чизади:
Arc(X,Y:integer; StAng,EndAng,Radius: word);
бу ерда X,Y– айлана маркази координатаси, StAng ва EndAng– бошланғич ва охирги бурчак, Radius– айлана радиуси.
Bar процедураси бўялган тўғри тўртбурчак чизади. Унинг кўриниши:
Bar (X1,Y1,X2,Y2:integer);
бунда тўғри тўртбурчакнингX1 ва Y1 -юқори чап, X2 ва Y2 лар эса ўнг пастки бурчак координатаси.
DrawPoly процедураси кўпбурчак чизади. Унинг кўриниши:
DrawPoly(NumPoints: word; var PolyPoints);
бунда NumPoints-кўпбурчакнинг қирралари сони, PolyPoints нуқта координаталарини ҳисобловчи массив бўлиши мумкин.
Ellipse процедураси эллипс чизади. Унинг кўриниши:
Ellipse(x;Y:integer, StAngle, EndAngle:word; XRadius, Yradius:word);
бунда X,Y- марказ координатаси, StAngle ва EndAngle -бошланғич ва охирги ёй бурчаги, XRadius ва Yradius лар мос равишда баландлиги ва эни.





3-илова
Мисол. Диоганал координаталари (50,150) ва (200,50) бўлган тўғри тўртбурчак ясалсин.