Вавс паскаль : используя оператор условия (if … then), составить программу для вычисления составной (сложной) функции, имеющей различный вид на разных участках аргумента все исходные данные, необходимые для проведения вычислений, вводить с клавиатуры. функция y1=(-x)3 +sin(x) y2=(x2 +ex )-1 y3=13-ln(x)*4 y4=8+10*sin(x-3) участки аргумента -1< = x1< -0.05 -0.05< = x2< 2 2< = x3< 3 3< = x4< =4

Хз у меня дельфи тут, вот что-то типо такого будет:

function WhatEver(x,y:extended):extended;
var
e:extended;
begin
 e:=Exp(1);
 if (x >= -1) and (x < -0.05 )
    then y:=(-x)*3+sin(x);
 if (x >= -0.05) and (x < 2)
    then y:=(x+e*x)-1;
 if (x >= 2)  and (x < 3)
    then y:=13-ln(x)*4;
 if (x >= 3)  and (x <= 4)
    then y:=8+10*sin(x-3);
result:=y;
end;