Алгоритм накопления суммы в Паскале

Дана последовательность: \(\sin 2x,\sin 4x,\sin 6x, \ldots ,\sin 16x\), где \(x\) - заданное вещественное число. Вычислить сумму членов последовательности, которые по модулю больше 0.3.

Решение.

Var a, x, S: real;
n: integer;
Begin
writeln(‘Введите число x’);
read (x);
S:=0;
for n := 1 to 8 do
begin
a := sin(2*n*x);
if abs(a) > 0.3 then S := S + a;
end;
writeln(‘S=’, S:6:2);
End.