Вопрос (не знаю как назвать):-)

[_Мика_]

Короче тут по информатике задали такую феньку:

Код: Выделить всё

Вычеслить Z:
Z=3,2+Y

при

'это система уровнений!

    | 2X-3      если x>5
Y=| 1/x+|x|  если 0<X=<5
    | x^2+4   если X=>0


Надо написать программу которая будет находить Z
Как это сделать, у меня уже мозги кипят
Спасибо

[GSerg]

Какая ж это система уравнений...
Это криво написанная форма задания функции.

99.99%, что в последней строчке стоит X<=0

[_Мика_]

Сорюсь, конечно X<=0
Ну ладно, и че с ним делать

[Amed]

Код: Выделить всё

Dim x As Single, y As Single, z As Single

x = CSng(InputBox("Please enter x:"))

If x <= 0 Then
    y = x * x + 4
ElseIf x > 0 And x <= 5 Then
    y = 1 / (x + Abs(x))
ElseIf x > 5 Then
    y = 2 * x - 3
End If

z = 3.2 + y

MsgBox "X= " & x & vbCrLf & "Y= " & y & vbCrLf & "Z= " & z


Обработку ошибок сам напиши.

[_Мика_]

Большое спасибо, буду разбираться

[Amed]

В этом!? Разбираться!?
Насмешил старика (-;

[_Мика_]

Вы не много ошиблись

Код: Выделить всё

Private Sub Form_Load()
Dim x As Single, y As Single, z As Single

x = CSng(InputBox("Please enter x:"))

If x <= 0 Then
    y = x * x + 4
ElseIf x > 0 And x <= 5 Then
    y = 1 / x + Abs(x) ' а вы написали y = 1 / (x + Abs(x))
ElseIf x > 5 Then
    y = 2 * x - 3
End If

z = 3.2 + y

MsgBox "X= " & x & vbCrLf & "Y= " & y & vbCrLf & "Z= " & z
End Sub


[Amed]

Прошу прощения, досточтимый сэр. Смею уверить Вас в том, что подобные инциденты не повторятся в дальнейшем.

[Q2W]

Проста есь юзеры-ламеры, которым нада написать какую-нить лабу. С этим давно нада смириться.

[_Мика_]

Ты кого ламером обозвал , просто Amed ошибся, ая поправил!