Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Апострофф
Заблокирован
04.12.2012, 09:23 0

Найти периметр десятиугольника c заданными координатами вершин

04.12.2012, 09:23. Просмотров 672. Ответов 3
Метки (Все метки)

Ответ

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Command1_Click()
Dim n As Long
n = 10 'inputbox("Введите к-во точек")
ReDim x(0 To n - 1) As Double, y(0 To n - 1) As Double
Dim i As Long
randomize
For i = 0 To n - 1
  x(i) = Rnd * n 'inputbox("X(" & i+1 & ")=")
  y(i) = Rnd * n 'inputbox("Y(" & i+1 & ")=")
Next i
Dim l As Double
For i = 1 To n
  l = l + Get_L(x(i - 1), y(i - 1), x(i Mod n), y(i Mod n))
Next i
MsgBox "L = " & l
End Sub
 
'процедура вычисления расстояния между двумя точками, заданными своими координатами
Function Get_L(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As Double
Get_L = Sqr((x1 - x2) * (x1 - x2) + (y1 - y2) * (y1 - y2))
End Function


Вернуться к обсуждению:
Найти периметр десятиугольника c заданными координатами вершин
2
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.12.2012, 09:23
Готовые ответы и решения:

Как вычислить периметр треугольника, заданного координатами его вершин
19 вариант Где тут ошибка? Private Sub Command3_Click() p = Lg(Abs(X)) v...

Из десяти равнобедренных треугольников с заданными длинами оснований и высот найти наименьший периметр
1) Диалоги квадратной матрицы: Увеличить положительные элементы главной...

Построить п-угольник с заданными координатами вершин
Задача 1. Построить п-угольник с заданными координатами вершин (координаты...

Проверить, попадает ли точка с заданными координатами в квадрат
3.Даны координаты точки. Определить, попадает ли точка в квадрат

Определить, попадает ли точка с заданными координатами в окружность
2.Даны координаты точки. Определить, попадает ли точка в окружность (0,0,10).

3
Другие темы раздела
Visual Basic Вычисление площади треугольника по координатам трех его вершин http://www.cyberforum.ru/visual-basic/thread706822.html
показывает ошибку, не знаю что не так. программа: Private Function pltrkoor(xl As Single, y1 As Single, x2 As Single, y2 As Single, x3 As Single, у3 As Single) As Double a= rast(x1, у1, x2,...
Visual Basic Вычисление площади треугольника по его трем сторонам (Формула Герона) 1. Записать вычисления площади треугольника по его трем сторонам используя процедуру (Формула Герона) программа: Public s As Double Public Sub pltr(a As Double, b As Double, с As Double, pi... http://www.cyberforum.ru/visual-basic/thread706818.html
Visual Basic Вычислить количество отрицательных элементов массива
Как понять "Вычислить Dsr"?
Visual Basic Объясните назначение оператора With - End With
Можно объяснить для чего нужен оператор with .. end with? и простенький хотя бы пример использования этого оператора при работе с файлами?
Visual Basic Прощаюсь с форумом http://www.cyberforum.ru/visual-basic/thread705909.html
Ребят, собственно это мой последний топик, решил попрощаться с товарищами! Ввиду некоторых жизненных неурядиц, мне приходится так скажем бросить программирование, да и собственно все с компьютерами...
Visual Basic Подсчитать количество элементов массива больших 5 и меньших 10 Разработать проект решения задачи с применением одномерных массивов: В заданном одномерном массиве, состоящем из 10 элементов, подсчитать количество элементов больших 5 и меньших 10. подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru