Функция нахождения корней квадратного уравнения

Public Function Корни(a, b, c)

d = b ^ 2 - 4 * a * c
If d >= 0 Then
x1 = (-b + d ^ (1 / 2)) / (2 * a)
x2 = (-b + d ^ (1 / 2)) / (2 * a)
Корни = "x1=" + str(x1) + "; x2=" + str(x2)
Else
Корни = "корней нет"
End If
End Function

Задания

На VBA составить функции для:

1. вычисления значение функции:

2. вычислить значение функции

3. нахождения минимального числа из трех (четырех) заданных чисел A, B, C, D;

4. решения линейного уравнения вида аx=c, где a и c - заданные коэффициенты, в том числе и нулевые;

5. определения вида треугольника (равносторонний, равнобедренный, прямоугольный), если три заданных числа a, b, c задают длины его сторон;

6. нахождения площади треугольника, если три заданных числа a, b, c задают длины его сторон.

7. найти площадь трапеции, если четыре заданных числа задают длины ее сторон;

8. вывести текстовое представление числа.

9. вычислить подоходный налог, если известен совокупный годовой доход;

10. вычислить размер стипендии, если известен средний балл студента.

Не нашли, что искали? Воспользуйтесь поиском: