Найти максимальное значение на Visual Basic

@NaTaha22 · Регистрация: 22.03.2010

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

Дана функция у=2*x^2+5*x+1.37. Найти максимальное y, если х изменяется в интервале [0.12;2] с шагом 0.2.

@Juliette58 · 22.03.2010, 22:00

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
x=0.12
i=1
do while x<=2
a(i)=2*x^2+5*x+1.37
x=x+0.2
inc(i)
Loop
 
max=a(1)
for j=2 to i
if a(i)>max then max=a(j)
next j

Проверьте, должно работать

@gaw · 22.03.2010, 22:27

опечатка

Сообщение от Juliette58

if a(i)>max then max=a(j)

if a(j)>max then max=a(j)

что такое inc(i)
и какая размерность a()

@NaTaha22 · 22.03.2010, 22:45 **[ТС]**

Спасибо! Попробую...

@gaw · 22.03.2010, 23:01

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
x = 0.12
Max = mx(0.12)
Do While x + 0.2 <= 2
x = x + 0.2
If mx(x) > Max Then Max = mx(x)
Loop
MsgBox "Max = " & Max
End Sub
Function mx(x)
mx = 2 * x ^ 2 + 5 * x + 1.37
End Function

@NaTaha22 · 22.03.2010, 23:09 **[ТС]**

Огромное спасибо!!!

@Juliette58 · 22.03.2010, 23:13

Сообщение от gaw

if a(j)>max then max=a(j)

с опечаткой согласна

Сообщение от gaw

что такое inc(i)

в других языках inc(i) равносильно i=i+1, чтобы не писать длино - пишу как по покороче
что такое inc(i)[/QUOTE]

Сообщение от gaw

и какая размерность a()

существуют так называемые динамические массивы, их размер не указывается

@gaw · 22.03.2010, 23:20

вы, предпологаю, пишите на др яз.,
в VB динамические массивы необходимо объявлять Dim a(), а непосредственно перед использование переобъявлять с указанием размерности ReDim a(5) (с сохранением содержимого ReDim Preserve a(5)
а inc(i) отсутствует

@Juliette58 · 23.03.2010, 10:45

согласна, доказали и убедили!
P.S.: спасибо за то, что исправили, а то я бы так и продолжала думать

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@NaTaha22 3 / 3 / 0 Регистрация: 22.03.2010 Сообщений: 8

	Найти максимальное значение на Visual Basic 22.03.2010, 21:39. Показов 7971. Ответов 8 Метки нет (Все метки) Дана функция у=2x^2+5x+1.37. Найти максимальное y, если х изменяется в интервале [0.12;2] с шагом 0.2. 0

@NaTaha22 3 / 3 / 0 Регистрация: 22.03.2010 Сообщений: 8
	22.03.2010, 22:45 [ТС]
	Спасибо! Попробую... 0

@NaTaha22 3 / 3 / 0 Регистрация: 22.03.2010 Сообщений: 8
	22.03.2010, 23:09 [ТС]
	Огромное спасибо!!! 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	22.03.2010, 23:20
	вы, предпологаю, пишите на др яз., в VB динамические массивы необходимо объявлять Dim a(), а непосредственно перед использование переобъявлять с указанием размерности ReDim a(5) (с сохранением содержимого ReDim Preserve a(5) а inc(i) отсутствует 0

@Juliette58 7 / 7 / 0 Регистрация: 21.02.2010 Сообщений: 107
	23.03.2010, 10:45
	согласна, доказали и убедили! P.S.: спасибо за то, что исправили, а то я бы так и продолжала думать 0