Предмет: Информатика, автор: Laggi4

информатика. пожалуйста помогите ​

Приложения:

nightxperia346pctufj: В какой программе
Laggi4: паскаль авс
nightxperia346pctufj: а сорри не смогу у меня питон

Ответы

Автор ответа: ingr
0

uses GraphABC;

var

   x : integer := 50; // x координата верхнего левого угла

   y : integer := 50; // y координата верхнего левого угла

   d : integer := 100; // длина прямоугольника

   a : integer := 100; // ширина прямоугольника

   points : array of point := new Point[5];

begin

   SetPenColor(clBlack);

   SetBrushColor(clRed);

   Line(x, y+d, x, y);

   points[0] := (x, y);

   points[1] := (x+a, y);

   points[2] := (round(a/4)*3+x, round(d/4)+y);

   points[3] := (x+a, round(d/2)+y);

   points[4] := (x, round(d/2)+y);

   Polygon(points);

end.

Похожие вопросы
Предмет: Математика, автор: bykovasofiya
Предмет: Алгебра, автор: Изобелль