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

@PetiteCossette · Регистрация: 22.02.2013

Author24 — интернет-сервис помощи студентам

Опять мучаюсь с линейными уравнениями)
Задание
Вычислить:
k=e^(x/y)+ log b по основанию a,
x= cos a*b,
y=(tg a*b)+z,
где а=5, b=10, z - задать вводом.

Вот, что у меня получилось:

Visual Basic

Option Explicit
Public Sub Task3()
Dim z As Single, a As Integer, b As Integer, e As Single, x As Single, y As Single, k As Single
z = InputBox("введите число z")
Const a = 5
Const b = 10
Const e = 2.71
y = (Tan(a * b)) + z
x = Cos(a * b)
k = e ^ (x / y) + Log(a) * (b)
 
MsgBox k
End Sub

Выдает ошибку. Выделяет const a. Помогите разобраться, пожалуйста

@Казанский · 23.02.2013, 12:46

Можно объявить а либо как константу (Const), либо как переменную (Dim).

Добавлено через 2 минуты
Log(a) * (b) это не log_ab

@PetiteCossette · 23.02.2013, 12:48 **[ТС]**

а как тогда записать log b по основанию a?

@Казанский · 23.02.2013, 14:42

В VBE поставьте курсор в слово log и нажмите F1. Там все написано.

@PetiteCossette · 23.02.2013, 14:44 **[ТС]**

Сделала все вышеуказанное, но все равно выдает ошибку и выделяет const a.

toiai · 23.02.2013, 15:10

Казанский ведь указал на ошибку.

Visual Basic

Dim z As Single, x As Single, y As Single, k As Single
z = InputBox("введите число z")
Const a = 5
Const b = 10
Const e = 2.71

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	23.02.2013, 12:46	2
	Можно объявить а либо как константу (Const), либо как переменную (Dim). Добавлено через 2 минуты Log(a) * (b) это не log_ab 0

@PetiteCossette 0 / 0 / 0 Регистрация: 22.02.2013 Сообщений: 20
	23.02.2013, 12:48 [ТС]	3
	а как тогда записать log b по основанию a? 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	23.02.2013, 14:42	4
	В VBE поставьте курсор в слово log и нажмите F1. Там все написано. 0

@PetiteCossette 0 / 0 / 0 Регистрация: 22.02.2013 Сообщений: 20
	23.02.2013, 14:44 [ТС]	5
	Сделала все вышеуказанное, но все равно выдает ошибку и выделяет const a. 0

	23.02.2013, 15:10