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

@Az-Pekt · Регистрация: 20.03.2010

Студворк — интернет-сервис помощи студентам

Возможно, вопрос довольно глупый, но я, в ходе написания курсовой работы, застрял в одном месте.

Вообщем, пишу я тройку функций:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    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

Задумка такова, чтобы при вызове функции summ или integra в них можно было задать в качестве аргумента функцию y. Однако, тот способ, которым пользуюсь я, заставляет компилятор думать, что я имею в виду не функцию, а одномерный массив.
Можно подумать, что надо просто правильно задать тип аргумента, но в перечне типов аргумента я не нашел ничего, что было бы похоже на тип аргумента - функция.
Вообще, обход этой трудности я уже нашел, просто заранее задавая функцию в виде одномерного массива с перечнем значений функции, но, может, есть всё-таки способ сделать так, чтобы компилятор понимал, что я хочу сделать аргументом функции - функцию?

@ironegg · 20.03.2010, 03:20

так чтоли

Visual Basic
1
2
3
4
5
6
7
8
9
Function a(ByVal x)
a = x * 2
End Function
Function b(ByVal x)
b = x * 3
End Function
Sub c()
MsgBox a(b(2))
End Sub

Сообщение от Az-Pekt

при вызове функции summ или integra ... задать в качестве аргумента функцию y

не вижу, чтото я в твоем коде аргумента y

@Az-Pekt · 20.03.2010, 04:30 **[ТС]**

Это не совсем то, что я имел ввиду. В твоем коде ты в качестве аргумента используешь ЗНАЧЕНИЕ функции, а я думаю над тем, чтобы в аргументе была САМА функция, а не ее значение при некотором аргументе.

не вижу, чтото я в твоем коде аргумента y

Вся задумка как раз в том, чтобы использовать функцию без аргумента. Аналитическое выражение функции, а не ее значения при том или ином аргументе...
Но, чем больше я об этом пишу и задумываюсь, тем меньше мне кажется, что синтаксис Бэйсика такое позволяет.

@ironegg · 20.03.2010, 05:37

в приведенном тобой коде я вижу только ОПРЕДЕЛЕНИЕ функции y

Сообщение от Az-Pekt

Visual Basic
1
2
3
FUNCTION y(BYVAL x AS SINGLE) AS SINGLE
 RETURN k * (Math.E ^ (x / 3) + Math.E ^ (-x / 3)) / 2
 END FUNCTION

она нигде не используется!
покажи, как(где) ты хочешь ее использовать

@Az-Pekt · 20.03.2010, 11:02 **[ТС]**

Допустим здесь

Visual Basic
1
2
3
    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

Самый первый аргумент функции integra - fu(). Естественно, компилятор воспринимает это как массив, потому и встал вопрос, как сделать аргументом функции функцию? Идеально при вызове функции integra я хочу просто писать:

Visual Basic
1
integra(y,1,9,1)

Где у - соответственно, моя функция.

@ironegg · 20.03.2010, 16:29

нет ответа! в коде функции integra как она будет использоваться?

@Az-Pekt · 20.03.2010, 17:05 **[ТС]**

Как функция, к которой он будет обращаться дабы получить то или иное значение.

@ironegg · 20.03.2010, 23:18

я могу только строить догадки... вырази, в конце концов, свою мысль на VB. напиши простенький пример, наподобие как во втором посте.
может так?

Visual Basic
1
2
3
4
5
6
7
8
9
Function a(ByVal x)
    a = x * 2
End Function
Function b(Optional ByVal x = 5)
    b = x * 3
End Function
Sub c()
    MsgBox a(b)
End Sub

@Az-Pekt · 21.03.2010, 13:21 **[ТС]**

Потому тема эта и создана, что я не знаю, как это выразить на VB)
Ну, вот смотри:

Visual Basic
1
2
3
4
5
6
7
8
9
function a(byval x as Single) as Single
return x^2 + 2
end function
 
function b(byval a as <функция> , Byval x as Single) as single
return a(x)^3 - a(3*x)^2
end function
 
msgbox(b(a,3))

То есть чтобы при вызове функции b, в которой аргументом служит функция a и переменная x, мы получали решение такого аналитического уравнения:
(x^2 + 2)^3 - ((3*x)^2 + 2)^2
Это уравнение получилось после подстановки аналитического выражения функции а(х) = x^2 + 2 в функцию b(a,x) = a(x)^3 - a(3*x)^2.

@ironegg · 21.03.2010, 14:01

Visual Basic
1
2
3
4
5
6
7
8
9
FUNCTION a(BYVAL x AS SINGLE) AS SINGLE
RETURN x^2 + 2
END FUNCTION
 
FUNCTION b(BYVAL x AS SINGLE) AS SINGLE
RETURN a(x)^3 - a(3*x)^2
END FUNCTION
 
msgbox(b(3))

работает так как надо?

@Az-Pekt · 21.03.2010, 15:07 **[ТС]**

)
Смылс функции, как и программирования в целом - унификация и сведение всех действий к минимуму. То что ты написал работать будет, но не будет содержать тот смысл, который я вкладываю в вопрос. Более развернутый пример. Имеем ряд разных функций:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
FUNCTION a(BYVAL x AS SINGLE) AS SINGLE
RETURN x^2 + 2
END FUNCTION
 
FUNCTION b(BYVAL x AS SINGLE) AS SINGLE
RETURN x^3 - (3*x)^2
END FUNCTION
 
FUNCTION с(BYVAL x AS SINGLE) AS SINGLE
RETURN x^(1/3) - x
END FUNCTION
 
FUNCTION d(BYVAL x AS SINGLE) AS SINGLE
RETURN ABS(x^3) - 4*x
END FUNCTION

И одну функцию, которая должна содержать аргумент - другую функцию:

Visual Basic
1
2
3
FUNCTION func(byval f as [функция],BYVAL x AS SINGLE) AS SINGLE
RETURN SQRT(ABS(f(x)^5 + 8))
END FUNCTION

Смысл в том, чтобы мы в func вместо f смогли вставить любую из выше перечисленных функций (a, b, c или d). Скажем, когда мы пишем:

Visual Basic
1
msgbox(func(b,10))

Мы получаем ответ на аналитическое выражение SQRT(ABS((10^3 - (3*10)^2)^5 + 8)). То есть мы подставили b равное x^3 - (3*x)^2 в func, которое равно SQRT(ABS(f(x)^5 + 8)), вместо f(x), и x = 10.

Я хочу чтобы была также возможность подставить и другую функцию вместо f. Например c:

Visual Basic
1
msgbox(func(с,7))

Чтобы получить ответ на аналитическое выражение SQRT(ABS((7^(1/3) - 7)^5 + 8)).

Уже и не знаю, как яснее изложить свою мысль)

@ironegg · 21.03.2010, 15:57

оно?
http://www.microsoft.com/Rus/M... r/134.mspx
http://www.thevbzone.com/secrets.htm
сам я тебе не помошник. так глубоко я не копаю

@Az-Pekt · 21.03.2010, 18:20 **[ТС]**

О, похоже на то, спс)
По правде говоря, я уже давно нашел альтернативу более прямолинейную и менее элегентную, чем того хотелось, но всё-таки. Выяснить этот вопрос - уже было дело принципа, да и самопросвещения) Судя по тому, что написано в первой ссылке, в ВБ сделать этого нельзя, хотя некоторая симуляция того есть. Попробую разобраться, посмотреть можно ли использовать это в рамках моей задумки.
Вообщем, считаем этот вопрос исчерпаным и закрытым.

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@ironegg 1905 / 782 / 31 Регистрация: 11.02.2010 Сообщений: 1,567
	20.03.2010, 16:29
	нет ответа! в коде функции integra как она будет использоваться? 0

@Az-Pekt 1 / 1 / 0 Регистрация: 20.03.2010 Сообщений: 14
	20.03.2010, 17:05 [ТС]
	Как функция, к которой он будет обращаться дабы получить то или иное значение. 0

@ironegg 1905 / 782 / 31 Регистрация: 11.02.2010 Сообщений: 1,567
	21.03.2010, 15:57
	оно? http://www.microsoft.com/Rus/M... r/134.mspx http://www.thevbzone.com/secrets.htm сам я тебе не помошник. так глубоко я не копаю 1

@Az-Pekt 1 / 1 / 0 Регистрация: 20.03.2010 Сообщений: 14
	21.03.2010, 18:20 [ТС]
	О, похоже на то, спс) По правде говоря, я уже давно нашел альтернативу более прямолинейную и менее элегентную, чем того хотелось, но всё-таки. Выяснить этот вопрос - уже было дело принципа, да и самопросвещения) Судя по тому, что написано в первой ссылке, в ВБ сделать этого нельзя, хотя некоторая симуляция того есть. Попробую разобраться, посмотреть можно ли использовать это в рамках моей задумки. Вообщем, считаем этот вопрос исчерпаным и закрытым. 0