значения функции

[arshavin]

Составить алгоритм и написать программу, которая вычислит и выведет на экран в виде таблицы значения функции, заданной графически, на интервале от xнач до xкон с шагом dx. Интервал и шаг задать таким образом, чтобы прове-рить все ветви программы. Таблицу снабдить заголовком.

program mak61;
const r1=1; r2=2;
var xn, xk, dx, x, y: real;
  begin
write ('Makov 205');
writeln ('введите xn, xk, dx');
readln (xn, xk, dx);
repeat
if x<-6 then y:=1;
if (x>-6) and (x<-4) then y:=(x/2) - 2 ;
if (x>-4) and (x<=0) then y:=sqrt((r1*r2)- sqr(x+2)) ;
if (x>0) and (x<2) then y:=sqrt(r1*r2-sqr(x-1)) ;
if x>2 then y:=-x+2 ;
writeln ('x=',x ,'y=',y);
until x>xk
end.

выдаёт ошибку неверная вещественная операция
что не так??

[Mad_Cat]

при x= 0
y:=sqrt((r1*r2)- sqr(x+2));
y=sqrt(2-4)=sqrt(-2) а это

неверная вещественная операция

так что проверяйте правильность задания функции

[arshavin]

а помочь можешь?

[arshavin]

ап
ап
ап
ап

[Leo08]

и еще ты x ничему не присваиваешь. Он у тебя постоянно равен 0.