Помогите,пожалуйста,создать программу.

[Olgusi4ka]

а здесь что не так?
program Zadacha3;
uses crt;
var x,y,h: real;
begin
clrscr;
H:=0,4;
writeln('************************** ************');
x:= -5;
while(x>=-5) and(x<=5)do
begin
if (x<0)then y:=x*x-1;
alse;
if (x>0)and(x<1,5)then y:=cos(x);
aise;
if (x>1,5) then y:=sin(x-1)
end;
writeln('************************** ************')
end.

[BDA]

"else" вот так пишется. Точка с запятой после него не нужна. Разделитель для вещественного типа - точка. Ну и бесконечный цикл получился.

[Olgusi4ka]

Исправила.Точки с запятыми убрала.Не идёт
program Zadacha3;
uses crt;
var x,y,h: real;
begin
clrscr;
H:=(0,4);
writeln('************************** ************');
x:= -5;
while(x>=-5) and(x<=5)do
begin
if (x<0)then y:=x*x-1;
else
if (x>0)and(x<1,5)then y:=cos(x);
else
if (x>1,5) then y:=sin(x-1);
end;
writeln('************************** ************')
end.

[FPaul]

if (x<0)then y:=x*x-1;
else
if (x>0)and(x<1,5)then y:=cos(x);
else
if (x>1,5) then y:=sin(x-1);

Лишние, т.е. блок if-then-else не закончился
А вот последняя ; закрывает оператор.

[digitalis]

Ну никак не идёт впрок наука!
Писа'л же: везде только < и >, случай х= не охвачен, поэтому выход не определён. Вот введи х=0 и пройди отладчиком - весь блок if-else будет мимо кассы, а результат y - не определён. Где-то в одном месте д.быть <= или >= - см. пример
Отступы для форматирования, тег [CODE] - Пушкин будет делать ?

while(x>=-5) and(x<=5)do
  begin
     if (x<0)then y:=x*x-1;
     else
     if (x>=0)and(x<=1,5)then y:=cos(x);
     else
     if (x>1,5) then y:=sin(x-1);
  end;

FPaul Вот кстати - в С перед else ставится ; - нелогично как-то, с моей точки зрения. Как будто else - отдельный оператор, сам по себе. Но бог им судья.

[digitalis]

а третий if совсем не нужен: всё что осталось справа на числовой оси - оно > 1,5

else
     if (x>1,5) then y:=sin(x-1);

[FPaul]

Возможно, что в C разделитель перед else ставится из соображений однообразия, и упрощения работы компилятора при разборе строк.

Думаю, что хотя условие несколько другое получится, но смысл да - последняя ветка else без if.

  if (x<0) and (y<0) then
    b:=min(exp(x+1), y)
  else if (x>0) and (x<1) and (y>0) and (y<1) then
    b:=2*log(x)*max(min(x, y), sin(c*x), cos(d))
  else
    b:=a+x;

Что-то топикстартер привёл одну картинку, а решал другую задачу.
Похоже, что в другом месте получил ответ.