Question

помогите в АВС паскаль
Задание: используя оператор условия (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

Answer 1

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

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;