Найти площадь произвольного выпуклого многоугольника

21.01.2016, 16:25. Показов 555. Ответов 0

Метки нет (Все метки)

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

Задается произвольный выпуклый многоугольник своими
сторонами и углами. Естественно, что стороны и углы должны
соответствовать друг другу. Массив А() - это массив сторон.
Массив f() - это массив углов. Как они должны заполняться?
f(1), A(1), f(2), A(2), .... f(n), A(n) (n - задано заранее).
В данной программе приведен пример правильного
шестиугольника и поэтому ввод данных произведен в цикле
(То есть порядок не имеет в данном случае значения)
Алгоритм.
Программа отделяет от N-угольника треугольник. N-угольник
превращается в (N-1)-угольник. И вычисляется площадь
этого (N-1)-угольника и треугольника. Применяется рекурсивная функция.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
REM Программа вычисляет площадь произвольного
REM выпуклого многоугольника, который задан
REM своими сторонами (массив А()) и углами (массив f()).
REM Рассмотрен пример вычисления площади
REM        правильного шестиугольника
 
DECLARE FUNCTION SUM! (n!)
CLS
n = 6
 
CONST p2 = 2.0943951#
DIM SHARED A(1 TO n)
DIM SHARED f(1 TO n)
 
FOR i = 1 TO n
   A(i) = 100
   f(i) = p2
NEXT i
 
PRINT "S ="; SUM(n)
END
 
FUNCTION SUM (n)
   IF n = 3 THEN
      SUM = .5 * A(1) * A(3) * SIN(f(1))
   ELSE
      a1 = A(n - 1)
      a2 = A(n)
      ff = f(n)
      aa = SQR(a1 ^ 2 + a2 ^ 2 - 2 * a1 * a2 * COS(ff))
 
      s1 = a1 * SIN(ff) / aa
      c1 = SQR(1 - s1 ^ 2)
      IF c1 THEN f1 = ATN(s1 / c1) ELSE f1 = 1.570796
 
      s2 = a2 * SIN(ff) / aa
      c2 = SQR(1 - s2 ^ 2)
      IF c2 THEN f2 = ATN(s2 / c2) ELSE f2 = 1.570796
     
      f(1) = f(1) - f1
      f(n - 1) = f(n - 1) - f2
      A(n - 1) = aa
 
      s3 = .5 * a1 * a2 * SIN(ff)
 
      SUM = SUM(n - 1) + s3
   END IF
END FUNCTION

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

21.01.2016, 16:25

Ответы с готовыми решениями:

Найти площадь выпуклого многоугольника
На плоскости задан выпуклый многоугольник с координатами его вершин M1(x1,y1), M2(x2,y2), M3(x3,y3),...Mn(xn,yn). Составить программу...

Найти площадь выпуклого многоугольника
на плоскости задан выпуклый многоугольник с координатами его вершин M1 (x1, y1), M2 (x2, y2), M3 (x3, y3 ),..., Mn (xn, yn). составить...

Найти площадь многоугольника (не обязательно выпуклого)
Найти площадь многоугольника (не обязательно выпуклого), заданного координатами своих вершин на плоскости в порядке обхода по или против...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

21.01.2016, 16:25

Помогаю со студенческими работами здесь

Найти площадь минимального выпуклого многоугольника, описанного вокруг заданной территории
Заяц, хаотично прыгая, оставил след в виде замкнутой самопересекающейся ломаной, охватывающей территорию его владения(отрезки ломаной...

Описать прямоугольник вокруг произвольного выпуклого многоугольника
Добрый день. Вопрос практического характера. Есть детали, которые вырезаются из металлического листа. Для предварительной оценки...

Площадь выпуклого многоугольника
Доброго времени суток! Собственно, задача звучит как: "Расчет площади выпуклого многоугольника при вводимых координатах вершин". ...

Площадь выпуклого многоугольника
Дан выпуклый многоугольник, с заданной последовательностью координат своих вершин в порядке обхода (х1;у1), (х2;у2)......(Xn;Yn). Вычислить...

Площадь выпуклого многоугольника.
Выпуклый многоугольник задан последовательностью координат своих вершин в порядке обхода. (x1,y1;x2,y2,...xn,yn) Вычислить площадь...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

Наверх