Функция как аргумент функции - VB

Узнай цену своей работы

Формулировка задачи:

Возможно, вопрос довольно глупый, но я, в ходе написания курсовой работы, застрял в одном месте. Вообщем, пишу я тройку функций:
Листинг программы
  1. Function y(ByVal x As Single) As Single
  2. Return k * (Math.E ^ (x / 3) + Math.E ^ (-x / 3)) / 2
  3. End Function
  4. Function summ(ByVal f() As Single, ByVal start As Integer, ByVal final As Integer, ByVal h As Integer) As Single
  5. Dim i As Integer, sum As Single
  6. sum = 0
  7. For i = start To final Step h
  8. sum = sum + f(i)
  9. Next
  10. Return sum
  11. End Function
  12. Function integra(ByVal fu() As Single, ByVal a As Single, ByVal b As Single, ByVal h As Single) As Single
  13. 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))
  14. End Function
Задумка такова, чтобы при вызове функции summ или integra в них можно было задать в качестве аргумента функцию y. Однако, тот способ, которым пользуюсь я, заставляет компилятор думать, что я имею в виду не функцию, а одномерный массив. Можно подумать, что надо просто правильно задать тип аргумента, но в перечне типов аргумента я не нашел ничего, что было бы похоже на тип аргумента - функция. Вообще, обход этой трудности я уже нашел, просто заранее задавая функцию в виде одномерного массива с перечнем значений функции, но, может, есть всё-таки способ сделать так, чтобы компилятор понимал, что я хочу сделать аргументом функции - функцию?

Решение задачи: «Функция как аргумент функции»

textual
Листинг программы
  1. msgbox(func(с,7))

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.5 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы