Лабораторная работа № 4 Условные операторы
план-конспект занятия по информатике и икт (9 класс) по теме
Лабораторная работа № 4
Условные операторы
Скачать:
Вложение | Размер |
---|---|
![]() | 35 КБ |
Предварительный просмотр:
Лабораторная работа № 4
Условные операторы
Программа может выполняться не только последовательно, но и, встретив условие, изменить свой ход. Например, при расчете корней квадратного уравнения на первом шаге рассчитывается дискриминант, затем в зависимости от его значения могут быть варианты расчета, либо рассчитываются два корня, либо один, либо уравнение не имеет корней.
Для этого используется оператор if ..then:
If условие then
Команды1
Else
Команды2
End If
Если условие истинно, то выполняются команды1, если ложно, то команды2.
Задание 1
Расчет квадратного уравнения вида , где коэффициенты a, b и с задаются пользователем.
- Откройте новый документ Calc и сохраните его под именем «Лабораторная работа_4_1».
- Откройте новый модуль Бэйсика с помощью команды Сервис-> Макросы->Управление макросами->OpenOffice.org Бэйсик, в открывшемся окне выберите свой файл «Лабораторная работа_4_1», в нем выберите пункт «Standart» и нажмите кнопку «Создать», находящуюся на панели справа.
- В открывшемся окне редактора набрать следующий код между 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 и с задаются пользователем.
- Откройте новый документ Calc и сохраните его под именем «Лабораторная работа_4_2».
- Откройте новый модуль Бэйсика с помощью команды Сервис-> Макросы->Управление макросами->OpenOffice.org Бэйсик, в открывшемся окне выберите свой файл «Лабораторная работа_4_2», в нем выберите пункт «Standart» и нажмите кнопку «Создать», находящуюся на панели справа.
- Стираем все, что есть в окне редактора и набираем код:
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. Поменяйте значения коэффициентов и рассчитайте снова.
Самостоятельно
Написать функцию, рассчитывающую значение функции
По теме: методические разработки, презентации и конспекты
![](/sites/default/files/pictures/2023/03/30/picture-114329-1680158505.jpg)
Самостоятельная работа №2 по теме «Условный оператор»
2 варианта.Определить принадлежность точки заштрихованной области+С1 старого образца...
Небольшой сборник самостоятельных и контрольных работ по теме «Программирование условного оператора If Then Else»
Представляю Вашему вниманию небольшой сборник самостоятельных и контрольных работ по теме «Программирование условного оператора IF THEN ELSE. Сборник полностью готов к употреблению. Я на своих у...
С/Р по теме "Оператор выбора и условный оператор на языке Pascal"
С/Р по теме "Оператор выбора и условный оператор на языке Pascal"...
Самостоятельная работа по теме: «Условный оператор, циклы, функции» (4 варианта + вариант повышенный уровень)
Самостоятельная работа по теме: «Условный оператор, циклы, функции» (4 варианта + вариант повышенный уровень)...
![](/sites/default/files/pictures/2023/04/05/picture-650848-1680698042.jpg)
Проверочная работа по типу ОГЭ по теме "Алгоритм с условным оператором"
Проверочная работа по типу ОГЭ по теме "Алгоритм с условным оператором"...