Лабораторная работа № 4

Условные операторы

Программа может выполняться не только последовательно, но и, встретив условие, изменить свой ход. Например, при расчете корней квадратного уравнения на первом шаге рассчитывается дискриминант, затем в зависимости от его значения могут быть варианты расчета, либо рассчитываются два корня, либо один, либо уравнение не имеет корней.

Для этого используется оператор if ..then:

If условие then

        Команды1

Else

        Команды2

End If

Если условие истинно, то выполняются команды1, если ложно, то команды2.

Задание 1

 Расчет квадратного уравнения вида , где коэффициенты 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. Сохраните файл.

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

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

Задание 2

Написать функцию 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. Поменяйте значения коэффициентов и рассчитайте снова.

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

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