Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Ада и другие языки _ Помогите с VBA

Автор: zara44 8.11.2007 0:39

Вообщем, смотрите. Задача - Напишите нестандартную функцию, которая имеет четыре аргумента стороны треугольника и разрядность. В зависимости от значения аргумента разрядности данная функция возвращает значение медиан ( Ma = 1/2*(((2*b)^2+(2*c)^2-a^2)^(1/2)) и т.д.), при условии что треугольник существует. Если значение аргумента разрядность принимает другое значение, функция возвращает значение обшибку #ЧИСЛО! ПОЖАЛУЙСТА ПРОШУ, помогите...


Function ass(a, b, c, x)
If a > b Then m = a: s = b Else m = b: s = a
If m < c Then s = s + m: m = c Else s = s + c
If m < s Then
If x = 1 Then
Ma = 1 / 2 * (((2 * b) ^ 2 + (2 * c) ^ 2 - a ^ 2) ^ (1 / 2))
'и т.д.
End If
Else
MsgBox "Тр-к не существует"
End If
End Function