протабулировать функцию

[gylayko]

всеобщие привет театру, школам, ложи блещут...
вот задание:1. Протабулировать функцию для х=-10.. -6, шаг x=0.4, использовав цикл с предусловием. Аргументы и результаты вывести на экран в виде таблицы (для значений х, в которых функция не существует вывести "-" и использовать оператор перехода на следующую итерацию). вот функция y=(sqt(x+9)/x)-(1/x+6)
вот, моя созданая прога
var x,y,z:real;
begin
x:=-10;
while x>=-6 do
begin
x:=x+0.4;
y:=(sqrt(x+9)/x)-(1/x+6);
WriteLn('x=',x:5:2,'y=',y:5:2);
end;
ReadLn;
end.
но она не работает, в результате ничего не происходит! в чем ошибка?

[NetSpace]

while(x<=-6) do//пока X меньше либо равен -6, то...

[gylayko]

и что? ничего ведь не изменилось! все равно выдает ту же ошибку!!!

[Niro]

в результате ничего не происходит!

Вот вам NetSpace и исправил эту ошибку
Раньше у вас программа проскакивала цикл, сейчас нет, но будет выдавать ошибку
очевидно, у вас корень извлекается из отрицательного числа, вот и ошибка

P.S. у вас ведь в задании даже указано
для значений х, в которых функция не существует вывести "-" и использовать оператор перехода на следующую итерацию

[gylayko]

а как написать, что если функция не получается, вывести "-"???

[gylayko]

я сделал вот так
var y,h,x:real;
begin
h:=0.4;
x:=(-10);
While (x<=-6) do
begin
y:=sqrt(x+9)/x-(1/x+6);
if false then
WriteLn('-') else
WriteLn('x=',x:5:2,'y=', y:5:2);
x:=x+h;
end;
ReadLn;
end.
но теперь все то же самое! та же ошибка на том же примере!