Построение графических изображений в языке Паскаль

· line(x1,y1,x2,y2) - линия;

· circle(x,y,r) - окружность;

· arc(x,y,a1,a2,r) - дуга радиуса;

· rectangle(x1,y1,x2,y2) - прозрачный прямоугольник;

· ellipse(x,y,a1=270^o,a2=90^o,xr,yr) - эллиптическая дуга;

· bar(x1,y1,x2,y2) - залитый цветом прямоугольник;

· pieslice(x,y,a1,a2,r) - залитый сектор окружности;

· fillellipse(x,y,xr,yr) - залитый цветом эллипс;

· floodfill(x,y,c) - заполнение области вокруг точки;

· setcolor(c) - установка цвета изображения;

· setbkcolor(c) - установка цвета фона:

0 - чёрный; 1 - синий; 2 - зелёный; 3 - бирюзовый 4 - красный;

5 - малиновый; 6 - коричневый; 7 - светлосерый; 8 - тёмнокоричневый;

9 - яркосиний;10 - яркозелёный;11- яркобирюзовый;12 - яркокрасный;

13 - яркомалиновый; 14- жёлтый; 15 - белый.

· setfillstyle(тип заливки, цвет заливки) - штриховка:

0 - нет штриховки; 5 - \\\\тонкая; 10 - крупные точки;

1- сплошная; 6 - \\\\ толстая; 11 - мелкие точки

2 - - - - - - - - -; 7 - сетка;

3 - ///тонкая; 8 - штрих-пунктирная;

4 - //// толстая; 9 - решётка;

· setlinestyle(тип линии,0,ширина); 1- нормальная 3- увеличенная

0- сплошная 1- штриховая

Сформировать рисунок средствами команд языка Паскаль: