Описание программы. В примере 2 использованы циклический и ветвящийся вычислительные процессы

В примере 2 использованы циклический и ветвящийся вычислительные процессы.

Вначале организуется цикл repeat по параметру х, а внутри цикла проверяются условия, обуславливающие ветвящийся вычислительный процесс, где для каждого значения переменной z =f(x) предусмотрена своя ветвь вычисления значений искомой функции у.

const

dx=0.1;

var

x,y,z: real;

begin

x:=-1;

repeat { цикл по x }

z:=sin(x) - 0.1;

if z<0 then

y:=exp(1/3*ln(abs(z)))+1

if z=0 then

y:=0

else

z:=(sin(x)/cos(x))^2;

writeln(' x=',x:4:3,'z(x)= z(',x:4:3,')=',z:4:3);

x:=x+dx;

until x>1;

end.

3 Программа "цикл в цикле и ветвление"

Пример 3

Вычислить сумму S положительных и произведение Р отрицательных значений функции y = cos t -b, в области t [-1;1] с шагом 0.2 и

в области b [-0.1;0.2] с шагом 0.1.

В примере - две переменные, t и b, нужно для каждого значения t просчитать все b, если y>0,, то прибавить его значение к предыдущей сумме S, если y<0, то умножить его на предыдущее произведение Р.

В примере 3 встречаются два циклических и ветвящийся вычисли-

тельные процессы. Внешний цикл организован по параметру t, внутренний цикл - по параметру b.

Внутри цикла после вычисления значения функции у осуществляется проверка условий ветвящегося вычислительного процесса, который реализует вычисление произведения p отрицательных значений функции (в случае выполнения условия у<0) и вычисление суммы s положительных значений функции, если у>0.