Вывести на экран монитора геометрическую фигуру - Pascal ABC

Формулировка задачи:

Вывести на экран монитора прямоугольник черного (Black) цвета со сторонами в виде штрихпунктирной линий тройной толщины, цвет фона экрана установить голубым (Cyan).

Код к задаче: «Вывести на экран монитора геометрическую фигуру - Pascal ABC»

textual
uses graph;
var x,y:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
setfillstyle(1,cyan);
bar(0,0,2*x,2*y);
setcolor(black);
setlinestyle(3,0,3);
rectangle(x-200,y-150,x+200,y+150);
readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

15   голосов, оценка 4.133 из 5


СДЕЛАЙТЕ РЕПОСТ