Задача 2.3. Вычислить Cos(x) с точностью 10-4

1. Постановка задачи.

Вычислить Cos( x) с точностью 10-4. Начальные условия: k = 1, U0 = 1, S0 = 1, x = π/6

2. Математическая модель.

3. Блок-схема

4. Список идентификаторов.

Имя	Смысл	Тип
x	x	Real
u	Элемент ряда	Real
s	Значение синуса	Real
e	Точность	Real
k	Счетчик	Integer
n	Счетчик	Integer

5. Код программы.

program z2_3;

{$mode objfpc}{$H+}

uses

{$IFDEF UNIX}{$IFDEF UseCThreads}

cthreads,

{$ENDIF}{$ENDIF}

Classes, Math;

var x, u, s, e:real;

k, n:integer;

function f(x:integer):integer;

var i, r:integer;

begin

r:=1;

for i:= 1 to x do

r:=r*i;

result:= r;

end;

begin

writeln ('x, U, S, k, eps');

readln (x, u, s, k, e);

while abs(U)>e do

begin

n:=2*k;

if (k div 2 <> 0) then

u:=(-1)*(exp(n*ln(x))/f(n))

else

u:=(exp(n*ln(x))/f(n));

s:=s+u;

inc(k);

end;

writeln('cos(x) = ', s:0:6);

readln();

end..

6. Результаты выполнения программы.