вроде более менее понимаю паскаль.. но как предел писать не знаю(((

[chargosman]

http://imageshost.ru/links/2f7661c39...9fc5da2f698560

[Sazary]

Нужно искать значения функции, пока разность соседних значений не станет меньше e.
Вот набросал, но хорошо бы знать ответ для сравнения. У меня получается ~0.4134
И еще не уверен на счет шага изменения икса. Думаю, если кто знает точно - поправит.

uses crt;
var
x,e,y1,y2 : double;
iter : longint;
begin
clrscr;
x := 1;
write('Vvedite e: ');
readln(e);
y2 := ((sin(x)/cos(x))-sin(x))/(sin(x)*sin(x));
iter := 0;
repeat
 x := x - e;
 inc(iter);
 y1 := y2;
 y2 := ((sin(x)/cos(x))-sin(x))/(sin(x)*sin(x));
until abs(y2-y1)<=e;
writeln(y2:7:4);
writeln('Iterations: ',iter);
readln;
end.

[alex_fcsm]

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

Нужно искать значения функции, пока разность соседних значений не станет меньше e.
Вот набросал, но хорошо бы знать ответ для сравнения. У меня получается ~0.4134
И еще не уверен на счет шага изменения икса. Думаю, если кто знает точно - поправит.

А устремился ли x при этом к 0? это значение получается для х ~0.63

[chargosman]

все равно большое спасибо)

[Sazary]

alex_fcsm Поэтому и сказал, что не уверен на счет шага ) Может, вы знаете как правильно?

[alex_fcsm]

Начинать надо не с 1 а хотя бы с 0.5

[Sazary]

Изменил немного. Вроде что-то получается.
При малых значениях e (например, 0.000001) нужно запастись терпением.

uses crt;
var
x,e,y1,y2: double;
iter : longint;
begin
clrscr;
x := 0.5;
write('Vvedite e: ');
readln(e);
y2 := ((sin(x)/cos(x))-sin(x))/(sin(x)*sin(x));
iter := 0;
repeat
 x := x - e/100;
 inc(iter);
 y1 := y2;
 y2 := ((sin(x)/cos(x))-sin(x))/(sin(x)*sin(x));
until (abs(y2-y1)<=e) and (abs(x)<=e);
writeln(y2:20:17);
writeln('x = ',x:10:7);
writeln('Iterations: ',iter);
readln;
end.

[chargosman]

спасибо)) щас буду разбираться))

[Somebody]

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

Изменил немного. Вроде что-то получается.
При малых значениях e (например, 0.000001) нужно запастись терпением.

Если синус не считать по 4 раза за итерацию, то можно "запастись не таким большим терпением".
... А вообще при e = 0.000001 это выполняется меньше секунды.

[Sazary]

Somebody

Если синус не считать по 4 раза за итерацию, то можно "запастись не таким большим терпением".

Ну это уже к вопросам оптимизации. Я просто предупредил.

А вообще при e = 0.000001 это выполняется меньше секунды.

У кого секунда, а у кого - десять. Не у всех же стоят супербыстрые компы.