Программирование

[К@t@LoNeЦ]

Помогите с заданием.
Нужно протабулировать функцию (см.рисунок 1)
Т.е как дано из рисунка, мне нужно подставить все значения х из интервала от "-8" до "8" с шагом 2.5 в данную функцию и посчитать.

http://barca.ru/forum/attachment.php...3&d=1322654339

Программу я написал:

Вот она:

var x,y: Real;
i:Integer;

Begin
writeln('Табуляция:');

x:=-8;

while x<8 do

begin

if (2*sqr(x)-5*x+3)<0 then Writeln('x=',x :4:2, ' Нет решения')

else

Writeln('x=',x :4:2 ,' y=',(20*cos(sqr(x)))/(sqrt(2*sqr(x)-5*x +3)) :4:2 );
x:=x+2.5;

end;

End.

Но он считает функцию не правильно - в этом и проблема (См. рисунок 2)

http://barca.ru/forum/attachment.php...4&d=1322654416
Вроде все правильно в коде. Единственное в чем могла быть ошибка, так это в записи самой функции.