0
 Dim a!, b!, c!
 Private Sub Form_Load()
 a = Round((3 * Log(2) / Log(10)), 3)
 b = Round(Cos(pi / 3), 3)
 c = Round(7 ^ (1 / 3), 3)
 Text1.Text = a: Text2.Text = b: Text3.Text = c
 End Sub
 Private Sub Command1_Click()
 Rem 
 x = Val(Text4.Text)
If x > a Then
 f = Round((Atn(b + x)) + Cos(b), 3)
Text5.Text = x: Text7.Text = f
ElseIf x = a Then
f = Round(Atn(x - b) - (1.3 * x), 3)
Text6.Text = x: Text8.Text = f
 Else
 z = (1.5 + x)
 f = Round(Atn(z / (1.3 * a) + (c ^ 3 * b)), 3)
 Text9.Text = x: Text10.Text = f
 End If
 End Sub

Задание

Не получаются ответы которые нужны, видно в задании, хелп что делаю не так??

2
  • последняя формула неправильная
    – Grundy
    23 апр 2016 в 11:22
  • да с последней что-то намутил , но и две предыдущие не правильно считают, либо ответ не правильный либо я не правильно сделал
    – spingalet
    23 апр 2016 в 11:24

1 ответ 1

0

Сам натупил ,должно совпадать только одно число с X

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.