Connected by... logo
  Главная
Market Connected by Velcom Connected by МТС Connected by БелСел Connected by Белтелеком Оборудование  
 См. также :
Рекомендуемое

bsu.by - официальный сайт БГУ

ЭФ на bsu.by - Экономфак на сайте БГУ

economy.bsu.by - официальный сайт ЭФ БГУ

e-University - тестовая система БГУ

Русецкий Евгений. Результаты контрольной по VBA.
вернуться на главную страницу можно, воспользовавшись ссылкой.

Оценка 1,6 балла (0,9+0,7).

Задание 1.

Женя, функция и входная переменная х при отсутствии описания типа становится Variant, что не самое рациональное решение. За это 0,1 балла и снято. То, что в первом If переменная fun должна быть равна не корню из -3 а несколько иному выражению – это я, как бы не заметил, ну описАлся, бывает… Я бы рекомендовал тебе конструкцию 3 <= x <= 7 разделять впредь на две – x>=3 And x<=7 …

0,9

Public Function fun(x)
If x < -3 Then
fun = Sqr(-3)
Else
End If
If -3 <= x <= 7 Then
fun = (2 * x) / (5 * x + 3)
Else
End If
If x > 7 Then
fun = (3 * x + 5) / (x * x + 1)
Else
End If
End Function

Задание 2.

Знаешь, кроме типов переменных здесь еще надо было предусмотреть иные возможности – все числа положительные, все отрицательные, одно положительное...Не спорю, привыкли мы вот так – я эту логику показывал в первой самой задаче, когда определялось максимально число из трех, но здесь-то задача несколько иная, мягко говоря…

0,7

Разработать функцию пользователя, вычисляющую удвоенную сумму положительных чисел, из трех заданных. (1 балл)

Public Function dbs(A, B, C)
If A > 0 And B > 0 And C < 0 Then
dbs = 2 * (A + B)
Else
End If
If A > 0 And B < 0 And C > 0 Then
dbs = 2 * (A + C)
Else
End If
If A < 0 And B > 0 And C > 0 Then
dbs = 2 * (B + C)
Else
End If
End Function

© 2003-2015 bsu.name, email: bsu@bsu.name, phone +375 297 72-30-84, page VKontakte
Зарегистрировать почту @bsu.name

  Rating All.BY