IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Помогите с VBA, задача на нестандартные функции
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 29
Пол: Мужской
Реальное имя: Алексей

Репутация: -  0  +


Вообщем, смотрите. Задача - Напишите нестандартную функцию, которая имеет четыре аргумента стороны треугольника и разрядность. В зависимости от значения аргумента разрядности данная функция возвращает значение медиан ( 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



--------------------
Хочу стать программером, но еще много чего учить!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 5.12.2020 1:11
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name