Неправильно работает код вычислений - 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.