Создать графическое изображение

@Михаил8888 · Регистрация: 04.05.2017

Author24 — интернет-сервис помощи студентам

Название: Безымянный.png
Просмотров: 12

Размер: 1.6 Кб

Желательно, как можно проще написать код.

@JuriiMW · 13.12.2017, 07:26

Pascal

uses GraphABC;
begin
  DrawPolygon((Window.Center.X-100,Window.Center.Y-140),(Window.Center.X+100,Window.Center.Y-140),(Window.Center.X-100,Window.Center.Y+140),(Window.Center.X+100,Window.Center.Y+140));
  Brush.Color := clBlack;
  FillPolygon((Window.Center.X-50,Window.Center.Y+70),(Window.Center.X+50,Window.Center.Y+70),(Window.Center.X+100,Window.Center.Y+140),(Window.Center.X-100,Window.Center.Y+140));
end.

@Михаил8888 0 / 0 / 0 Регистрация: 04.05.2017 Сообщений: 58
		1
	Создать графическое изображение 12.12.2017, 21:31. Показов 1022. Ответов 1 Метки нет (Все метки) Желательно, как можно проще написать код. 0

	13.12.2017, 07:26

Опции темы

Создать графическое изображение

Решение