[Pascal]: Вычислить значение выражения при заданных значениях входящих в него переменных

[Excellent69]

Комрады, прошу помочь написать программу на паскале!...
Условие прикрепляю пикчей.

[Excellent69]

UPD:

Попробовал написать прогу:

program LOL;
var x,f,max,z: real;
const
h=0.3;
a=1.45;
begin
x:=-1;
while x<=2 do
 begin
 if x<-0.5 then
  z:=x*x+x 
  else z:=cos(x);
   If x>a then 
   max:=x 
   else max:=a;
  f:=(1.5*z*max)/(power(z*z+arctan(z)*arctan(z),1/5));
  writeln('f=',f);
  x:=x+h;
 end;
end.

Всё бы ничего, но вот при запуске программы меня смущает первая строчка.

f=NaN
f=-0.744438569566846
f=1.87229590467329
f=1.96924532735746
f=1.94983123071363
f=1.81425648117841
f=1.56331402175175
f=1.19279637721342
f=0.655080159757779
f=-0.649904601686297
f=-1.55959171415981

Что не так?

[Вадим Мошев]

Рекомендую посмотреть значения переменных, которые участвуют в расчёте значения переменной f. После этого взять используемые функции от этих переменных, и посмотреть, определён ли для них результат.

[Аватар]

меня смущает первая строчка

Меня бы тоже засмущало, если бы 0 на 0 делить заставили

[Caeles-Lupus]

ну, при x=-1, делится ноль на ноль.

[Excellent69]

Да, действительно. Посчитал, выходит, что при х=-1 будет 0 делить на 0... СТранно... Но ведь в условии точно стоит <=... В пятницу пойду сдавать, посмотрим, что скажут...