Помогите пожалуйста, задание:
Составить программу, которая вычисляет значение у по заданной формуле. Ввод исходных данных и вывод результата произвести с использованием окон ввода/вывода (применить форматы вывода).
http://shot.photo.qip.ru/2009kpJ.jpg
________________________________
Вот что я сделал, и на шаге, где должен вывестись результат, выскакивает:
http://shot.photo.qip.ru/3009kpO.jpg
Sub KostinDS()
Dim A As Double, C As Double, x As Double
Dim q As Double, z As Double, m As Double
Dim t As Double, r As Double, y As Double, v As Double
A = Val(InputBox("A="))
C = Val(InputBox("C="))
x = Val(InputBox("x="))
q = 2 * x + Sqr(x)
z = x ^ 3
t = Sqr(z)
r = (x - 5)
m = Sqr(1 - x ^ 2)
v = m / x
y = (10 + Abs(Exp(q) * Exp(z)) * Log(Abs(x))) / (A * Cos(t) * Atn(v) * Atn(r) * C)
MsgBox ("y=" + Format(y, "scientific"))
Debug.Print "y=";
End Sub
Примечание:
Алексей, спасибо большое что откликнулись, я копался, и вот что думаю, Если вы смотрели саму формулу, она вот
http://shot.photo.qip.ru/2009kpJ.jpg . То там параметрами m и v я заменяю arccosx. Тк в VBA нет этого параметра. А заменяю таким образом: arccox= Atg((sqr(1-x^2))/x). Может в этом дело? не правильно заменен arccosx?
Примечание:
Sub Макрос1()
Dim A As Double, C As Double, x As Double
Dim q As Double, z As Double
Dim t As Double, r As Double, y As Double
A = Val(InputBox("A="))
C = Val(InputBox("C="))
x = Val(InputBox("x="))
q = 2 * x + Sqr(x)
z = x ^ 3
t = Sqr(z)
r = (x - 5)
y = (10 + Abs(Exp(q) * Exp(z)) * Log(Abs(x))) / (A * Cos(t) * (2 * Atn(Sqr((1 - x) / (1 + x)))) * Atn(r) * C)
MsgBox ("y=" + Format(y, "scientific"))
End Sub
Что получилось на основании прочитанного)
Atg((sqr(1-x^2))/x) заменил на (2 * Atn(Sqr((1 - x) / (1 + x))) тут нет области допустимых значений. Но все равно не выходит. Пишет теперь в строке y= ошибка....
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.