Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/12: Рейтинг темы: голосов - 12, средняя оценка - 4.75
Nastya555
0 / 0 / 1
Регистрация: 18.09.2011
Сообщений: 31
#1

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

09.10.2011, 22:41. Просмотров 2184. Ответов 1
Метки нет (Все метки)

Выпуклый многоугольник задан последовательностью координат своих вершин в порядке обхода. (x1,y1;x2,y2,...xn,yn) Вычислить площадь многоугольника. (без использования массивов)
здесь с массивами.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.10.2011, 22:41
Ответы с готовыми решениями:

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

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

Подпрограммы. Описать процесс вычисления площади выпуклого многоугольника.
Кто знает такое ..... выручайте :( Описать процесс определения площади...

Вычислить площадь выпуклого четырехугольника
Написать 4 программы для вычисления площади выпуклого четырехугольника ABCD,...

найти площадь выпуклого четырёхугольника по координатам его вершин
найти площадь выпуклого четырёхугольника по координатам его вершин А(x1,y1)...

1
Puporev
Модератор
54348 / 41941 / 28977
Регистрация: 18.05.2008
Сообщений: 98,786
10.10.2011, 09:53 #2
Лучший ответ Сообщение было отмечено Nastya555 как решение

Решение

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

Найти площадь многоугольника
Нужна помощь в решении двух задачек.. 1) Процедуры и функции: На плоскости...

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

Подпрограммы: Вычислить площадь многоугольника
Даны действительные числа: k,m,n,p. Вычислить площадь многоугольника,...


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

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

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