Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Написать функцию для вычисления корней квадратного уравнения , где коэффициенты a, b и с задаются пользователем.

1. Создайте новый документ Excel и сохраните его под именем «Лабораторная работа_4_2».

2. Откройте редактор VB с помощью команды меню Разработчик-> Visual Basic

3. Стираем все, что есть в окне редактора и набираем код:

Function KorenX1(a, b, c)

d=b*b-4*a*c

if D>0 then

KorenX1=(-b+sqr(d))/(2*a)

else

if D=0 then

KorenX1=-b/(2*a)

else

KorenX1= val("Корней нет")

endif

endif

End Function

Function KorenX2(a, b, c)

d=b*b-4*a*c

if D>0 then

KorenX2=(-b-sqr(d))/(2*a)

else

if D=0 then

KorenX2=-b/(2*a)

else

KorenX2= val("Корней нет")

endif

endif

End Function

4. Сохранить файл программы.

5. Закрыть окно редактора.

6. На листе Excel в столбцах A, B, C ввести значения коэффициентов a =1, b=2, c=1.

7. В столбце D рассчитать по функции KorenX1 значение корня X1 квадратного уравнения вида ax²+bx+c=0. Для этого введите «=KorenX1(A2;B2;C2)».

8. В столбце E рассчитать по функции KorenX2 значение корня X2 квадратного уравнения вида ax²+bx+c=0. Для этого введите «=KorenX2(A2;B2;C2)».

9. Сохранить файл.

10. Поменяйте значения коэффициентов и рассчитайте снова.

Самостоятельно

1.Написать функцию, рассчитывающую значение функции

2. Написать функцию для вычисления значений функции

3. Даны три стороны a, b, c, удовлетворяющие аксиомам треугольника. Если треугольник равносторонний, то найти его площадь. Если треугольник равнобедренный, то найти периметр и угол между равными сторонами, во всех остальных случаях вывести сообщение «треугольник не является равносторонним или равнобедренным.