напишите пожалуйста программку в паскале авс

Напишите пожалуйста программу в паскале авс

Задать свой вопрос
1 ответ

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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт