Циклы, 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 17:37