Логические операции. Пример. Составить программу вычисления значения функции

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

при заданных значениях а и х.

Словесно-формульный алгоритм

1. Ввод значений а и х.

2. Вычисление значения промежуточной переменной b = ax.

3. Расчет функции f в зависимости от выполнения условия:

а) если b<0, то ;

б) если 0≤b<4, то ;

в) если b≥4, то .

4. Вывод значения f.

Блок-схема алгоритма

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

Program Vetvi; {заголовок программы}

Uses Printer; {подключение модля Printer}

Var a,b,x,c,d,f:real; {описание переменных}

BEGIN {начало операторной части}

writeln('Введите переменные:');

write('a='); readln(a);

write('x='); readln(x);

b:=a*x;

if b<0 then f:=2*b+abs(a-1)

else if b<4 then

Begin

c:=exp(x);

d:=sqrt(1+a*a);

f:=c/d-1

End

else f:=exp(3*ln(a))-3*a+4;

writeln(Lst,'f=',f:12,' при х=',x:5:2,

' и а=',а:5:2);

END. {конец операторной части}

!! Запустите среду программирования Turbo Pascal, наберите текст вышеприведенной программы и сохраните файл с именем Vetvi.pas.