Помогите, пожалуйста! Решить нужно без цикла FOR!
Дано натуральное число N и действительное число x. Вычислить сумму ряда:
sin x + sin 2x+sin 3x+…sin N*X
Протестировать программу для x=1.5 и N=3. Проверить правильность ответа на калькуляторе.
Дано натуральное число N и действительное число x. Вычислить сумму ряда:
sin x + sin 2x+sin 3x+…sin N*X
Протестировать программу для x=1.5 и N=3. Проверить правильность ответа на калькуляторе.
More Questions From This User See All
Answers & Comments
Ответ:
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