Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 9, средняя оценка - 4.67
Еша
0 / 0 / 0
Регистрация: 09.04.2012
Сообщений: 1
#1

Вычисление логарифмов: код не работает - VBA

12.04.2012, 12:10. Просмотров 1253. Ответов 2
Метки нет (Все метки)

Дана задача:
Написала код, но на натуральном логарифме постоянно выдает ошибку,не могу разобраться что там не так сделано(
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Pr_1()
Dim x As Double
Dim Y As Double
Dim k As Double
x = InputBox("Введите x")
k = InputBox("Введите k")
If k = 1 Then
Y = Ln(Abs(x) + (1))
ElseIf k = 2 Then
Y = Ln(Abs(x) + (1)) / Log(Abs(x) - (1))
ElseIf k > 2 Then
Y = Exp ^ (Abs(x))
End If
MsgBox ("Y = ") & Y
End Sub
0
Миниатюры
Вычисление логарифмов: код не работает  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.04.2012, 12:10
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычисление логарифмов: код не работает (VBA):

Вычисление суммы логарифмов - VBA
Здравствуйте! Пожалуйста помогите составить программу для вычисления суммы натуральных логарифмов всех целых чисел, кратных 6 из...

Создать таблицу логарифмов по основанию три - VBA
С использованием электронных таблиц MS Excel создать таблицу логарифмов по основанию три для чисел от одного до 60 в файле рабочей книги. ...

Написать код на вычисление суммы - VBA
Алгоритм: Суммирование_1 цел:K,N; вещ:S; { Запросить N; S:=S+K; } Сообщить S; }

Найти сумму логарифмов всех целых чисел - VBA
Найти сумму логарифмов всех целых чисел, дающих при делении на 3 в остатке 1 из отрезка

Вычисление логарифмов - Алгебра
Помогите вычислить логарифм: (1/2)^(log1/2^7-2)

Калькулятор логарифмов: решение логарифмов (Работа со строчными переменными) - C (СИ)
Прошу помощи в решении задания: С консоли вводится строка, который является математическим выражением с логарифмическими функциями....

2
Казанский
13826 / 5589 / 1415
Регистрация: 24.09.2011
Сообщений: 8,774
12.04.2012, 13:47 #2
1. Функция называется Log
2. По условию Y = Log(Abs(x + 1)) и т.д.
0
KoGG
5271 / 1344 / 316
Регистрация: 23.12.2010
Сообщений: 2,019
Записей в блоге: 1
12.04.2012, 14:39 #3
Visual Basic
1
2
3
4
5
6
7
8
If k = 1 Then
    Y = Log(Abs(x) + 1)
ElseIf k = 2 Then
    Y = Log(Abs(x) + 1) * Log(10) / Log(Abs(x) - 1) 
    ', где  Log(Abs(x) - 1)/Log(10) -это логарифм по основанию 10
ElseIf k > 2 Then
    Y = Exp(Abs(x))
End If
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.04.2012, 14:39
Привет! Вот еще темы с ответами:

Код написан в Dev C. Не работает в Visual. Как нужно переделать код? - C++
Здравствуйте. Столкнулась с такой проблемой: код был написан в Dev C, но в Visual он выдаёт ошибку. ...

Написал код в Full Debug, потом переделал в Release - и написанный код не работает - C++ Builder
Кто сталкивался с проблемой, написал код в Full Debug потом переделал в Release и написанный код не работает (((

DirectX 9.0 Ищу нормальный рабочий код для вывода текста. В книгах код не работает! - DirectX
Подскажите нормальный рабочий код для вывода текста на экран. Сложность в том, что при разных версиях DirectX разные коды. В интернете...

Код выполняемый из студии с пометкой debag, работает не так как уже компилированный код - C#
Здравствуйте, столкнулся с такой проблемой. Код выполняемый из студии с пометкой debag, работает не так как уже компилированный код....


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

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

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