Паскаль

[Маринуся]

Помагите плиз мне в решении задачки!!!я знаю она лёгкая но я ваще тупая,а двойку не хочу((( нужно вычислить значение выражения sin x +sin x(квадрат)+...+sin x (в спепени n)

[Хыиуду]

Код: Выделить всё

function izvrat(x:real):real;
var i:integer; r:real;
begin
  r:=sin(x);
  for i:=2 to N do
     r:=(r+1)*sin(x)
  izvrat:=r;
end;

[somewhere]

Хыиуду, есть большая разница между sin(x)^n и sin(x^n)

[Хыиуду]

По условию задачи было неочевидно, что имеется в виду. Тогда так

Код: Выделить всё

function izvrat(x:real):real;
var i:integer; r,s:real;
begin
  r:=x;
  s:=sin(x);
  for i:=2 to N do
  begin
     r:=r*x;
     s:=s+sin(r);
  end;
izvrat:=s;
end;

[/code]