С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
Еша
0 / 0 / 0
Регистрация: 09.04.2012
Сообщений: 1
1

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

12.04.2012, 12:10. Просмотров 1284. Ответов 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
Ответы с готовыми решениями:

Вычисление суммы логарифмов
Здравствуйте! Пожалуйста помогите составить программу для вычисления суммы...

Друзья! не работает код с версией файла в 2003 офисе, на 2010 все работает, суть: копирование из закрытой книги
Sub Zagruzka_dannyh() UserForm1.Label117.Visible = False...

Друзья! не работает код с версией файла в 2003 офисе, на 2010 все работает, суть: копирование из закрытой книги
Sub Zagruzka_dannyh() UserForm1.Label117.Visible = False...

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

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

2
Казанский
14429 / 5974 / 1587
Регистрация: 24.09.2011
Сообщений: 9,412
12.04.2012, 13:47 2
1. Функция называется Log
2. По условию Y = Log(Abs(x + 1)) и т.д.
0
KoGG
5278 / 1351 / 321
Регистрация: 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

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

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

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


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

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

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