Azad İsa oğlu Qurbanov, Elçin Musa oğlu Məmmədov, Aygün Seyfəddin qızı Hüseynova

Prosedurlar
 
Təyinatı
 
rejimini müəyyən edir. 
Circle(x, y, r: word); 
Mərkəzi (x, y) nöqtəsində olan r radiuslu çevrəni 
çəkir. 
Arc (X,Y:Integer; U1, 
U2, R:Word) 
 
Cari rəngli qövs çəkir. X, Y – qövsün mərkəzinin 
kordinatları, U1 – qövsün ilk nöqtəsinə qədər bucaq, 
U2 – qövsün son nöqtəsinə qədər bucaq R – qövsün 
radiusunu müəyyən edir. 
Ellipse (X, Y: Integer; 
U1, U2, XR, YR: Word) 
Ellips tipli qövs çəkir. X, Y – qövsün mərkəzinin 
kordinatları, U1 – qövsün ilk nöqtəsinə qədər bucaq, 
U2 – qövsün son nöqtəsinə qədər bucaq, XR, XY – 
üfüqi və şaquli yarımoxu müəyyn edir. 
FillEllipse(x, y, Rx, 
Ry: integer); 
 
Rəngli ellips çəkir. 
MoveTo(x, y: integer); 
Cari kursoru (x, y) nöqtəsinə sürüşdürür. 
MoveRel(x, y: integer); 
Cari kursoru üfüqi istiqamətdə x qədər, şaquli 
istiqamətdə isə y qədər sürüşdürür. 
OutText(text: string); 
Monitorda sətri əks etdirir. 
OutTextxy(x, y: integer; 
text: string); 
Monitorda (x, y) nöqtəsindən başlayaraq sətir əks 
olunur.