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

kawa · 24.12.2013, 18:59

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

Vladimir_S · 24.12.2013, 19:12

Цитата:

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

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

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

kawa · 24.12.2013, 19:14

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

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

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

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

kawa · 24.12.2013, 19:33

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

Vladimir_S · 24.12.2013, 19:50

Цитата:

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

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

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

24.12.2013, 18:59	#1 (permalink)
kawa Новичок Регистрация: 24.12.2013 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задача по Паскалю, не могу решить Мне завтра сдавать а я так и не смог решить((( помогите пожалуйста)) Миниатюры

24.12.2013, 19:25	#4 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Вот. Делов-то на пять минут... Код: 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/3i)/ix; S:=S+a; Until Abs(a)<e; Writeln('S = ',S:0:4,', n = ',i); Readln End.

24.12.2013, 18:59
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	В этом деле главное не торопится, а по лучше ознакомится с проблемой Задача по Паскалю Не могу решить

24.12.2013, 19:14	#3 (permalink)
kawa Новичок Регистрация: 24.12.2013 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Владимир, вы мой спаситель

24.12.2013, 19:30	#5 (permalink)
kawa Новичок Регистрация: 24.12.2013 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо)))) давайте я вам 50 руб на тел закину???)))

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

24.12.2013, 19:33	#7 (permalink)
kawa Новичок Регистрация: 24.12.2013 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	ладно))) огромное спасибо)))