Найти площадь и периметр шестиугольника

@boggio · Регистрация: 21.12.2016

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

Помогите написать программу, площадь шестиугольника и периметр шестиугольника.

@JuriiMW · 21.12.2016, 06:54

Pascal

function len(a,b,c,d:real):=sqrt((a-c)*(a-c)+(b-d)*(b-d));
 
begin
  var a := ReadArrReal('Введите все координаты вершин шестиугольника по часовой стрелке:', 12);
  var p := len(a[ 0],a[ 1],a[ 2],a[ 3]) +
           len(a[ 2],a[ 3],a[ 4],a[ 5]) +
           len(a[ 4],a[ 5],a[ 6],a[ 7]) +
           len(a[ 6],a[ 7],a[ 8],a[ 9]) +
           len(a[ 8],a[ 9],a[10],a[11]) +
           len(a[10],a[11],a[ 0],a[ 1]);
  var s := (a[0]*a[3]-a[3]*a[4]+a[4]*a[7]-a[7]*a[8]+a[8]*a[11]-a[11]*a[0] -
            a[1]*a[2]+a[2]*a[5]-a[5]*a[6]+a[6]*a[9]-a[9]*a[10]+a[10]*a[1]) / 2;
           
  WriteLn('S = ', s, NewLine, 'P = ', p)
end.

Для проверки:
0 0 1 0 2 1 1 2 0 2 -1 1
S = 4
P = 7.65685424949238

P.S. Площадь вычисляется для любого шестиугольника кроме самопересекающихся!
Для самопересекающихся данная формула не подходит.

@boggio 0 / 0 / 0 Регистрация: 21.12.2016 Сообщений: 1
		1
	Найти площадь и периметр шестиугольника 21.12.2016, 00:39. Показов 2201. Ответов 1 Метки нет (Все метки) Помогите написать программу, площадь шестиугольника и периметр шестиугольника. 0

	21.12.2016, 06:54

Найти площадь и периметр шестиугольника

Решение