Функция как аргумент функции - VB
Формулировка задачи:
Возможно, вопрос довольно глупый, но я, в ходе написания курсовой работы, застрял в одном месте.
Вообщем, пишу я тройку функций:
Задумка такова, чтобы при вызове функции summ или integra в них можно было задать в качестве аргумента функцию y. Однако, тот способ, которым пользуюсь я, заставляет компилятор думать, что я имею в виду не функцию, а одномерный массив.
Можно подумать, что надо просто правильно задать тип аргумента, но в перечне типов аргумента я не нашел ничего, что было бы похоже на тип аргумента - функция.
Вообще, обход этой трудности я уже нашел, просто заранее задавая функцию в виде одномерного массива с перечнем значений функции, но, может, есть всё-таки способ сделать так, чтобы компилятор понимал, что я хочу сделать аргументом функции - функцию?
Листинг программы
- Function y(ByVal x As Single) As Single
- Return k * (Math.E ^ (x / 3) + Math.E ^ (-x / 3)) / 2
- End Function
- Function summ(ByVal f() As Single, ByVal start As Integer, ByVal final As Integer, ByVal h As Integer) As Single
- Dim i As Integer, sum As Single
- sum = 0
- For i = start To final Step h
- sum = sum + f(i)
- Next
- Return sum
- End Function
- Function integra(ByVal fu() As Single, ByVal a As Single, ByVal b As Single, ByVal h As Single) As Single
- Return h / 3 * (fu(a) + fu(b) + 4 * summ(fu, a + h, b - h, h) + 2 * summ(fu, a + 2 * h, b - 2 * h, h))
- End Function
Решение задачи: «Функция как аргумент функции»
textual
Листинг программы
- msgbox(func(с,7))
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д