|
Русецкий Евгений. Результаты контрольной по 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
| 
