Расчет квадратного уравнения вида 
, где коэффициенты a, b и с задаются пользователем.
1. Откройте новый документ Calc и сохраните его под именем «Лабораторная работа_4_1».
2. Откройте новый модуль Бэйсика с помощью команды Сервис-> Макросы->Управление макросами->OpenOffice.org Бэйсик,в открывшемся окне выберите свой файл «Лабораторная работа_4_1», в нем выберите пункт «Standart» и нажмите кнопку «Создать», находящуюся на панели справа.
3. В открывшемся окне редактора набрать следующий код между Sub Main и End Sub:
Dim s as String
Dim a, b, c, d, x1, x2, x as double
S=InputBox(«Введите значение коэффициента а»)
A = val(s)
S=InputBox(«Введите значение коэффициента b»)
b = val(s)
S=InputBox(«Введите значение коэффициента c»)
c = val(s)
d=b*b-4*a*c
if D>0 then
x1=(-b+sqr(d))/(2*a)
x2=(-b-sqr(d))/(2*a)
MsgBox («X1=» & str(x1) & « X2=» & str(x2))
else
if D=0 then
x=-b/(2*a)
MsgBox(«x=» & str(x))
else
MsgBox(«Корней нет»)
endif
endif
4. Запустите программу, нажав на зеленую стрелку.
5. Сохраните файл.
