Циклы, sin x+sin2x+...+sinnx без * Опции

[Саня]

Ребята помогите плиз. Я вообще не врубаюсь как её надо делать? Над 5-й задачей парился 3 часа,
Но она всё-таки получилась.


Вычислить выражение sin x + sin 2x + sin 3x + … + sin nx без использования операции умножения.

[APAL]

Ребята помогите плиз. Я вообще не врубаюсь как её надо делать? Над 5-й задачей парился 3 часа,
Но она всё-таки получилась.
Вычислить выражение sin x + sin 2x + sin 3x + … + sin nx без использования операции умножения.

Тогда сделай функцию умножения свою.
Например:

Function Mulll(a : LongIntl b : real) : Real;
Var iii : LongInt;
     result : Real;
Begin
  Result:=0;
  For iii:=1 to a do Result:=Result+b;
End;

Сообщение отредактировано: volvo - 7.11.2006 21:37

[volvo]

без использования операции умножения.

А тебе тут операция умножения ни к чему:

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

Вот и все... Никаких умножений, только сложения.

[Саня]

Спасибо volvo! Очень помог