Задача № 1

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

Для определения площади треугольника воспользуемся формулой: . Сторону треугольника определим по теореме косинусов: . Тогда периметр треугольника можно будет определить по формуле: .

Так как тригонометрические функции на VBA определены для аргументов, выраженных в радианах, то от угла в градусах (обозначим ) перейдем к радианам (обозначим ) по формуле: . обозначим в программе через alfagrad, – через alfarad .

Будем считать, что исходная информация в Excel - таблицах расположена в следующем виде:

 

 

	A	B	C
	a=	7,8
	b=	16,1
	alfa град=	25,7

 

Запись S= поместим в ячейку А5 , а расчетное значение площади в ячейку В5. Аналогично Р= – в ячейку А6 , а значение периметра – в ячейку В6 . Тогда программу можно представить в виде:

Private Sub Workbook_Open()

Const pi = 3.1415926

Dim a, b, c, s, p As Single

Dim alfagrad, alfarad As Single

a = Range("B1").Value

b = Range("B2").Value

alfagrad = Range("B3").Value

alfarad = alfagrad * pi / 180

s = a * b * Sin(alfarad) / 2

c = Sqr(a ^ 2 + b ^ 2 - a * b * Cos(alfarad))

p = a + b + c

Range("A5").Value = "S="

Range("B5").Value = s

Range("A6").Value = "P="

Range("B6").Value = p

End Sub

 

Результаты счета в таблицах Excel имеют вид: