 |
Тема: Разветвляющиеся алгоритмы
|
|
|
|
ВАРИАНТЫ ЗАДАНИЙ К ЛАБОРАТОРНОЙ РАБОТЕ № 2
- ЗАДАНИЕ №1 (ветвление с двумя альтернативами).
Задание: Составить схему алгоритма и программу на языке Паскаль для вычисления значений функции y = f(x) при произвольных значениях x. Получить результат работы программы для двух заданных значениях x.
| Номер Вар. | Y=f(x) | Исходные данные |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
 
| a=1,25 u=-0,22 v=0,01 1)x=-0,85 2)x=2,34 | |
| a=18,225 z=-3,298 1)x=1,825 2)x=3,546 | |
| a=-2,75 z=0,15 1)x=8,45 2)x=16,55 | |
| =0,750 Z=0,845 1)x=-4,500 2)x=2,320 | |
| a=-8,750 z=0,765 1)x=0,100 2)x=2,76 |
Пример. 
Решение. 1.Блок-схема алгоритма вычислений представлена на рисунке.
 |
2.Текст программы.
program p2;
var a,b,x,y:real;
begin
a:=3.7;b:=6.1;
write('введите x=');
readln(x);
if x<=2 then y:=b+3*cos(x)*sqr(cos(x))
else y:=sqrt(a*sqr(x)+7*x+10);
writeln('при x=',x:5:2,' значение y=',y:5:2);
readln;
end.
3.Результат выполнения контрольного примера
при x= 5.00 значение y=11.73
при x= 2.00 значение y= 5.88
при x= 1.20 значение y= 6.24
ЗАДАЧИ ПОВЫШЕННОЙ СЛОЖНОСТИ.
1) Написать программу нахождения суммы большего и меньшего из 3 чисел.
2) Найти max{min(a, b), min(c, d)}.
3) Даны три числа a, b, c. Определить, какое из них равно d. Если ни одно из них не равно d, то найти max(d-a, d-b, d-c).
4) Даны числа x, y, z. Найти значение выражения:
5) Написать программу, которая по заданным трем числам определяет, является ли сумма каких-либо двух из них положительной.
6) На оси OX расположены три точки a, b, c. Определить, какая из точек b, c расположена ближе к a.
7) Даны действительные числа a, b, c. Удвоить эти числа, если a<b<c, и заменить их абсолютными значениями, если это не так.
|
|
|
- ЗАДАНИЕ №2 (вложенные ветвления, оператор выбора)
Задание. Составить схему алгоритма и два варианта программы на языке Паскаль для вычисления значений функции y=f(x) при произвольных значениях x. Первый вариант программы должен содержать вложенные ветвления, второй – оператор выбора (для целого x). Варианты заданий в таблице.
| Номер варианта | 
| Исходные данные |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
|
Пример. При a=3,7 b=6,1
1)x=-1,16 2)x=3.9
Решение. Первый вариант решения вложенный if:
1.Блок-схема программы с вложенным ветвлением.
 |
2.Текст программы.
program p3;
var a,b,x,y:real;
begin
a:=3.7;b:=6.1;
write('введите x=');
readln(x);
if x<-1 then y:=x+2*b
else if x<=2 then y:=exp(-x)
else y:=cos(a*x);
writeln(' при x=',x:5:2,' значение y=',y:5:2);
readln;
end.
3.Результат выполнения контрольного примера
при x=-1.16 значение y=11.04
при x=-1.00 значение y=11.20
при x= 1.32 значение y= 0.27
при x= 2.00 значение y= 0.14
при x= 3.90 значение y=-0.29
Второй вариант решения ( case ): 1.Блок-схема алгоритма с оператором выбора
 |
Нет
Да Нет
Да Нет
Да
Нет
Да
Нет
Да
Нет
Да
2.Текст программы
program p3a;
var a,b,y:real;
x:integer;
begin
a:=3.7;b:=6.1;
write('введите x='); readln(x);
case x of
-2: y:=x+2*b;
-1: y:=exp(-x);
0: y:=exp(-x);
1: y:=exp(-x);
2: y:=exp(-x);
3: y:=cos(a*x);
else begin writeln ('x должно быть целым от -2 до 3 ');
writeln('нажми Enter'); readln; exit; end;
end;
writeln('при x=',x,' значение y=',y:5:2);
readln;
end.
3.Результат выполнения контрольного примера.
при x=-2 значение y=10.20
при x=-1 значение y= 2.72
при x=0 значение y= 1.00
|
|
|
при x=1 значение y= 0.37
при x=2 значение y= 0.14
при x=3 значение y= 0.10
при x=8 y не может быть вычислен, т.к. x должно быть целым от -2 до 3
'нажми Enter
|
|
|
