Примеры программирования разветвляющихся вычислительных процессов
1. Использование условного оператора
Задача 2
1. Формулировка
задачи: вычислить
значение функции:
,
где а = 2, х = 1.
Для решения данной задачи будем использовать полную форму условного оператора.
2. Таблица распределения идентификаторов
|
входные |
выходные |
|
переменные |
а |
х |
у |
имя |
а |
х |
у |
тип |
real |
real |
real |
3. Блок-схема программы представлена на рис. 5.
4. Программа. Программа составляется по блок-схеме с учетом таблицы распределения идентификаторов.
Рис. 5. Блок-схема программы |
Program Primer; uses Crt; var a, x, y : real; begin writeln('Vvedite x, a '); readln(x, a); if x<2 then y:= 7*sqr(x) + cos(x) else y:= sqrt(exp(3*ln(x))/abs(a-4)); writeln ('y = ', y:6:2); writeln; End. 5. Протокол работы программы Vvedite x, a
y = 7.54
6. Содержание отчета (см. задача 1) |
Задача 3
1. Формулировка
задачи:
вычислить значение функции:
.
2. Таблица распределения идентификаторов
|
входные |
выходные |
переменные |
х |
у |
имя |
х |
у |
тип |
real |
real |
3. Блок-схема программы представлена на рис. 6.
4. Программа. Программа составляется по блок-схеме с учетом таблицы распределения идентификаторов.
Рис. 6. Блок-схема программы |
Program Primer; uses Crt; var x, y : real; begin write('Vvedite X = '); readln(x); if abs(x)>1 then y:= exp(x*ln(x/(1+x))) else if abs(x)<1 then y:= x-sqrt(1-sqr(x))* arctan(x/sqrt(1-x*x)) else y:= cos(arctan(x/sqrt(1-x*x))/2); writeln ('Y = ', y:6:2); writeln; end.
5. Протокол работы программы Vvedite X = 5 Y = -7.00 Vvedite X = -5 Y = 25.00
6. Содержание отчета (см. задача 1) |
Задача 4
1. Формулировка задачи: напишите программу, которая по введенному целому числу из промежутка 0..24 определяет время суток.
2. Таблица распределения идентификаторов
|
Входные |
переменные |
Х |
имя |
Х |
тип |
Integer |
3. Блок-схема программы представлена на рис. 7.