Неправильно работает код вычислений - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Код

Решение задачи: «Неправильно работает код вычислений»

textual
Листинг программы
const e = 1e-3;
var x, a, s: double;
    n: integer;
begin
  write('     x = ');
  readln(x);
  x := frac(x / 2 / pi) * 2 * pi;
  a := x;
  s := a;
  n := 0;
  while abs(a) >= e do
    begin
      inc(n);
      a := -a * x * x / 4 / n / (n + 0.5);
      s := s + a
    end;
  writeln('     S = ', s:0:3, ', precision: ', e:0:3);
  write('sin(x) = ', sin(x):0:15);
  readln
end.

Оцени полезность:

12   голосов , оценка 3.75 из 5
Похожие ответы