End Sub. a = CSng(InputBox(Введите число))

Sub pr()

Dim a, b, s, p, r As Single

a = CSng(InputBox("Введите число"))

b = CSng(InputBox("Введите число"))

s = a + b

p = a * b

r = a - b

MsgBox s

MsgBox p

MsgBox r

End Sub

2. Даны действительные числа x и y. Получить (|x| – |y|) / (1 + |x·y|).

Sub pr()

Dim x, y, p As Single

x = CSng(InputBox("Введите число"))

y = CSng(InputBox("Введите число"))

p = (Abs(x) - Abs(y)) / (1 + Abs(x * y))

MsgBox p

End Sub

3. Даны два действительных положительных числа. Найти среднее арифметическое и среднее геометрическое этих чисел.

Sub pr()

Dim x, y, p, s As Single

x = CSng(InputBox("Введите число"))

y = CSng(InputBox("Введите число"))

s = (x + y) / 2

p = (x * y) / 2

MsgBox s

MsgBox p

End Sub

4. Даны катеты прямоугольного треугольника. Найти его гипотенуз.

Sub pr()

Dim x, y, p As Single

x = CSng(InputBox("Введите число"))

y = CSng(InputBox("Введите число"))

p = Sqr(x ^ 2 + y ^ 2)

MsgBox p

End Sub

5. Известна длина окружности. Найти площадь круга, ограниченного этой окружностью.

Sub pr()

Dim l, r, s As Single

l = CSng(InputBox("Введите число"))

r = l / 2 * 3.14

s = 2 * 3.14 * r ^ 2

MsgBox s

End Sub

6. Даны действительные числа x, y. Получить: max(x,y);

Sub pr()

Dim x, y As Single

x = CSng(InputBox("Введите число"))

y = CSng(InputBox("Введите число"))

If x > y Then

MsgBox x

End If

If y > x Then

MsgBox y

End If

End Sub

7. Даны действительные числа x, y. Получить: min(x,y);

Sub pr()

Dim x, y As Single

x = CSng(InputBox("Введите число"))

y = CSng(InputBox("Введите число"))

If x < y Then

MsgBox x

End If

If y < x Then

MsgBox y

End If

End Sub

8. Даны действительные числа a, b, c. Удвоить эти числа, если a > b > c, и заменить их абсолютными значениями, если это не так.

Sub pr()

Dim a, b, c As Single

a = CSng(InputBox("Введите число"))

b = CSng(InputBox("Введите число"))

c = CSng(InputBox("Введите число"))

If (a > c) And (b > c) Then

a = 2 * a

b = 2 * b

c = 2 * c

Else

a = Abs(a)

b = Abs(b)

c = Abs(c)

End If

MsgBox a

MsgBox b

MsgBox c

End Sub

9. Даны действительные числа x, y. Вычислить z:

Дата добавления: 2015-08-18