Задача по Паскалю, не могу решить

[kawa]

Задача по Паскалю, не могу решить

Мне завтра сдавать а я так и не смог решить((( помогите пожалуйста))

 

[Vladimir_S]

Мне завтра сдавать а я так и не смог решить((( помогите пожалуйста))

Да тут уже столько аналогичных задач нарешали... Ладно, живите - сейчас нарисую.

 

[kawa]

Владимир, вы мой спаситель:tehnari_ru_942:

 

[Vladimir_S]

Вот. Делов-то на пять минут...

Const
 x=0.12;
 e=0.0001;
Var
 S,a:real;
 i:Integer;
Begin
 i:=0;
 a:=1;
 S:=a;
 Repeat
  Inc(i);
  a:=a/Cos(Pi/3*(i-1))*Cos(Pi/3*i)/i*x;
  S:=S+a;
 Until Abs(a)<e;
 Writeln('S = ',S:0:4,',   n = ',i);
 Readln
End.

 

[kawa]

спасибо)))) давайте я вам 50 руб на тел закину???)))

 

[Vladimir_S]

давайте я вам 50 руб на тел закину???)))

Будем считать, что я этого не видел.

 

[kawa]

ладно))) огромное спасибо)))

 

[Vladimir_S]

огромное спасибо)))

А вот это будет в самый раз!