Написать функцию OpenOffice.org Basic для вычисления корней квадратного уравнения 
, где коэффициенты a, b и с задаются пользователем.
1. Откройте новый документ Calc и сохраните его под именем «Лабораторная работа_4_2».
2. Откройте новый модуль Бэйсика с помощью команды Сервис-> Макросы->Управление макросами->OpenOffice.org Бэйсик,в открывшемся окне выберите свой файл «Лабораторная работа_4_2», в нем выберите пункт «Standart» и нажмите кнопку «Создать», находящуюся на панели справа.
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. На листе Calc в столбцах A, B, C ввести значения коэффициентов a =1, b=2, c=1.
7. В столбце D рассчитать по функции KorenX1 значение корня X1 квадратного уравнения вида ax2+bx+c=0. Для этого введите «=KorenX1(A2;B2;C2)».
8. В столбце E рассчитать по функции KorenX2 значение корня X2 квадратного уравнения вида ax2+bx+c=0. Для этого введите «=KorenX2(A2;B2;C2)».
9. Сохранить файл.
10. Поменяйте значения коэффициентов и рассчитайте снова.
