Найти площадь n-угольника, вершины которого при некотором последовательном обходе имеют заданные координаты - VB
Формулировка задачи:
Даны натуральное число n, действительные числа х1,у1,х2,у2. Найти площадь n-угольника,вершины которого при некотором последовательном обходе имеют координаты (х1,у1),(х2,у2)..,(Xn,Yn)(определить процедуру вычисления площади треугольника по координатам его вершин).
Решение задачи: «Найти площадь n-угольника, вершины которого при некотором последовательном обходе имеют заданные координаты»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д