1. Постановка задачи.
Вычислить Sin (x) с точностью 10-4. Начальные условия: k = 1, U0 = x, S0 = x, x = π/6
2. Математическая модель.
3. Блок-схема
4. Список идентификаторов.
Имя | Смысл | Тип |
x | x | Real |
u | Элемент ряда | Real |
s | Значение синуса | Real |
e | Точность | Real |
k | Счетчик | Integer |
n | Счетчик | Integer |
5. Код программы.
program z2_2;
{$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+1;
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('sin(x) = ', s:0:6);
readln();
end.
6. Результаты выполнения программы.