Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
1 / 1 / 0
Регистрация: 20.12.2011
Сообщений: 38
1

Найти площадь n-угольника, вершины которого при некотором последовательном обходе имеют заданные координаты

12.12.2012, 20:54. Показов 1339. Ответов 5
Метки нет (Все метки)

Даны натуральное число n, действительные числа х1,у1,х2,у2. Найти площадь n-угольника,вершины которого при некотором последовательном обходе имеют координаты (х1,у1),(х2,у2)..,(Xn,Yn)(определить процедуру вычисления площади треугольника по координатам его вершин).
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2012, 20:54
Ответы с готовыми решениями:

Найти площадь уголка, вершины которого при некотором последовательном обходе имеют координаты
Дано натуральное число n, действительные числа{x}_{1} {x}_{1},...,{x}_{n} {y}_{n}. Найти площадь...

Найти площадь многоугольника, вершины которого при некотором обходе имеют заданные координаты
namespace ConsoleApplication53 { class Program { static int Input() {...

Найти площадь пятиугольника, вершины которого имеют указанные координаты
Даны вещественные числа х1, у1, х2, у2,… х5, у5 – Найти площадь пятиугольника, вершины которого...

Найти площадь пятиугольника, вершины которого имеют указанные координаты
Даны вещественные числа х1, у1, х2, у2,… х5, у5 – Найти площадь пятиугольника, вершины которого...

5
11200 / 3571 / 636
Регистрация: 13.02.2009
Сообщений: 10,674
13.12.2012, 03:37 2
Ну так выложи сюда свой "сценарий".
Попробуем найти ошибки вместе

Не по теме:

Кликните здесь для просмотра всего текста
"вершины которого" ого!

0
Заблокирован
13.12.2012, 08:48 3
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub площадь_n_угольника()
Dim n As Long, i As Long, s As Double
n = 3 'InputBox("n = ")
ReDim x(1 To n) As Double, y(1 To n) As Double
 
Randomize
For i = 1 To n
  x(i) = Rnd * n 'InputBox("x(" & i & ") = ")
  y(i) = Rnd * n 'InputBox("y(" & i & ") = ")
Next i
 
For i = 1 To n
  s = s + (x(i) - x(i Mod n + 1)) * (y(i) + y(i Mod n + 1)) / 2
Next i
MsgBox "S = " & Abs(s)
End Sub
1
Модератор
Эксперт Python
28590 / 15454 / 3053
Регистрация: 12.02.2012
Сообщений: 25,333
Записей в блоге: 4
14.12.2012, 12:07 4
Обход вершин не при чем... А если многоугольник невыпуклый - задачу будет сложной.
0
Заблокирован
14.12.2012, 12:38 5
Цитата Сообщение от Catstail Посмотреть сообщение
А если многоугольник невыпуклый - задачу будет сложной
Задача будет сложной, если в многоугольнике есть пересекающиеся несмежные стороны, в противном случае выпуклость (вогнутость) значения не имеет
0
Модератор
Эксперт Python
28590 / 15454 / 3053
Регистрация: 12.02.2012
Сообщений: 25,333
Записей в блоге: 4
15.12.2012, 05:38 6
Кажется, я погорячился... Порядок обхода влияет на результат.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.12.2012, 05:38

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

Вычислить периметр n-угольника вершины которого имеют соответственно координаты в порядке их обхода по часовой стрелке
вычислить периметр н-угольника вершины которого имеют соответственно координаты (х1, у1) (х2, у2)...

Найти периметр восьмиугольника, вершины которого имеют соответственно координаты (x1, y1), (x2, y2), …, (x8, y8)
Найти периметр восьмиугольника, вершины которого имеют соответственно координаты (x1, y1), (x2,...

Найти периметр десятиугольника, вершины которого имеют соответственно координаты
Задание:Даны действительные числа x1,y1,x2,y2,…,x10. Найти периметр десятиугольника, вершины...

Найти периметр десятиугольника, вершины которого имеют соответственные координаты
Даны действительные числа X1,Y1, X2,Y2,...X10,Y10. Найти периметр десятиугольника, вершины которого...


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

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

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