фомула Опции

[Izo]

Напишите как эта формула в паскале будет записана... а то у меня подозрение, что я не правильно ее записал.

Добавлено через 5 мин.
Если кому интересно , вот сама задача :

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

[Izo]

чет у меня не так получается... Я так понял должно получаться 0,3333 приблизительно. По книге делал. Скажите че не так.

uses crt;
function f(x:real):real;
begin
f:=(sin(x)/cos(x))-1/3*(sqr(sin(x)/cos(x))*(sin(x)/cos(x)))+1/5*(sqr(sqr(sin(x)/cos(x)))*(sin(x)/cos(x)))-1/3
end;
Var
a,b,c,x,e:real;
Begin
clrscr;
a:=0;
b:=0.08;
write('e=');
readln(e);
repeat
c:=(a+b)/2;
if (f(a)*f©)<0 then
b:=c
else
a:=c;
until (b-a)<=e;
x:=(a+b)/2;
writeln('x=',x:5);
readkey;
End.