Вопрос по информатике:
Заданы координаты трех вершин треугольника (x1,y1) (x2, y2) (x3, y3). Найти его периметр и площадь. Написать программу в vba
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 24.09.2017 07:59
- Информатика
- remove_red_eye 7164
- thumb_up 13
Ответы и объяснения 1
Dim x1 As Double, y1 As Double, x2 As Double, y2 As Double
Dim x3 As Double, y3 As Double
x1 = Cells(2, 2): y1 = Cells(2, 3)
x2 = Cells(3, 2): y2 = Cells(3, 3)
x3 = Cells(4, 2): y3 = Cells(4, 3)
a = L(x1, y1, x2, y2)
b = L(x2, y2, x3, y3)
c = L(x3, y3, x1, y1)
P = a + b + c
Cells(6, 2) = P
p2 = P / 2
S = Sqr(p2 * (P - a) * (P - b) * (P - c))
Cells(7, 2) = S
End Sub
Function L(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As Double
L = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
End Function
- 25.09.2017 18:07
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.