Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Ynikum
5 / 3 / 2
Регистрация: 09.06.2010
Сообщений: 89
1

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

22.07.2011, 12:18. Просмотров 817. Ответов 1
Метки нет (Все метки)

Необходимо по координатам точек на плоскости карты найти площадь многоугольника.
Формат файла входных данных:
В первой строке файла входных данных содержится единственное натуральное число N (2<N<10). В следующих N строках содержатся по два четных натуральных числа, не превосходящих 100 – координаты вершин многоугольника в порядке обхода по часовой стрелке. Значения координат таковы, что стороны многоугольника не имеют точек пересечения с другими сторонами.
Формат файла выходных данных:
В единственной строке файла выходных данных должно содержаться единственное положительное целое число – площадь многоугольника.
Пример файла входных данных:
4
2 2
2 4
4 4
4 2

Пример файла выходных данных:
4
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.07.2011, 12:18
Ответы с готовыми решениями:

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

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

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

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

Вычислить длину окружности, площадь круга, объём и площадь поверхности шара
Помогите пожалуйста. Сессия! Сижу уже неделю, не получается. 1. Буквы русского...

1
Puporev
Модератор
55066 / 42330 / 29233
Регистрация: 18.05.2008
Сообщений: 100,027
22.07.2011, 12:43 2
Лучший ответ Сообщение было отмечено Ynikum как решение

Решение

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
uses crt;
var a:array[1..2,1..9] of integer;
    n,i:byte;
    s:integer;
    inp,out:text;
begin
clrscr;
assign(inp,'input.txt');
reset(inp);
assign(out,'output.txt');
rewrite(out);
read(inp,n);
for i:=1 to n do
 begin
  read(inp,a[1,i]);
  read(inp,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]) div 2;//сумма векторных произведений смежных сторон
s:=abs(s);{площадь может получиться и отрицательная}
writeln('s=',s);
write(out,s);
close(inp);
close(out);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.07.2011, 12:43

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

Найти площадь грани, площадь полной поверхности и объем куба
3. Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и...

Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем куба
Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем...


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

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

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