Как вычислить Sqr(5*X)/(3*X-6) - VB
Формулировка задачи:
Прошу помогите решить задание:
Разработать макро функцию с одним параметром х, который вычесляет данное выражение
Если выражение не может быть вычислино тогда функция должна выводить сообщение.
Решение задачи: «Как вычислить Sqr(5*X)/(3*X-6)»
textual
Листинг программы
- private function BungleGrind(x as single) as single
- if (x<0)or (x=2) then
- msgbox("Неправильный x="+str$(x))
- BungleGrind=0
- exit function
- else
- BungleGrind=sqr(x*5)/(3*x-6)
- end if
- end function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
