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

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Задача по Паскалю, не могу решить (http://www.tehnari.ru/f41/t93333/)

kawa	24.12.2013 18:59

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

Вложений: 1

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

Vladimir_S

24.12.2013 19:12

Цитата:

Сообщение от kawa (Сообщение 984353)

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

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

kawa	24.12.2013 19:14

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

Vladimir_S

24.12.2013 19:25

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

Код:

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	24.12.2013 19:30

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

Vladimir_S

24.12.2013 19:31

Цитата:

Сообщение от kawa (Сообщение 984366)

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

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

kawa	24.12.2013 19:33

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

Vladimir_S

24.12.2013 19:50

Цитата:

Сообщение от kawa (Сообщение 984368)

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

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

Часовой пояс GMT +4, время: 14:08.