Программирование алгоритмов разветвленных вычислительных процессов

[bbk_serg]

помогите решить задачку

[Sazary]

Как я понимаю, среднее условие все-таки -1<=x<=0?
Проверяйте:

uses crt;
var
x,y,tmp : real;

begin
clrscr;
write('Enter x: ');
readln(x);
if x>0 then y:= 2*sqrt(x) - 1/(x+0.5)
else if x<-1 then
             begin
             tmp := abs(x + 3.2 + sqr(sin(x)));
             y := ln(tmp)/ln(10);
             end
else begin
     tmp := pi/2 - arctan(x)/sqrt(1-sqr(x));
     y:= sqr(tmp) + abs(x)*abs(x)*abs(x);
     end;
writeln(' Y= ',y:7:4);
readln;
end.

[bbk_serg]

Огромное СПАСИБО!!!

[Goras]

Пожалуйста помогите решить задачку

[alex_fcsm]

var a,b,x:real;


begin
writeln('Input a b');
readln(a,b);
x:=exp(b)+b*sin(a);
if x<=1 then writeln(1.53*sqr(x))
   else if (x>0) and (x<=7.3) then writeln(x+ln(x*a))
        else if x>7.3 then writeln(1/sqrt(x+2.3*a));
end.

По-моему должно быть вот так 1<x<7.3