Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 15, средняя оценка - 4.93
Nastya555
0 / 0 / 1
Регистрация: 18.09.2011
Сообщений: 31
#1

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

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

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

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

Посчитать площадь площадь выпуклого четырёхугольника, если известны координаты его вершин. - Turbo Pascal
Посчитать площадь площадь выпуклого четырёхугольника, если известны координаты его вершин. Площадь высчитывается по формуле S:=...

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

Вычислить площадь выпуклого четырехугольника - Turbo Pascal
Написать 4 программы для вычисления площади выпуклого четырехугольника ABCD, заданного длинами сторон AB, BC, CD, DA и диагональю...

найти площадь выпуклого четырёхугольника по координатам его вершин - Turbo Pascal
найти площадь выпуклого четырёхугольника по координатам его вершин А(x1,y1) B(x2,y2) C (x3,y3) D(x4,y4) Добавлено через 1 час 13 минут...

Вычислить площадь многоугольника - Turbo Pascal
Многоугольник на плоскости задан координатами своих вершин в порядке их обхода. Найти площадь. N- кол.во вершин (3 <= n <= 100) ...

1
Puporev
Модератор
54039 / 41672 / 14753
Регистрация: 18.05.2008
Сообщений: 97,993
10.10.2011, 09:53 #2
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
Привет! Вот еще темы с ответами:

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

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

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

Нахождение диагоналей выпуклого многоугольника - Pascal
Произвольный выпуклый многоугольник задан координатами своих вершин на плоскости. Найдите самую длинную диагональ данного многоугольника. ...


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

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

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