Даны действительные числа X, Y. Если X, Y. – отрицательны, то каждое значение заменить его модулем;если отрицательно только одно из них, то оба значен - VB
Формулировка задачи:
Даны действительные числа X, Y. Если X, Y. – отрицательны, то каждое значение заменить его модулем;если отрицательно только одно из них, то оба значения увеличить на 0,5; если оба значение не отрицательны и ни одно из них не принадлежит отрезку [0,5, 2], то оба значения уменьшить в 10 раз;в остальных случаях X, и Y оставить без изменения;
Решение задачи: «Даны действительные числа X, Y. Если X, Y. – отрицательны, то каждое значение заменить его модулем;если отрицательно только одно из них, то оба значен»
textual
Листинг программы
Private Sub Command1_Click()
Dim s As Double
Dim a As Double
Dim b As Double
Dim c As Double
Cls
a = InputBox("Введите 1 число")
b = InputBox("Введите 2 число")
If a < 0 And b < 0 Then
a = Abs(a)
b = Abs(b)
End If
If a < 0 Or b < 0 Then
a = a + 0.5
b = b + 0.5
End If
If a >= 0 And b >= 0 And a > 0.5 And a < 2 And b > 0.5 And b < 2 Then
a = a / 10
b = b / 10
End If
Print a, b
End Sub