Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
Кибервоин
 Аватар для boomeralo
2 / 2 / 0
Регистрация: 16.01.2013
Сообщений: 91

Вычислить значение выражения

16.01.2013, 23:46. Показов 2350. Ответов 28
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
нужно написать прогу которая выдает значение x y, и кнопка

тоесть прога с 3 кнопками


Я не мог ходить на консультации, работа(
Помогите плиз, я по работе пойму че откуда брать.
Вложения
Тип файла: docx Лаба.docx (15.8 Кб, 12 просмотров)
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
16.01.2013, 23:46
Ответы с готовыми решениями:

Вычислить значение выражения
Ребят, помогите пожалуйста!!! Не могу решить задачу Visual Basic: Вычислить: \prod_{i=1}^{10}(2+1/i!)

Вычислить значение выражения
Вычислить значение выражения:

Вычислить значение выражения
...

28
Заблокирован
17.01.2013, 19:34
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от boomeralo Посмотреть сообщение
Считатор 9000
Название какое а !
0
Кибервоин
 Аватар для boomeralo
2 / 2 / 0
Регистрация: 16.01.2013
Сообщений: 91
17.01.2013, 19:37  [ТС]
Цитата Сообщение от Dragokas Посмотреть сообщение
Открыл я стр.371. Ничего общего.

В общем на сколько я понял Вам нужно вычислить результат выражения при заданном a и b (в некоторых формулах u и v).
Ну хотя бы так.
0
Эксперт WindowsАвтор FAQ
 Аватар для Dragokas
18035 / 7738 / 892
Регистрация: 25.12.2011
Сообщений: 11,502
Записей в блоге: 16
17.01.2013, 19:58
Цитата Сообщение от inv.DS Посмотреть сообщение
Название какое а !
Ну как просили, так и назвал.

Первая кнопка:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Command1_Click()
On Error GoTo ErrorHandler
 
Dim a As Double, b As Double, v As Double, u As Double, x As Double, y As Double
a = InputBox("Введите значение A")
b = InputBox("Введите значение B")
v = InputBox("Введите значение V")
u = InputBox("Введите значение U")
 
x = b ^ a + ((Abs(a) + Abs(b)) ^ (1 / 3)) / ((a + b) ^ 2)
 
y = u + (u + (v ^ 3 / (u + v ^ 3))) / (v ^ 5 - u ^ 2)
 
MsgBox "x = " & x & vbLf & "y = " & y
Exit Sub
ErrorHandler:
If Err.Number = 6 Then MsgBox "Деление на ноль!" Else MsgBox "Неизвестная ошибка!"
End Sub
Остальные по аналогии.
0
Кибервоин
 Аватар для boomeralo
2 / 2 / 0
Регистрация: 16.01.2013
Сообщений: 91
17.01.2013, 20:14  [ТС]
Можете готовый проект сделать я разберу и пойму че откуда взять.
0
Эксперт WindowsАвтор FAQ
 Аватар для Dragokas
18035 / 7738 / 892
Регистрация: 25.12.2011
Сообщений: 11,502
Записей в блоге: 16
18.01.2013, 00:13
Да там ничего и нет. Только 1 действующая кнопка.

Вон скачайте: VBA_Help.CHM
Там структура математических функций с примерами и поисковой системой команд.
Вложения
Тип файла: rar Formula.rar (1.2 Кб, 4 просмотров)
0
Кибервоин
 Аватар для boomeralo
2 / 2 / 0
Регистрация: 16.01.2013
Сообщений: 91
18.01.2013, 12:38  [ТС]
Цитата Сообщение от Dragokas Посмотреть сообщение
Да там ничего и нет. Только 1 действующая кнопка.

Вон скачайте: VBA_Help.CHM
Там структура математических функций с примерами и поисковой системой команд.
это в 2005? чет не открывается в 2010
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
18.01.2013, 12:54
Я ж тебе целую страницу объяснял!
Пойми разницу между бейсиком и Visual Studio!
Слышать не хочешь - гнёшь свою линию и ещё оскорбляешь!

Добавлено через 2 минуты
Visual Studio - набор программ. В том числе и бейсик.
Только там VB.NET
А здесь раздел бейсик! Не NET!
0
Эксперт WindowsАвтор FAQ
 Аватар для Dragokas
18035 / 7738 / 892
Регистрация: 25.12.2011
Сообщений: 11,502
Записей в блоге: 16
18.01.2013, 14:44
boomeralo, у меня нет слов. Здесь обсуждается только VB6.
Создавайте теперь аналогичную тему в разделе https://www.cyberforum.ru/vb-net/ (не будет считаться за нарушение).

P.S. И нет никакой прямой связи между C++ и VB.NET.
То, что MS предлагает среду разработки для них в одной программе (Visual Studio) ничего не означает.
0
Кибервоин
 Аватар для boomeralo
2 / 2 / 0
Регистрация: 16.01.2013
Сообщений: 91
18.01.2013, 14:49  [ТС]
извините, всё время путаю vb и vs
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
18.01.2013, 14:49

Вычислить значение выражения
Dim a, x, y a = 2.8 x = Val(TextBox1.Text) If (x < 3.1) Then y = a * lg * abs(x ^ 2 - 3) ...

Вычислить значение выражения
Предоставленный массив действительных чисел а(6) Вычислить для x = 1,2,3 Значения z=f(x+1)-f(x) где f(y)=a1y6+a2y5+…+a6y

Вычислить значение выражения
y={1,x<-2;1/4*x^2,x>=-2

Вычислить значение выражения
помогите, пожалуйста, с решением.

Вычислить значение выражения
y=(〖cos〗^2 α〖sinβ〗^2+e^|β-α^2 | 〖(α+3)〗^β)/(√(5&|β-α^2 )| 〖ln〗^2 αβ) Кто нибудь может помочь написать программу в visual basic А...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
29
Ответ Создать тему
Новые блоги и статьи
Учебный мини "цифровой двойник" = (Сервер = Java + Flask_питон )+(3D = Гугловскаая 4T nvideo + google colab) +( WMS = Odoo на Docker)
anaschu 07.07.2026
Увидел в требованиях к вакансии создателя имитационных моделей связку (REst + Api + WMS + Anylogic + питон + 3D Nvideo), и решил посмотреть, что это такое. Из этого всего я работал более менее. . .
Море в объективе
kumehtar 06.07.2026
Хотел написать много проникновенных слов, но передумал. Оно само - говорит. Кто слышит тот слышит.
Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii.
dcc0 05.07.2026
Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .
Установка статуса документа по условию
Maks 05.07.2026
Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .
Сезонность и суточность закисления почв
anaschu 04.07.2026
200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .
В чем ценность человеческого опыта в глобальном смысле?
kumehtar 03.07.2026
Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .
интеграция AnyLogic с самописным REST API и переход на Odoo
anaschu 03.07.2026
Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .
Поиск всех путей на ориентированном графе. Linux
dcc0 02.07.2026
Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru