Графика

Графикалық фигураларды қҧру
Тік төртбҧрыштарды қҧру
Турбо Паскальда тік тӛртбҧрышты фигураларды қҧру ҥшін, бірнеше процедуралар қарастырылған.
Бір ӛлшемді тік тӛртбұрышты сызу процедурасы:
Rectangle(Xl, Yl, Х2, Y2 : integer),
мҧндағы XI, Yl - тік тӛртбҧрыштың жоғарғы сол жақ бҧрышының, Х2, Y2 - оң жақ тӛменгі бҧрышының координаталары.
Бҧл ӛте пайдалы процедура, оның кӛмегімен, мысалы, кез келген диаграмманы жеңіл салуға болады. Тік тӛртбҧрыштың ішкі аймағы боялмайды және тҥсі фонның тҥсімен сәйкес келеді.
Мысал.
Биіктігі бойынша динамикалық қҧбылып, экранға әртҥрлі тҥспен 100 тік тӛртбҧрышты сызып шығаратын ҥзіндіні келтірейік:
for I: I to 100 do begin
SetColor(Green);түсті қою Rectangle(200,Random(300),250,300);1-тік тӛртбұрыш Delay(50);кідіру.
ClearDeviceэкранды тазалау
end;
Бҧл мысалда тік тӛртбҧрыштың биіктігі кездейсоқ ӛзгереді.
Егер, Rectangle процедурасының екінші параметрі массивтің бүтін санды элементтері болса (мысалы, мекеменің айлық тӛлем ақысы), онда бастапқы деректердің динамикалық ӛзгерісін кӛзбен (визуалды) кӛреміз.

Bar(xl, yl, x2, y2: integer) - процедурасының кӛмегімен кӛзтартарлық тік тӛртбҧрыштарды (боялған бағандарды) салуға болады. Бояу тҥсі SetFillStyle процедурасымен қойылады.
Қолдану мысалы:
SetFillStyle(1,3);
Bar (10, 10, 50, 100);
Үш ӛлшемді боялған тік тӛртбұрышты сызу процедурасы:
Bar3D(x1, y1, x2,y2:integer; Depth: word; Top: Boolean)
Ҥш ӛлшемді боялған тік тӛртбҧрышты сызады. SetFillStyle процедурасымен қойылған бояу тҥсі және типі қолданылады.
Depth - параметрі, ҥш ӛлшемді нобайдың (контур) тереңдігін беретін, пиксельдер саны. Кӛбінесе, оның мәні тік тӛртбҧрыш енінің ширегіне тең болады:
Depth :(X2-X1)DIV 4;
Тор - пара