Предмет: Информатика,
автор: Laggi4
информатика. пожалуйста помогите
Приложения:
![](https://files.topotvet.com/i/733/73329479e187c97cc3d1f8fe586d21aa.jpg)
nightxperia346pctufj:
В какой программе
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Французский язык,
автор: dovgepole725
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: bykovasofiya
Предмет: Математика,
автор: nyutanoskova83
Предмет: Алгебра,
автор: Изобелль