Как нарисовать polygon

@Insider246 · Регистрация: 18.04.2015

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

У меня есть массив с 8 елеметами 250,236, 250,204,270,204,270,223. Как с ними нарисовать polygon

@capricornus CF · 03.04.2016, 14:53

Pascal

uses graph;
const coord:array [0..4] of pointType=
((x:250;y:236),
 (x:250;y:204),
 (x:270;y:204),
 (x:270;y:223),
 (x:250;y:236));
 
var Driver, Mode : Integer;
 
Begin
  Driver := Detect;
  InitGraph(Driver,Mode,'');
  DrawPoly(5,coord);
  ReadLn;
  CloseGraph;
end.

@Insider246 · 03.04.2016, 15:11 **[ТС]**

А как сделать если я не знаю координаты и они будут определены только во время исполнения программы, что углов 4 я знаю заранее

@volvo · 03.04.2016, 15:38

Значит сделай массив переменной:

Pascal

1	var coord:array [0..4] of pointType;

, и заполняй его в рантайме.

@capricornus CF · 03.04.2016, 15:51

Pascal

uses graph;
 
var Driver, Mode ,i: Integer;
coord:array [0..4] of pointType;
 
Begin
  for i:=0 to 3 do
  begin
    write('Enter x[',i,'] ');readln(coord[i].x);
    write('Enter y[',i,'] ');readln(coord[i].y);
  end;
  coord[4].x := coord[0].x;
  coord[4].y := coord[0].y;
  Driver := Detect;
  InitGraph(Driver,Mode,'');
  DrawPoly(5,coord);
  ReadLn;
  CloseGraph;
end.

@Puporev · 03.04.2016, 15:57

Pascal

1 2	coord[4].x := coord[0].x; coord[4].y := coord[0].y;

Это равно

Pascal

1	coord[4]:= coord[0];

@Insider246 0 / 0 / 1 Регистрация: 18.04.2015 Сообщений: 119
		1
	Как нарисовать polygon 03.04.2016, 12:55. Показов 1628. Ответов 5 Метки нет (Все метки) У меня есть массив с 8 елеметами 250,236, 250,204,270,204,270,223. Как с ними нарисовать polygon 0

@Insider246 0 / 0 / 1 Регистрация: 18.04.2015 Сообщений: 119
	03.04.2016, 15:11 [ТС]	3
	А как сделать если я не знаю координаты и они будут определены только во время исполнения программы, что углов 4 я знаю заранее 0

	03.04.2016, 15:57

Как нарисовать polygon

Решение