Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Dimka1
0 / 0 / 0
Регистрация: 31.05.2014
Сообщений: 5
#1

Вычислить периметр треугольника, построенного по трем точкам - VBA

31.05.2014, 16:41. Просмотров 657. Ответов 4
Метки нет (Все метки)

Составьте процедуру на языке VBA, которая вычисляет периметр треугольника, построенного по трем точкам. Вычисление длины стороны
оформить в виде функции.
Исходные данные:
A(0,0), B(3,0), C(0,-4)
Результат:
Периметр треугольника равен 12,00 (ед.)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.05.2014, 16:41
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислить периметр треугольника, построенного по трем точкам (VBA):

Вычисление площади треугольника, построенного по трем точкам
Такая задача: Составьте процедуру на языке VBA для вычисления площади...

Как вычислить периметр и площадь прямоугольного треугольника по заданным длинам двух катетов
1)Вычислить периметр и площадь прямоугольного треугольника по заданным длинам...

Найти периметр и площадь треугольника
Я понимаю, что сочинил какую-то чушь, но не понимаю как надо написАть...

Дан периметр треугольника P, подобрать размер сторон
и ещё одну если не затруднит))) Дан периметр треугольника P (целое,...

Построение треугольника по трем точкам
Нужно построить треугольник по трем точкам,условия существования я сделал,есть...

Построение треугольника по трем точкам
Добрый день! В универе дали задание сделать программу, которая строит...

4
sunlight-vrn
6 / 6 / 3
Регистрация: 10.07.2013
Сообщений: 20
03.06.2014, 15:03 #2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub test()
x1 = 0
y1 = 0
x2 = 3
y2 = 0
x3 = 0
y3 = -4
temp = perimetr(x1, y1, x2, y2, x3, y3)
End Sub
 
Function perimetr(ByVal x1 As Double, ByVal y1 As Double, _
                   ByVal x2 As Double, ByVal y2 As Double, _
                   ByVal x3 As Double, ByVal y3 As Double)
                   
Dim AB, BC, CA As Double
 
AB = Sqr(((x2 - x1) ^ (2)) + ((y2 - y1) ^ (2)))
BC = Sqr(((x3 - x2) ^ (2)) + ((y3 - y2) ^ (2)))
CA = Sqr(((x3 - x1) ^ (2)) + ((y3 - y1) ^ (2)))
 
perimetr = AB + BC + CA
End Function
0
ikki
призрак
2822 / 878 / 117
Регистрация: 11.05.2012
Сообщений: 1,702
Записей в блоге: 2
03.06.2014, 16:48 #3
всё хорошо, за исключением этой фигни:
Цитата Сообщение от Dimka1 Посмотреть сообщение
Вычисление длины стороны оформить в виде функции.
ну и со скобками переборщили, конечно
0
sunlight-vrn
6 / 6 / 3
Регистрация: 10.07.2013
Сообщений: 20
04.06.2014, 08:03 #4
ikki, не заметила. Подумала что весь периметр нужно в функцию оформить, но я думаю переделать не сложно.
Цитата Сообщение от ikki Посмотреть сообщение
ну и со скобками переборщили, конечно
В смысле то что степень 2 в скобках? у меня просто vba ругался, если я их убирала.
0
Krevedkoff
10 / 10 / 2
Регистрация: 06.01.2011
Сообщений: 49
04.06.2014, 16:35 #5
ничего, тов. студент заодно изучит разницу между процедурами и функциями
0
04.06.2014, 16:35
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.06.2014, 16:35
Привет! Вот еще темы с решениями:

Найти периметр и площадь треугольника по данным трем сторонам
1.Даны действительные положительные числа а,в,с, которые являются длинами...

Найти наибольший периметр треугольника, вершины которого принадлежат различным точкам массива
Всем доброго времени суток! Уважаемые форумчане,помогите пожалуйста решить вот...

Найти наибольший периметр треугольника, вершины которого принадлежат различным точкам множества
Дано множество A из N точек (N > 2, точки заданы своими координатами х, у)....

Найти наименьший периметр треугольника, вершины которого принадлежат различным точкам множества
Дано множество A из N точек с координатами (x,y). Найти наименьший периметр...


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

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

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