Вычеслить и вывести значения сложной функции

[armeec08]

Вычеслить и вывести значения сложной функции y в некоторой заданной пользователем точке x, если система

1 если x=<-1
f(x)= 2x^2-1 если -1<x=<1
x^2 если 1<x=<2


при x>2 функция f(x) не определена.

зараннее спасибо тем кто чем то поможет

[Stilet]

А что за функция? И какой язык?

[evg_m]

function F(x: integer): integer;
begin
  if x<=-1 then result:=1 //1 если x=<-1 
  else {-1<x} if x<=1 then result:=2*x*x+1 // 2x^2-1 если -1<x=<1 
//левая половина неравенства учитывается предыдущим условием)
  else {1<x} if x<2 then  result:=x*x // x^2  если 1<x=<2
  else {2<=x} Abort; // x>2 функция не определена.
end;

[Grag]

evg_m, все это так, только я думаю, что и функция и ее аргумент должны иметь все-таки вещественный тип...

[evg_m]

вполне возможно но я и не старался дать точный ответ а только принцип формирования. В примере ЕСТЬ ПАРА (или больше) ОШИБОК.

[armeec08]

язык pascal. функция это система f(x) =
1 если x=<-1
2x^2-1 если -1<x=<1
x^2 1<x=<2

при x>2 функция f(x) не определена.

[armeec08]

Сообщение от evg_m

function F(x: integer): integer;
begin
  if x<=-1 then result:=1 //1 если x=<-1 
  else {-1<x} if x<=1 then result:=2*x*x+1 // 2x^2-1 если -1<x=<1 
//левая половина неравенства учитывается предыдущим условием)
  else {1<x} if x<2 then  result:=x*x // x^2  если 1<x=<2
  else {2<=x} Abort; // x>2 функция не определена.
end;

result,Abort .... такого у нас ещё вроде небыло в паскале(((

[ROMA2PVT]

зато exit,halt ещё никто не отменял.А result это просто переменная.

[armeec08]

Сообщение от ROMA2PVT

зато exit,halt ещё никто не отменял.А result это просто переменная.

а без result тут никак?

[armeec08]

тут х вроде с клавиатуры вводить надо