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

Формулировка задачи:

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

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

textual
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

15   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы