Паскаль. Табулирование функции. Нужно найти ошибку

[Vladislav125]

Program primer;
const a=-2; b=2; h=0.5;
var x,y:real;
begin
x:=a;
repeat
y:=sqrt(x)*sqr(cos(2)*x);
writeln ('При значении',x,',y',y:6:3);
x:=x+h;
until x>b;
end.

[newerow1989]

Может так?

y:=sqrt(x)*sqr(cos(2*x));
writeln ('При значении ',x:6:3,', y ',y:6:3);

   Readln;
end.

[Vladislav125]

все равно ошибка Неверное вещественная операция строка 7

[Serge_Bliznykov]

const a=-2; b=2; h=0.5;
x:=a;
 y:=sqrt(x).....

а напомните мне, пожалуйста, а то я подзабыл, чему у нас равен корень квадратный из минус двух?
или у нас уже функция sqrt() уже в комплексных числах научилась вычислять?!

[Vladislav125]

У меня тема табулирование, я эти значения просто так поставил. Вот пример

[newerow1989]

y:=sqrt(x)*sqr(cos(x));

[Vladislav125]

а квадрат получается не пишут?

[Serge_Bliznykov]

Сообщение от Vladislav125

а квадрат получается не пишут?

пишут. это функция возведения во 2-ю степень sqr()
если Вы посмотрите на предложенные Вам код, то легко найдёте там возведение в квадрат.

[Vladislav125]

Все равно ошибку не могу исправить

[Serge_Bliznykov]

Сообщение от Vladislav125

Все равно ошибку не могу исправить

поставьте значения x из области ОДЗ.
Надеюсь, сейчас в школе расказывают, что такое область допустимых значений?!

например, попробуйте брать в качестве X только ПОЛОЖИТЕЛЬНЫЕ числа, для которых определена функция корня квадратного.

А ещё лучше, возьмите то число, что Вы прописали в качестве начального значения X (a = -2) и на калькуляторе посчитайте, чему равно Y при X = -2
может быть, тогда поймёте, что же Вы делаете не так!