Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Изм.
Лист
№ докум.
Подпись
Дата
Лист
2
ЛР 1304000.012.ПЗ
Изм.
Лист
№ докум.
Подпись
Дата
Лист
2
ЛР 1304000.012.ПЗ
Лабораторная работа № 2.
Цель: Рассмотреть решение задач с условным оператором if,then,else.
Ход работы:
Составить программу для вычисления значения составной функции при произвольном значении :
Запустим Turbo Pascal.
В окне редактирования наберём текст программы:
Program pr_1;
var x, y: real;
begin
Writeln ('Введите значение х');
Readln (x);
If x<0 Then y:=x*x
Else y:=3*exp(-x);
Writeln('При х = ', x:4:2, ' y= ', y :6:2)
end. (рисунок 1)
Рисунок 1
Запустим процесс компиляции программы комбинацией клавиш Alt+F9.
Запустим программу на выполнение.
Просмотрим результаты.(рисунок 2)
Рисунок 2
Протестируем программу при некоторых значениях переменной .
Составить программу для вычисления значения составной функции при произвольном значении :
При решении таких задач нужно учесть, что условия на значения Х делят числовую ось на три интервала (в нашем случае точки деления Х=0 и Х=1), поэтому при реализации алгоритма используется вложенный условный оператор.
Запустим Turbo Pascal.
В окне редактирования наберем текст программы:
Program pr_2;
var x, y: real;
begin
Writeln ('Введите значение х');
Read (x);
If x<0 Then y :=exp(-x+1)
Else If x>1 Then y:= 1/x+sin(x)
Else y:= Sin(x)/Cos(x);
Writeln ('При х=', x :4:2, 'y=', y:6:2);
end. (рисунок 3)
Рисунок 3
Запустим процесс компиляции программы.
Запустим программу на выполнение. (рисунок 4)
Рисунок 4
Протестируем программу при некоторых значениях переменной .
Найти максимум двух чисел a и b.
Запустим Turbo Pascal.
В окне редактирования наберем текст программы:
Program pr_3;
var a, b, max :real;
begin
Writeln(' Введите значение a');
Read(a);
Writeln(' Введите значение b');
Read(b);
if a >= b then max :=a
else max :=b;
Writeln ('a=', a :4:2,' b =', b :4:2);
Writeln ('max =', max :4 :2);
end. (рисунок 5)
Рисунок 5
Запустим процесс компиляции программы.
Запустим программу на выполнение. (рисунок 6)
Рисунок 6
Протестируем программу при некоторых значениях переменных a и b.
Контрольные вопросы:
1.Разветвляющиеся алгоритмы. Условный оператор.
2.Блок-схемы полного и усеченного условного оператора.
1.Разветвляющиеся алгоритмы (ветвления) осуществляют в зависимости от результата проверки некоего логического условия выбор одного из альтернативных путей работы алгоритма. Это ветвление обеспечивается условными операторами.
2.
Вывод: обучился решению задач на условный оператор.
Изм
Лист
№ докум.
Подпись
Дата
Лист
1
ЛР 1304000.012 .ПЗ
Разраб.
Кожинов Д
Провер.
Трофимова Е.С.
Руковод.
Н.Контр.
Утв.
Лит.
Листов
3
ЧУ ТМК «Мирас»
Изм
Лист
№ докум.
Подпись
Дата
Лист
1
ЛР 1304000.012 .ПЗ
Разраб.
Кожинов Д
Провер.
Трофимова Е.С.
Руковод.
Н.Контр.
Утв.
Лит.
Листов
3
ЧУ ТМК «Мирас»