Курсовая работа: Інтеграли зі змінними границями

Функція integralTrapeciay(aTrap,bTrap) тип real

Функція FullIntegral(aFull,bFull:real) тип real

так ні

так ні

так ні

так ні

С Лiстiнг програми

unit funct;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, ExtCtrls, Math;

const

a = 0;

b = 6;

type

one_array = array of real;

Parametrs = record

nSimp, nTrap :integer;

end;

function y(x:real):real;

function first(x1,x2:real):real;

procedure setN(nG, nT, nS :integer);

procedure createGrid;

procedure createGridOfInt;

function integralSimpsona(aSim,bSim:real):real;

function integralTrapeciay(aTrap,bTrap:real):real;

function FullIntegral(aFull,bFull:real):real;

var

Xgrid:one_array; GridOfInt:one_array; nGrid, nSim, nTrap :integer;