Question

Помогите пожалуйста
Решить в Паскале:
Вычислить составную (сложную) функцию, имеющую различный вид на разных участках аргумента

Answer 1

Первое условие придумал какой-то, извиняюсь, дeбил, потому что логарифм определен только для положительного аргумента и программа завершится с ошибкой.

PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadReal('x=');
  var y:real;
  if (x>=4) and (x<-3) then y:=ArcSin(x)+Ln(x+2)
  else if (x>=-3) and (x<0) then y:=2*Cos(10*x)+3
  else if (x>=0) and (x<1.5) then y:=30*Sqr(x-2.25)+2.25
  else if (x>=1.5) and (x<=2) then y:=15*(x-2.5)+4
  else exit;
  Writeln('y=',y)
end.