Курсовая работа: Дослідження чисельних методів інтегрування

Алгоритм методу Чебишева

Додаток Б

Блок-схема програми

Додаток В

Лістинг пргорами

{$N+,E+}

program integral;

uses CRT, graph;

const h1=0.1; h2=0.2; h5=0.5;

var

a, b, c, d, sharp: extended;

ch: char;

res: array [1..2,1..3] of extended;

delta: array [1..2,1..3] of extended;

i, j: integer;

label

lbl1;

{------------------------------------------------}

function f (x: extended): extended;

begin

f:=c*x/2-d/(exp(x)+exp(-x)); {sec(d*x)=d/(exp(x)+exp(-x))}

end;

{------------------------------------------------}

function Simpson (a, b, h: extended): extended;

var

I, x: extended;

j: integer;

begin

I:=0; x:=a+h; j:=0;