Проверьте правильность записанного

@erotisnii · Регистрация: 31.03.2018

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

Преподаватель выдал задание:

Мое исполнительство:

Visual Basic

Sub abcd()
Dim a As Single, d As Single, p As Single, z As Single
Const x = 23.3, y = 8.2
    a = 0.7 * Abs(Tan(Sqr(Log(y * x))))
    d = Exp(Sin(x + x / y) ^ 2)
    p = Abs(Cos(2 * x) - x * y ^ (-3))
    z = (a * d * p) ^ (1 / 3)
Debug.Print "A = " & a, "B = " & d, "P = " & p, "srednee geo. - " & z
End Sub

И все бы здорово, но ответ не сходится :с
1,139 против 3,158
Форумчане, где находится ошибка ?

@Krasme · 29.04.2018, 11:08

Сообщение от erotisnii

d = Exp(Sin(x + x / y) ^ 2)

PureBasic

1	d = Exp(Sin(x)^2 + x / y)

@erotisnii · 29.04.2018, 11:37 **[ТС]**

Огромное спасибо )

@erotisnii 0 / 0 / 0 Регистрация: 31.03.2018 Сообщений: 2
	29.04.2018, 11:37 [ТС]	3
	Огромное спасибо ) 0

Проверьте правильность записанного

Решение