Задача на неявный цикл

[rutra]

Помогите пожалуйста. Как бы все просто , но здесь надо организовать неявный циклический вычислительный процесс для функций. Препод требует в методичке.

Если x>=0 тогда N= 16*a-SQR(x)/(a+b) , если же x<0 тогда N=1/a+2*x*b.
При x=y*y-8

Как я понимаю неявный цикл - это цикл с условием (без счетчика)

[Kostia]

неявный циклический вычислительный процесс

А я понимаю что это цикл с использованием оператора безусловного перехода: GOTO.

[Sazary]

Неявный цикл - это вообще что-то из фортрана.
Определение с одного сайта по фортрану:

Неявные циклы не являются самостоятельными конструкциями и могут быть использованы только в операторах ввода/вывода и инициализации данных, как правило, для работы с массивами.

Неявно можно задать только цикл с фиксированным числом повторений. Вместо операторных скобок DO...ENDDO используются обычные круглые скобки. Телом цикла может быть другой неявный цикл или одно единственное выражение, как правило, зависящее от переменной цикла. Диапазон изменения и шаг переменной цикла указываются через запятую после тела цикла.

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

Препод требует в методичке.

что-что требует?

upd Kostia, да, наверное, действительно так.. Не думал, что где-то могут учить использовать goto в паскале.

[rutra]

Из методички ( правда для Бейсика), но алгоритмическая сущность одинаково:Задача: "Рассчитать сумму бесконечно убывающего ряда... и т.д.Здесь имеет неявный циклический процесс, так как не знаем сумму скольких слагаемых придется рассчитывать и выход из цикла не связан со значением перменной к. Другим словом в этом циклическом процессе нет счетчика цикла.

[NSvirus]

неявный, это походу дела цикл for ??

[puporev]

Здесь имеет неявный циклический процесс, так как не знаем сумму скольких слагаемых придется рассчитывать и выход из цикла не связан со значением перменной к. Другим словом в этом циклическом процессе нет счетчика цикла.

Это цикл либо while do, либо repeat until, но так зашифровать! С чего это циклл for явный, а while неявный.
Кстати, а это что При x=y*y-8 и откуда берется у?

[Stilet]

А мне всетки кажется что это цикл с GOTO, с чего бы препод фортрановским языком заговорил?

[rutra]

Вариант решения задачи таков. Прокомментируйте кто сможет. Верно или нет?
Если x>=0 тогда N= 16*a-SQR(x)/(a+b) , если же x<0 тогда N=1/a+2*x*b.
При x=y*y-8

var x,xn,y,a,b:real;
begin
write('a? '); read(a); write('b? '); readln(b);
x:=0; xn:=1;
while 1e6*abs(x-xn)>abs(x)+abs(xn) do
begin
x:=xn;
if x>=0 then y:=16*a-sqrt(x)/(a+b) else y:=1/a+2*x*b;
xn:=y*y-8 end;
writeln('x=',x);
readln
end.

[puporev]

А куда N девалась?

[rutra]

Значит неверно решена задача? А есть варианты исправления?
Помогите заочнику.