Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
pugavka18
0 / 0 / 0
Регистрация: 09.03.2016
Сообщений: 45
1

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

19.02.2017, 14:09. Просмотров 1072. Ответов 1
Метки нет (Все метки)

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

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

0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.02.2017, 14:09
Ответы с готовыми решениями:

Найти периметр четырехугольника ABCD, если известны координаты его вершин
Найти периметр четырехугольника АВСD, если известны координаты его ...

Известны координаты вершин треугольника
Известны координаты вершин треугольника ABC. Определить принадлежит ли вводимая...

У квадрата ABCD на плоскости известны координаты двух противоположных вершин - точек A и C. Найти координаты точек B и
У квадрата ABCD на плоскости известны координаты двух противоположных вершин -...

Найти наибольшую высоту треугольника, если известно координаты его вершин, используя функцию или процедуру
Найти наибольшую высоту треугольника, если известно координаты его вершин,...

Если координаты точек могут быть вершинами тупоугольного треугольника, вычислите его площадь
Пусть даны координаты трех точек на плоскости. Если они могут быть вершинами...

1
Alexandr212
94 / 91 / 110
Регистрация: 28.11.2016
Сообщений: 504
19.02.2017, 14:13 2
Лучший ответ Сообщение было отмечено pugavka18 как решение

Решение

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
uses crt;
var a:array[1..2,1..100] of real;
    n,i:byte;
    s:real;
begin
clrscr;
write('Количество вершин n=');
readln(n);
writeln('Введите координаты вершин в порядке обхода:');
for i:=1 to n do
 begin
  write('x[',i,']=');
  readln(a[1,i]);
  write('y[',i,']=');
  readln(a[2,i]);
 end;
{замкнем ломаную}
a[1,n+1]:=a[1,1];
a[2,n+1]:=a[2,1];
s:=0;
for i:=1 to n do
s:=s+(a[2,i+1]+a[2,i])*(a[1,i+1]-a[1,i])/2;
s:=abs(s);{площадь может получиться и отрицательная}
write('S=',s:0:2);
readln
end.
Программа с форума, можно было и поискать, есть такие темы уже.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.02.2017, 14:13

Функции. Вычислить площадь выпуклого пятиугольника
Вычислить площадь выпуклого пятиугольника по заданным координатам x1,y1; x2,y2;...

Найти площадь трапеции, если известны ее основания и высота
Найти площадь трапеции, если известны ее основания и высота. Спасибо заранее

Вычислить площадь выпуклого четырехугольника, заданного длинами четырех сторон a, b, c, d и диагональю e
Составить программу вычисления площади выпуклого четырехугольника, заданный...


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

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

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