Вычислить значение суммы ряда sin0,5+cos1+sin1,5+...+cos3 аргументы вывести в табличном...

Question

Вычислить значение суммы ряда sin0,5+cos1+sin1,5+...+cos3 аргументы вывести в табличном виде

Comments

Аргументы и значения каждого слагаемого ряда ,( код программы нужно )

Answer 1

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('Аргумент     Функция');
  var s:=0.0;
  var x:=0.5;
  var f:real;
  var b:=true;
  while x<=3 do begin<br>    if b then f:=sin(x) else f:=cos(x);
    Writeln(x:6:1,f:14:6);
    b:=not b; x:=x+0.5; s:=s+f
    end;
  Writeln('  Сумма',s:13:6)
end.

Результат
Аргумент     Функция
   0.5      0.479426
   1.0      0.540302
   1.5      0.997495
   2.0     -0.416147
   2.5      0.598472
   3.0     -0.989992
  Сумма     1.209556