Помогите составить блок-схему и программу!

[KatrinSher]

Здравствуйте! Прошу вас помочь мне решить следующую задачу:
Вычислить значение функции y в заданной точке x.
y = 3x+1 (под корнем) / (x^2+2)(x-1)

При этом следует проверить условия существования значения функции в этой точке.

Понимаю, что задача довольна простая, но я в этом деле не сильна. Если у кого-то есть время и желание, прошу помочь!

 

[romanriddick]

Здравствуйте! Прошу вас помочь мне решить следующую задачу:
Вычислить значение функции y в заданной точке x.
y = 3x+1 (под корнем) / (x^2+2)(x-1)

При этом следует проверить условия существования значения функции в этой точке.

Понимаю, что задача довольна простая, но я в этом деле не сильна. Если у кого-то есть время и желание, прошу помочь!

какой язык???
зачем тут блок-схема, задача простинькая???

 

[KatrinSher]

Программа в VBA. Блок-схему необходимо составить по условию задачи, так было задано преподавателем по информатике!

 

[romanriddick]

Sub c()
Dim e, y, x As Double
x = InputBox("введите х", "")
If x <> 1 Then
y = Exp((1 / 2) * Ln * (3 * x + 1)) / ((x ^ 2 + 2) * (x - 1))
Else: MsgBox ("нет !!!")
End If
Cells(1, 1) = y
End Sub

 

[romanriddick]

Sub c()
Dim e, y, x As Double
x = InputBox("введите х", "")
If x <> 1 Then
y = Exp((1 / 2) * Ln * (3 * x + 1)) / ((x ^ 2 + 2) * (x - 1))
Else: MsgBox ("нет !!!")
End If
Cells(1, 1) = y
End Sub

y = Exp((1 / 2) * Ln * (3 * x + 1)) / ((x ^ 2 + 2) * (x - 1))

это можна заменить на (3х+1)^(1/2) ))))

 

[KatrinSher]

Спасибо Вам огромное! Блок-схему составлю по программе)))
Еще раз благодарю!

 

[romanriddick]

для благодарности есть "+" в репутации)))
п.с. незачто