Решение линейного уравнения в VBA

@PetiteCossette · Регистрация: 22.02.2013

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

Вычислить значение f(x)
f(x)=a2b-xba2+xb
x=a2+a2b
b=a2 -6c
c = 4a-2
значение a - задать с клавиатуры.

Можете помочь решить? Мне не нужен просто голый код, я хочу понять, как его делать. Так что, по возможности, описывайте свои действия. Заранее благодарен))

@Дундук · 22.02.2013, 17:30

f(x)=a2b-xba2+xb
здесь а2 это а*2 а в степени 2 или а₂ ?

@PetiteCossette · 22.02.2013, 17:35 **[ТС]**

везде переменная в степени 2. надо было вот так писать: a^2 )

@Дундук · 22.02.2013, 17:44

вопрос тогда заключается в том как вызывается функция. нажатие кнопки или еще как?

@PetiteCossette · 22.02.2013, 17:50 **[ТС]**

можно и нажатием. тут не принципиально

Скрипт · 22.02.2013, 17:58

PetiteCossette, напишите, как решается это уравнение без программирования. Просто я не знаю математику и не знаю, как решать такое уравнение. Но могу попробовать перевести то, что вы напишите, на язык "VBA".

@Дундук · 22.02.2013, 18:04

если значение а при этом может быть считано из ячейки (куда вы его вводите с клавиатуры) то не понимаю что сложного.
просто пишете функцию
которая на выходе дает значение x.
в самой функции считываете значение из нужной ячейки
типа такого:
a = Worksheets("лист1").Range("A")Value

а дальше так и пишете
x=a²+a²b
b=a² -6c
c = 4a-2
f=2b-xba²+xb
и выводите значение f или на лист или куда надо

Добавлено через 1 минуту
ну точнее
c = 4a-2
b=a2 -6c
x=a2+a2b
f=2b-xba2+xb

@PetiteCossette · 22.02.2013, 18:07 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Public Sub Task1()
Dim x As Single, a As Single, c As Single, b As Single
a = InputBox
c = 4 * a - 2
b = a ^ 2 - 6 * c
x = a ^ 2 + a ^ 2 * b
f(x) = a ^ 2 * b - x * b * a ^ 2 + x * b
 
MsgBox f(x) 
End Sub

Примерно так? А что нужно написать после MsgBox f(x)?

@Дундук · 22.02.2013, 18:11

ну не надо называть это f(x) т.к в итоге это все f(a) это раз, а два не уверена что VBA хорошо отнесется к такой записе, ведь он воспримет f(x) как вызов функции f с параметром x.

@PetiteCossette · 22.02.2013, 18:13 **[ТС]**

И что же тогда у него запросить для вывода? Просто f?

@Дундук · 22.02.2013, 18:16

а что вам надо? ну вы посчитали,вывели..
еще у меня ощущение что синтаксис не верен т.к.
MsgBox(Текст[,кнопки] [,заголовок окна] [, файл справки, метка в файле справки])

а у вас MsgBox f(x), значит как минимум MsgBox( f(x)) (плюс,как я и говорила, стоит переименовать f(x) на что то еще.

Скрипт · 22.02.2013, 20:01

Код:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Public Sub Task1()
 
    Dim x As Single, a As Single, c As Single, b As Single
    Dim f As Single
    
    a = InputBox("Введите число a")
    
    c = 4 * a - 2
    
    b = a ^ 2 - 6 * c
    
    x = a ^ 2 + a ^ 2 * b
    
    f = a ^ 2 * b - x * b * a ^ 2 + x * b
    
    MsgBox "Результат: " & f
    
End Sub

@murom2013 · 23.02.2013, 02:02

строго говоря, писать код в данном случае не обязательно, можно обойтись простейшими формулами рабочего листа.
записываем формулы следующим образом:

a	10
c	=4*B1-2
b	=B1^2-6*B2
x	=B1^2+B1^2*B3
f	=B1^2B3-B4B3B1^2+B4B3

теперь, изменяя значение ячейки B1, в ячейке B5 будем получать искомую функцию

это был excel

Скрипт · 23.02.2013, 08:14

murom2013, на Форуме есть следующие группы людей:

студенты. Студенты делятся на две группы:
1. студенты, которым нужна работающая программа, а сам код не важен;
2. студенты, которым нужно, чтобы работа была сделана по определённым правилам;
люди, которые работают в программе "MS Office" и которые хотят ускорить свою работу;
программисты, которые сталкиваются с проблемой и ищут ответ на Форуме.

В данном случае человек относится к пункту 1.2.

@Sasha_Smirnov · 23.02.2013, 22:16

Также есть и следующие группы людей:

школьники и дети-индиго:
- школьники, которым нужна помощь в понимании того, что они [недо]делали на уроке;
- школьники, которые по заданию студентов постят их [однотипные] задания;
- просто умные ребята, желающие автоматизировать рутинные действия на ЭВМ
люди, которые не работают с "MS Office", но хотят ускорить работу своих коллег;
люди, которые хотят понять тех, кто работает с "MS Office", но ускорять работу (за счёт VBA) упорно не желает;
…

Но топикстартер, пожалуй, ещё не определился со свой классификацией!

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список 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 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@PetiteCossette 0 / 0 / 0 Регистрация: 22.02.2013 Сообщений: 20

	Решение линейного уравнения в VBA 22.02.2013, 17:23. Показов 5353. Ответов 14 Метки нет (Все метки) Вычислить значение f(x) f(x)=a2b-xba2+xb x=a2+a2b b=a2 -6c c = 4a-2 значение a - задать с клавиатуры. Можете помочь решить? Мне не нужен просто голый код, я хочу понять, как его делать. Так что, по возможности, описывайте свои действия. Заранее благодарен)) 0

@Дундук 0 / 0 / 0 Регистрация: 22.02.2013 Сообщений: 41
	22.02.2013, 17:30
	f(x)=a2b-xba2+xb здесь а2 это а*2 а в степени 2 или а₂ ? 0

@PetiteCossette 0 / 0 / 0 Регистрация: 22.02.2013 Сообщений: 20
	22.02.2013, 17:35 [ТС]
	везде переменная в степени 2. надо было вот так писать: a^2 ) 0

@Дундук 0 / 0 / 0 Регистрация: 22.02.2013 Сообщений: 41
	22.02.2013, 17:44
	вопрос тогда заключается в том как вызывается функция. нажатие кнопки или еще как? 0

@PetiteCossette 0 / 0 / 0 Регистрация: 22.02.2013 Сообщений: 20
	22.02.2013, 17:50 [ТС]
	можно и нажатием. тут не принципиально 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	22.02.2013, 17:58
	PetiteCossette, напишите, как решается это уравнение без программирования. Просто я не знаю математику и не знаю, как решать такое уравнение. Но могу попробовать перевести то, что вы напишите, на язык "VBA". 0

@Дундук 0 / 0 / 0 Регистрация: 22.02.2013 Сообщений: 41
	22.02.2013, 18:04
	если значение а при этом может быть считано из ячейки (куда вы его вводите с клавиатуры) то не понимаю что сложного. просто пишете функцию которая на выходе дает значение x. в самой функции считываете значение из нужной ячейки типа такого: a = Worksheets("лист1").Range("A")Value а дальше так и пишете x=a²+a²b b=a² -6c c = 4a-2 f=2b-xba²+xb и выводите значение f или на лист или куда надо Добавлено через 1 минуту ну точнее c = 4a-2 b=a2 -6c x=a2+a2b f=2b-xba2+xb 0

@Дундук 0 / 0 / 0 Регистрация: 22.02.2013 Сообщений: 41
	22.02.2013, 18:11
	ну не надо называть это f(x) т.к в итоге это все f(a) это раз, а два не уверена что VBA хорошо отнесется к такой записе, ведь он воспримет f(x) как вызов функции f с параметром x. 0

@PetiteCossette 0 / 0 / 0 Регистрация: 22.02.2013 Сообщений: 20
	22.02.2013, 18:13 [ТС]
	И что же тогда у него запросить для вывода? Просто f? 0

@Дундук 0 / 0 / 0 Регистрация: 22.02.2013 Сообщений: 41
	22.02.2013, 18:16
	а что вам надо? ну вы посчитали,вывели.. еще у меня ощущение что синтаксис не верен т.к. MsgBox(Текст[,кнопки] [,заголовок окна] [, файл справки, метка в файле справки]) а у вас MsgBox f(x), значит как минимум MsgBox( f(x)) (плюс,как я и говорила, стоит переименовать f(x) на что то еще. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	23.02.2013, 08:14
	Сообщение было отмечено как решение Решение murom2013, на Форуме есть следующие группы людей: студенты. Студенты делятся на две группы: студенты, которым нужна работающая программа, а сам код не важен; студенты, которым нужно, чтобы работа была сделана по определённым правилам; люди, которые работают в программе "MS Office" и которые хотят ускорить свою работу; программисты, которые сталкиваются с проблемой и ищут ответ на Форуме. В данном случае человек относится к пункту 1.2. 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	23.02.2013, 22:16
	Также есть и следующие группы людей: школьники и дети-индиго: школьники, которым нужна помощь в понимании того, что они [недо]делали на уроке; школьники, которые по заданию студентов постят их [однотипные] задания; просто умные ребята, желающие автоматизировать рутинные действия на ЭВМ люди, которые не работают с "MS Office", но хотят ускорить работу своих коллег; люди, которые хотят понять тех, кто работает с "MS Office", но ускорять работу (за счёт VBA) упорно не желает; … Но топикстартер, пожалуй, ещё не определился со свой классификацией! 0