Дано натуральное число 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. Проверить правильность ответа на калькуляторе.
Гость
Ответ(ы) на вопрос:
Гостьvar
n, i: integer;
x, s: real;
begin
repeat
writeln('Введите количество слагаемых:');
readln(n)
until n>0;
writeln('Введите ''x'':');
readln(x);
for i := 1 to n do
s := s + sin(i * x);
writeln(s);
readln
end.
Не нашли ответ?
Похожие вопросы