Задача в паскале. Работа с циклом while do.

[Йохан Шмидт]

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

А мы его тем паче не понимает не видя глазами

как это не видите? В шапке 2 картинки выложены...

[Snejnaya]

Сообщение от Йохан Шмидт

Спасибо, точно...

var
z,y,x,eps,y1:real;
i,n:integer;
Begin
clrscr;
eps:=0.001;
y1:=1;
y:=1;
x:=PI/3;
n:=1;
while abs(y1-y)<=eps do
begin
y:=y1;
y1:=y1+(1/n)*(x/(exp(ln(y1)*(n-1))-y1));
end;
readkey;
End.

Сейчас паскаль ругается на строчку
y1:=y1+(1/n)*(x/(exp(ln(y1)*(n-1))-y1));
Пишет что деление на 0. Как это возможно исправить?

Почему n=1, если у тебя корень 2 и 4 степени? Это во-первых. Во-вторых, ты намудрил со скобками
y1:=y1+(1/n)*(x/(exp(ln(y1)*(n-1))-y1));

должно быть так:
y1:=y1+(1/n)*(x/exp(ln(y1)*(n-1))-y1);

[Stilet]

как это не видите? В шапке 2 картинки выложены...

Этож надо... Пардонте, меня фаерволл банит, не пускает на портал где ты их выложил