Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
Wladimiralm
0 / 0 / 1
Регистрация: 09.10.2011
Сообщений: 17
1

Площадь выпуклого многоугольника

09.10.2011, 19:08. Просмотров 2444. Ответов 1
Метки нет (Все метки)

Дан выпуклый многоугольник, с заданной последовательностью координат своих вершин в порядке обхода (х1;у1), (х2;у2)......(Xn;Yn). Вычислить площадь многоугольника.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.10.2011, 19:08
Ответы с готовыми решениями:

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

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

Определить, находится ли точка внутри или вне выпуклого многоугольника, заданного координатами своих вершин
Определить, находится ли точка внутри или вне выпуклого многоугольника,...

Вычислить площадь выпуклого шестиугольника по заданным координатам
Вычислить площадь выпуклого шестиугольника по заданным координатам x1,y1;...

площадь многоугольника
Необходимо по координатам точек на плоскости карты найти площадь...

1
Puporev
Модератор
55045 / 42318 / 29224
Регистрация: 18.05.2008
Сообщений: 100,005
09.10.2011, 21:38 2
Лучший ответ Сообщение было отмечено Wladimiralm как решение

Решение

Pascal
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
uses crt;
type Point=record
           x,y:real;
           end;
const nmax=20;
var a:array[1..nmax+1] of Point;
    t:Point;
    n,i:integer;
    s,s1:real;
begin
repeat
write('Количество вершин от 4 до ',nmax,' n=');
//треугольник не будем рассматривать
readln(n);
until n in [4..nmax];
writeln('Введите координаты выпуклого ',n,'-угольника в порядке обхода:');
for i:=1 to n do
 begin
  writeln('Вершина ',i);
  write(' x=');readln(a[i].x);
  write(' y=');readln(a[i].y);
 end;
a[n+1]:=a[1];//замыкаем полигон
t.x:=(a[1].x+a[3].x)/2; //берем точку в многоугольнике
t.y:=(a[1].y+a[3].y)/2;
s:=0;
for i:=1 to n do
 begin
  //вычисляем площади треугольников из смежных вершин и точки внутри
  //через определитель
  s1:=abs((t.x-a[i].x)*(a[i+1].y-a[i].y)-(a[i+1].x-a[i].x)*(a[i+1].y-t.y))/2;
  s:=s+s1; //суммируем
 end;
write('S=',s:0:2);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.10.2011, 21:38

Вычислите площадь произвольного выпуклого n-угольника, заданного координатами своих вершин на плоскости (x, y)
Вычислите площадь произвольного выпуклого n-угольника, заданного координатами...

Площадь многоугольника по вершинам
var x , y:arrayof real ; n , i :integer; s , s1 :real ; begin read(n); for...

Определить площадь многоугольника, вписанного в окружность
Для произвольно заданного радиуса окружности ( ) определить площади правильных...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru