задание по паскалю (2 мин)

[arshavin]

нужны формулы для выделенных на рисунке участков

вот мои наработки

program q;
var x: real;
begin
writeln('Ignatovich 205');
write('vvedite x=');readln(x);
if (x<-3) or (x>5) then
 begin
   writeln('znachenie dolgno prinadlejat intervalu [-3;5]');readln;
   exit
 end;
if (x <-3) then writeln ('y= ne naydeno') else
if (x <-2) then writeln ('y= ',???) else
if (x <-1) then writeln ('y=',????) else
if (x <1 ) then writeln ('y= 1') else
if (x <2 ) then writeln ('y=',????) else
if (x <5 ) then writeln ('y= -1') else
writeln('y=ne naydeno');
readln;
end.

заранее спасибо


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[val_nnm]

Ну примерно както так.

program q;
var x,y: real;
begin
  writeln('Ignatovich 205');
  write('vvedite x=');readln(x);
  if (x<-3) or (x>5) then
  begin
    writeln('znachenie x dolgno prinadlejat intervalu [-3;5]');readln;
    exit
  end;
  if (x<=-2) then Begin
    y := -x-2;
  End else
    if (x<=-1) then Begin
       y := sqrt(1-sqr(x+1));
    End else
      if (x<=1) then Begin
        y := 1;
      End else
        if (x<=2) then Begin
          y := (-2*x)+3;
        End else y := -1;
  writeln('y=',y:10:5);
  readln;
end.

PS Опять таки писал без проверки. Поэтому проверти на ошибки.

[Serge_Bliznykov]

2 минуты, говорите...

if (x <-3) then writeln ('y= ne naydeno') else
if (x <-2) then writeln ('y= ',(-1)*(x+2)) else
if (x <-1) then writeln ('y=',sqrt(1-sqr(x))-1) else
if (x <1 ) then writeln ('y= 1') else
if (x <2 ) then writeln ('y=',(-2)*(x-1.5)) else
if (x <5 ) then writeln ('y= -1') else
writeln('y=ne naydeno');

ДОБАВЛЕНО

на моё решение прошу не смотреть.
Мне лично решение (c) val_nnm намного больше понравилось!