Решить нужно без цикла FOR! Дано натуральное - вопрос №10720576 от Łųçů 18.02.2020 12:12

Question

Информатика: Решить нужно без цикла FOR! Дано натуральное число N и действительное число x. Вычислить сумму ряда: sin x + sin 2x+sin 3x+…sin N*X Протестировать программу для x=1.5 и N=3. Проверить правильность ответа на калькуляторе.

Łųçů · Answer

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