циклы (pascal) - Помощь студентам

Jaron · 19.12.2011, 20:34

помогите с задачей
Дано целое положительное n, вещественное x. Найти sin x+sin^2 x+...+sin^n x

Mad_Cat · 19.12.2011, 20:37

Код:

s:=0;
p:=1;
for i:=1 to n do begin
p:=p*sin(x);
s:=s+p;
end;

Jaron · 19.12.2011, 20:43

благодарю,

19.12.2011, 20:34	#1
Jaron Регистрация: 06.10.2011 Сообщений: 3	циклы (pascal) помогите с задачей Дано целое положительное n, вещественное x. Найти sin x+sin^2 x+...+sin^n x

19.12.2011, 20:37	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `s:=0; p:=1; for i:=1 to n do begin p:=p*sin(x); s:=s+p; end;` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

19.12.2011, 20:43	#3
Jaron Регистрация: 06.10.2011 Сообщений: 3	благодарю,