VBA

Medic84 · Отправлено: **23:08, 19-12-2010** | #11

Моя плохая... Это же VBA)))

Код:

 Dim a, b, c, d As Integer
        Dim y As Long
 Sub Main()
        a = InputBox("Введи значение a", "Введите значение")
        b = InputBox("Введи значение b", "Введите значение")
        c = InputBox("Введи значение c", "Введите значение")
        d = InputBox("Введи значение d", "Введите значение")
        y = (Abs(3 * a * a - b)) ^ (1 / 2) - (c - d) ^ 3
        MsgBox("Ваше значение" & Chr(13) & Chr(10) & y)

    End Sub

Насчет 2. Задам наводящие вопросы.
Как проверить четность - нечетность?
Нечетное - это если при делении на 2 есть остаток. (это операция MOD)

Как проверить положительность - отрицательность?
Если чиcло > 0 - положительное
Менньше - отрицательное
(If Then Else)

zena · Отправлено: **08:09, 20-12-2010** | #12

ага....спасибо большое...а как устроить вывод ответа с точностью , например, 7 цифр после запятой???

Medic84 · Отправлено: **10:39, 20-12-2010** | #13

Вместо Long напишите Double

Код:

        Dim a, b, c, d As Integer
        Dim y As Double
        Dim param As String
        Dim param2 As String
 Sub Main()
        a = InputBox("Введи значение a", "Введите значение")
        b = InputBox("Введи значение b", "Введите значение")
        c = InputBox("Введи значение c", "Введите значение")
        d = InputBox("Введи значение d", "Введите значение")
        y = (Abs(3 * a * a - b)) ^ (1 / 2) - (c - d) ^ 3
        If y < 0 Then param = "Отрицательное" Else: param = "Положительное"
        If y Mod 2 <> 0 Then param2 = "Нечетное" Else: param2 = "Четное"
        MsgBox ("Ваше значение" & Chr(13) & Chr(10) & y & " " & param & " " & param2)
        
 End Sub

А вот уже как это число преобразовать я не помню