Общий вид алгоритма разветвляющегося процесса

Общий вид записи с условным оператором:

If «Условие» then «Оператор_1» else «Оператор_2»;

«Условие» − логическое выражение.

if, then, else − зарезервированные слова («если», «то», «иначе»).

Условие задачи:

Найдите значения функции ,

если

Порядок выполнения действий:

1. Присвоение значений переменным A и B.

2. Организация цикла по переменной Х.

3. Вычисление функции D в зависимости от условия.

4. Вычисление значений функции F.

5. Вывод значения функции F.

1 способ: Цикл с предусловием (WHILE)

Program funk_F1; Var а, b, d, x, F: real; begin a:= 2.7; b:= -0.3; x:=1; While x<=8 do begin if x<2.3 then d:=(a+x)/x else if x>=5 then d:=a*x*x+b*x else d:=(a+b)/(x+1); F:=b*d+ln(d); writeln('F(',x:2:1, ')= ',F:6:2); x:=x+0.5; end; readln; end.

2 способ: Цикл с постусловием (REPEAT … UNTIL)

Program funk_F2; var a, b, d, x, F:real; begin a:= 2.7; b:=-0.3; x:=1; repeat if x<2.3 then d:=(a+x)/x else if x>=5 then d:=a*x*x+b*x else d:=(a+b)/(x+1); F:=b*d+ln(d); Writeln ('F(',x:2:1, ')= ',F:6:2); x:=x+0.5; until x>8; readln; end.