Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Assassinys
15 / 8 / 2
Регистрация: 14.03.2011
Сообщений: 105
1

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

06.04.2011, 11:51. Просмотров 640. Ответов 9
Метки нет (Все метки)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 Sub Pr_2()
 
 Dim A, X, B As Single
 Dim z, T, Y, R As Single
 
 
A = Val(InputBox("Ââåäèòå a", "ÂâåäåГ*ГЁГҐ âõîäÿùèõ Г¤Г*Г*Г*ûõ"))
X = Val(InputBox("Ââåäèòå x", "ÂâåäåГ*ГЁГҐ âõîäÿùèõ Г¤Г*Г*Г*ûõ"))
B = Val(InputBox("Ââåäèòå b", "ÂâåäåГ*ГЁГҐ âõîäÿùèõ Г¤Г*Г*Г*ûõ"))
 
 Y = (((Atn(Sqr(1 - (4 * X) ^ 2) / (4 * X)) + 0.75 * Log(X)))) / (2.4 * 0.1 * X ^ 3)
 
 z = (X + 4) ^ (1 / 3) + (Sin(X)) ^ 2
 
 T = 3 ^ Sin(X) + (Abs(A + B * X)) ^ (1 / 2) + z ^ (1 / 2)
 
 R = (X ^ 2 + Sqr(X) / Log(A * X)) - Exp(Cos(X)) + Cos(X ^ 2)
 
 
 
 MsgBox "Z=" & Str(z) & vbLf & "T=" & Str(T) & vbLf & "Y=" & Str(Y) & vbLf & "R=" & Str(R), , "Âûâîä ðåçóëüòГ*ГІГ*"
 End Sub
0
Миниатюры
Вычислить значение выражения  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.04.2011, 11:51
Ответы с готовыми решениями:

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

Вычислить значение выражения
T=ln2(x-y) не могу перевести на язык VBA, чтобы написать его в модуль для...

Вычислить значение выражения
(34)П(n=1) cos ((1+n)/3^(n-1)) p.s.(П -произведение 34 наверху, n=1 внизу...

Вычислить значение выражения
Я пропустил теорию, теперь не знаю что делать. Помогите. По №1...

Вычислить значение выражения
Z = (Y+1/Y-1) - 3(Y+1/Y-1)^2 + 5(Y+1/Y-1)^3 - ... - 19(Y+1/Y-1)^10 Помогите...

9
Busine2009
Заблокирован
06.04.2011, 12:15 2
Assassinys,
переменные объявлены неправильно. Нужно для каждой переменной указывать тип с помощью As.
1
Sasha_Smirnov
5466 / 1309 / 143
Регистрация: 08.02.2009
Сообщений: 4,021
Записей в блоге: 29
06.04.2011, 12:18 3
Цитата Сообщение от Assassinys Посмотреть сообщение
z ^ (1 / 2)
Должно быть: z ^ 2. Может, и ещё что-то.

"Введение входящих данных" — не по-русски.

Пользователь не робот! (Даже если он IT-гений.)
0
Busine2009
Заблокирован
06.04.2011, 12:19 4
Цитата Сообщение от Assassinys Посмотреть сообщение
Val(InputBox("Введите a", "Введение входящих данных"))
надо добавить в InputBox подсказку, чтобы дробные числа вводили через точку. Иначе дробные числа будут округляться инструментом Val. Лучше вообще не используйте Val - типы данных сами подстроятся, а если будет дробное число введено с точкой, то выскочит ошибка.
0
Assassinys
15 / 8 / 2
Регистрация: 14.03.2011
Сообщений: 105
06.04.2011, 12:21  [ТС] 5
Цитата Сообщение от Busine2009 Посмотреть сообщение
Assassinys,
переменные объявлены неправильно. Нужно для каждой переменной указывать тип с помощью As.
R все равно не правильно считает(
0
Busine2009
Заблокирован
06.04.2011, 12:22 6
Цитата Сообщение от Assassinys Посмотреть сообщение
R все равно не правильно считает(
я формулы и не смотрел ещё.
0
Assassinys
15 / 8 / 2
Регистрация: 14.03.2011
Сообщений: 105
06.04.2011, 12:28  [ТС] 7
Цитата Сообщение от Busine2009 Посмотреть сообщение
я формулы и не смотрел ещё.
а может посмотреть пожалуйста
0
gaw
6633 / 1500 / 169
Регистрация: 09.01.2010
Сообщений: 4,273
06.04.2011, 12:50 8
для начала уточни выражение для Z на миниатюре
0
Assassinys
15 / 8 / 2
Регистрация: 14.03.2011
Сообщений: 105
06.04.2011, 12:52  [ТС] 9
Цитата Сообщение от gaw Посмотреть сообщение
для начала уточни выражение для Z на миниатюре
Z неважно , R неправильно считает
в экселе и VBA разные значения хотя формала такая же
=(A2^2+КОРЕНЬ(A2)/LOG(B2*A2))-EXP(COS(A2))+COS(A2^2)
R = ((X ^ 2 + Sqr(X)) / (Log(A * X))) - Exp(Cos(X)) + Cos(X ^ 2)
0
gaw
6633 / 1500 / 169
Регистрация: 09.01.2010
Сообщений: 4,273
06.04.2011, 12:57 10
Visual Basic
1
R = (X ^ 2 + Sqr(X) )/ ((Log(A * X) )/Log(10))- Exp(Cos(X)) + Cos(X ^ 2)
2
06.04.2011, 12:57
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.04.2011, 12:57

Вычислить значение выражения
Друзья, буду очень благодарен за помощь, не знаю с чего начать выполнение...

Вычислить значение выражения
Даны числа х (действительные), ε (ε > 0). Последовательность a1, a2, ......

Вычислить значение выражения
помогите срочно решить задачи(excel vba и условия с блок схемой в power point)...


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

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru