Лабораторная работа №2. «Разработка, отладка и испытание разветвляющихся алгоритмов и программ»,

«Разработка, отладка и испытание разветвляющихся алгоритмов и программ»,

 

Цель работы: составление на языке Pascal программ, реализующих

разветвляющую структуру.

Программные средства: система программирования Borland Pascal.

 

Вопросы для самоподготовки:

1. Разветвляющийся вычислительный процесс.

2. Графическое представление разветвляющегося вычислительного процесса.

3. Оператор условного перехода

4. Правила работы с оператором условного перехода.

 

Задание 1.

Вычислить значение Y в зависимости от X для функции, график которой приведен на рисунке:

Y

 

y = x y = 2

 

 

2 y= -x+5

 

 

X

0 1 2 3 4 5 6 7

 

Рис. 1

 

1. Исходя из рис. 1 составим расчетные формулы для вычисления Y.

2. Проведем анализ: на каких участках числовой прямой применяется та или иная формула.

(1) (2) (3)

X

2 3

 

Анализ показывает, что для выбора нужной расчетной формулы достаточно осуществить проверку выполнения условий в точках Х=|2| и Х=3.

 

3. Составим графическую схему алгоритма с учетом формулы, по которой будет производиться расчет.

 

 

Да Нет

 

Да Нет

 

4. Составляем таблицу соответствия переменных:

В исходной задаче	x	y	n
В программе	x	y	n
Тип	real	real	integer

 

5. Составим программу на языке Pascal.

 

program primer;

var

x, y: real;

n: integer;

Begin

writeln(‘Введите x=’);

readln (x);

if x< 2

then

begin

y: =x;

n: =1

end

else if x< 3

then

begin

y: =2;

n: =2

end

else

begin

y: =-x+5;

n: =3

end;

writeln(‘y=’, y: 5: 3);

writeln(‘Расчет производился по формуле n=’, n);

readln

End.

Задание 2.