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

Jaron · 19.12.2011, 22:29

помогите решить задачу
дано n и x
найти sin x+sin sin x^2+...+sin sin...sin x^n

Mad_Cat · 19.12.2011, 22:33

Код:

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

viron · 19.12.2011, 22:37

Код:

var
  n: Integer;
  x: Real;
  i: Integer;
  rez: Real;
begin
  rez:= 0.0;
  ...

  for i:= 1 to n do
    rez:= rez + Sin(Power(x, i));

Ошибся.... Неправильно решил

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

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

19.12.2011, 22:37	#3
viron Форумчанин Регистрация: 02.12.2011 Сообщений: 110	Код: `var n: Integer; x: Real; i: Integer; rez: Real; begin rez:= 0.0; ... for i:= 1 to n do rez:= rez + Sin(Power(x, i));` Ошибся.... Неправильно решил