Помогите в АВС паскаль Задание: используя оператор условия (if … then), составить...

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<br> -0.05<= x2<2<br> 2<= x3<3 <br> 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)<br>    then y:=8+10*sin(x-3);
result:=y;
end;

Comments

это АВС паскаль?

---

я хз че это :)

---

короче, спасибо хоть такое есть

---

но это не АБС паскаль, я хз что это :) учат школьников фигне которая заведомо не используется...