Question

Помогите, пожалуйста! Решить нужно без цикла FOR!

Дано натуральное число N и действительное число x. Вычислить сумму ряда:

sin x + sin 2x+sin 3x+…sin N*X

Протестировать программу для x=1.5 и N=3. Проверить правильность ответа на калькуляторе.

Answer 1

Ответ:

program sinus;

var sum,x,i,xn:real; n:integer;

begin

read(x,n);

xn:=x;

sum:=0;

i:=0;

while i<n do begin

sum:=sum+sin(x);

i:=i+1;

x:=x+xn;

end;

writeln ('sum=',sum:2:4);  

end.

Объяснение:

язык pascal abc