Скачиваний:
5
Добавлен:
15.06.2014
Размер:
392 б
Скачать
unit biblio;

interface

function yf(x:extended):extended;
procedure sum(x,eps:extended; var s:extended);

implementation

function yf;
begin
result:=(1-sqr(x)/2)*cos(x)-(x/2)*sin(x);
end;

procedure sum;
var w:extended;
k: word;
begin
s:=1;
w:=1;
k:=0;
repeat
inc(k);
w:=-w*sqr(x)/(2*k*(2*k-1));
s:=s+w*(2*sqr(k)+1);
until abs(w)<eps;
end;

end.
Соседние файлы в папке 9.11
  • #
    15.06.2014823 б5biblio.dcu
  • #
    15.06.2014392 б5biblio.pas
  • #
    15.06.2014434 б6Project1.cfg
  • #
    15.06.20142.07 Кб5Project1.dof
  • #
    15.06.2014188 б5Project1.dpr
  • #
    15.06.2014876 б5Project1.res
  • #
    15.06.201410.07 Кб5Unit1.dcu