Question

найти сумму заданной погрешности 1+sinx+ sin2x/2+sin3x/3+sin4x/4 .... на языке паскаль

Answer 1

var
    x, s: real;
    i, n: integer;

begin
    readln(x, n);
    s := 1;
    for i := 1 to n do
        s := s + sin(i * x) / i;
    writeln(s);
end.

//или
//PascalABC.NET 3.1 сборка 1219
begin
    var x := ReadReal('x =');
    Println(
        Range(1, ReadInteger('n =')).
        Aggregate(1.0, (s, r)-> s + sin(r * x) / r)
    );
end.

Answer 2

program SumOfSineSeries; var x, epsilon, term, sum: real; n: integer; begin // Вводим значение угла и погрешности write('Введите значение угла x: '); readln(x); write('Введите погрешность epsilon: '); readln(epsilon); // Инициализируем переменные term := x; sum := term; n := 1; // Вычисляем сумму ряда синусов while abs(term) > epsilon do begin n := n + 1; term := power(-1, n-1) * power(sin(n*x), n) / n; sum := sum + term; end; // Выводим результат writeln('Сумма заданной погрешности: ', sum:0:6); end.