Выручайте

[xaker_lol]

Нужно сделать программу, помогите плиз

задачка

[alex_fcsm]

var f,x:real;
begin
readln(x);
if (x<-2) or (x>2) then writeln('?????????')
   else begin
         if (x>=-2) and (x<=-1) then f:=2*x+4
             else if (x>=-1) and (x<=1) then f:=2*sqr(x)
               else f:=-2*x+2;
         writeln(f);
        end;
end.

[xaker_lol]

Благодарю...а может выручите еще одной?

задача 2

[alex_fcsm]

var y,x:real;

begin
readln(x);
y:=sqr(cos(x))/3+sqrt(x+9*ln(x+3)/7)-4/(sqr(sqr(x))*x-3);
writeln(y);
end.

[capta1n]

2)

program project;
var
 y,x,x1,x2 : real;
begin
  write ('x= '); readln(x);
  x1:=sqr(sqr(x))*x-3;
  if (x<=-3) then writeln ('Error')
  else
  begin
    x2:=x+9/7*ln(x+3);
    if (x1<>0) and (x2>=0) then y:=1/3*sqr(cos(x))+sqrt(x2)-4/x1
                                      else writeln ('Error!');
  writeln ('y= ',y:0:2);
  end;
  readln
end.

[alex_fcsm]

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

2)

program project;
var
 y,x,x1,x2 : real;
begin
  write ('x= '); readln(x);
  x1:=sqr(sqr(x))*x-3;
  if (x<=-3) then writeln ('Error')
  else
  begin
    x2:=x+9/7*ln(x+3);
    if (x1<>3) and (x2>=0) then y:=1/3*sqr(cos(x))+sqrt(x2)-4/x1
                                      else writeln ('Error!');
  writeln ('y= ',y:0:2);
  end;
  readln
end.

if (x1<>0) может так?

[capta1n]

ой - да Вы правы - это я когда тестил минус три для удовства вот здесь написал

x1:=sqr(sqr(x))*x-3;

, а в условии забыл поменять да, спасибо, что заметили