profile
Опубликовано 6 лет назад по предмету Информатика от bestofbest99

помогите пожалуйста.вот фото.QBasic

  1. Ответ
    Ответ дан v1248
    Один из вариантов на VBA EXCEL
    Sub raschetZ()
    x = Cells(2, 3)
    Y = Cells(4, 3)
    Z = 0
    If x > 1 And Y > -1 Then   
              Z = Cos(x - Y) + (Cos(x + Y)) ^ 2
    Else   
              If x = 0 Then
                      Z = "решение отсутствует. при X=0 деление на 0"   
               Else       
                      Z = (x + Y) * Y / -x   
             End If
    End If
    Cells(6, 3) = Z
    End Sub
Самые новые вопросы