Procedure FGAUSS(X:real; A:array of real;
var Y:real;var DYDA:array of real; NA:integer);
var
I,II:integer; ARG,EX,FAC:real;
begin
Y:=0;
For II:=1 To (NA DIV 3) do
Procedure FLEG(X:real; var PL:array of real; NL:integer);
var
J:integer; TWOX,F1,F2,D:real;
begin
PL[1]:=1;
PL[2]:=X;
If NL > 2 Then
begin
TWOX:=2 * X;
F2
implementation
//PROGRAM D3R8
//Driver for routine QGAUS
uses
unit2;
{$R *.DFM}
Function FUNC(X:real):real;
begin
FUNC:= X * Exp(-X);
end;
procedure TForm1.Button1Click(Sender: T
