При выполнении задания предусмотреть выбор вида функции f(x): sh(x), x^2 или e^x. Предусмотреть вывод информации о выбранной ветви вычислений. Нужно решение уравнения на Паскале

Відповідь:

Пояснення:

Program Vubir;

var x, y, f, b,sinh, s: real;

num: integer;

begin

Write(' x, y, b');

Readln(x, y, b);

sinh := (exp(x) - exp(-x))/2;

write('Ââåäèòå íîìåð ôóíêö³¿ 1-3 ');

readln(num);

case NUM of

1: f := sinh;

2: f := sqr(x) ;

3: f := exp(x);

end;

if (x*b > 1) and (x*b < 10)  then

s:=exp(f)

else

 if (x*b>12) and (x*b<40)  then

 s := exp(1/3*LN(abs(f +4*y)))

 else

 s:= y* sqr(f);

Writeln('s=' , s);

Readln;

end.