Пример выполнения алгоритма с использованием оператора цикла

Begin

Пример алгоритма ветвления.

Begin

Writeln('Введите a,x,z');

Readln(a,x,z);

c:=sin(x*x)/cos(x*x);

y:=a*c*sqr(c)+sqrt(z*z/(a*a+x*x));

p:=ln(a+x*x)+sqr(sin(z/a));

Writeln('y=', y:8:3, ' p=', p:8:3)

end.

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

Вычислить значения функции

при значениях a=1.3; b=1.29; t=[0.1;2.2] (t изменяется в диапазоне от 0 до 2.1 с шагом 0.3).

Для реализации конструкции Ветвление в языке программирования Pascal используют оператор условного перехода IF <условие> THEN <оператор 1> ELSE < оператор 2>

Блок-схема алгоритма решения представлена на рисунке.

При тестировании алгоритмов с развилкой необходимо подбирать такие исходные данные, чтобы можно было проверить все ветви. В приведенном выше примере должно быть по крайней мере три тестовых набора.

Текст программы:

Program Prg_2;

var a,b,t,s: real;

Writeln(' Введите a,b,t');

Read(a,b,t);

if a*t<1 then s:=a*t+b;

if a*t=1 then s:=cos(a*t);

if a*t>1 then s:=exp(-a*t)*cos(a*t);

Writeln('a=',a:8:3,' b=',b:8:3,'t=',t:8:3,' s=',s:8:3)

end.

Блок-схема алгоритма решения задачи представлена на рисунке ниже.

В блоке 1 осуществляется ввод исходных данных: значений a и b, начального значения tn переменной t, конечного значения tk переменной t, шага изменения dt переменной t. Блок 2 присваивает переменной t начальное значение tn. Блок 3 осуществляет проверку условия t<tk и в зависимости от результата проверки заканчивает или продолжает расчет. Блоки 4,5 осуществляют проверку условия - значение аt меньше, равно или больше единицы - и в зависимости от результата сравнения проводится вычисления по одной из ветвей - 6, 7, 8. Блок 9 выводит на печать полученное значение функции s совместно со значениями t. Блок 10 увеличивает текущее значение переменной t на шаг и осуществляет безусловный переход к блоку 3

Текст программы:

program Prg_3;

var a,b,tn,tk,dt,s,t:real;

Дата добавления: 2014-10-17