Решить нужно без цикла FOR!

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

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

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

aarianna aarianna    2   27.02.2020 23:12    2

Ответы
PooКякя PooКякя  11.10.2020 15:02

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика