Program SINX;

Var X,Y,E,U,Z: real;

K: integer;

Begin

Readln(X,E);

K:=0;

Y:=0;

U:=X;

Z:=sqr(X);

While abs(U)>E do

Begin

Y:=Y+U;

K:=K+2;

U:= -U* Z/ (K*(K+1));

End;

Writeln(‘ SIN(X)=’, SIN(X), ‘ Y=’,Y);

End.

Для проверки правильности работы программы в оператор вывода включена печать значения синуса, вычисленного при помощи стандартной функции. Если полученное значение отличается от рассчитанного при помощи стандартной функции не более, чем на точность, можно считать, что программа работает правильно.

Рассмотрим пример вычисления значения квадратного корня из числа Х по итерационной формуле

Y_i+1 =(Y_i + X/ Y _i ) /2 с точностью Y_i+1 - Y_i <=e

Начальное приближение Y0=A является параметром.

Program SQRTX;

Var X: real; {аргумент }

EPS: real; {точность вычисления }

Y0: real; {предыдущее приближение}

Y1: real; {очередное приближение }

A: real; {начальное приближение }

Begin