Не пойму почему выскакивает overflow

[kenkenken]

unit Kyrsachello;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label8: TLabel;
    Label9: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Chart1: TChart;
    Series1: TLineSeries;
    Series2: TLineSeries;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

function f1(l1,b1,a,n1,n2:extended):extended;
   begin
        f1:=l1*n1-b1*a*n1*n2;  // ВОТ ТУТ ВЫСКАКИВАЕТ И ПИШЕТ " raised exception class EOverflow with message 'Floating point overflow' "
   end;

function f2(l2,b2,a,n1,n2:extended):extended;
   begin
        f2:=-l2*n2+b2*a*n1*n2;
   end;

procedure TForm2.Button1Click(Sender: TObject);
const h = 0.01;

var l1,l2,b1,b2,a,n1,n2,st:extended;
p:integer;
k1,k2,k3,k4,m1,m2,m3,m4:extended;
begin
a := StrToFloat(Edit1.Text);
l1 := StrToFloat(Edit2.Text);
l2 := StrToFloat(Edit3.Text);
b1 := StrToFloat(Edit4.Text);
b2 := StrToFloat(Edit5.Text);
n1 := StrToFloat(Edit6.Text);
n2 := StrToFloat(Edit7.Text);
st := -h;

for p := 1 to 500 do
 begin
    st := st + h;
    k1 := h * f1(l1,b1,a,n1,n2);
    m1 := h * f2(l2,b2,a,n1,n2);

    k2 := h * f1(l1,b1,a, n1 + k1/2, n2 + m1/2);
    m2 := h * f2(l2,b2,a, n1 + k1/2, n2 + m1/2);

    k3 := h * f1(l1,b1,a,n1 + k2/2, n2 + m2/2);
    m3 := h * f2(l2,b2,a,n1 + k2/2, n2 + m2/2);

    k4 := h * f1(l1,b1,a,n1 + k3,n2 + m3);
    m4 := h * f2(l2,b2,a,n1 + k3,n2 + m3);

    Chart1.Series[0].AddXY(st, n1, '', clTeeColor);
    Chart1.Series[1].AddXY(st, n2, '', clTeeColor);

    n1 := n1 + (1/6) * ( k1 + 2 * k2 + 2 * k3 + k4);
    n2 := n2 + (1/6) * ( m1 + 2 * m2 + 2 * m3 + m4);

    end;


end;

procedure TForm2.Button2Click(Sender: TObject);
begin
Form2.Close; // çàêðûòü ãëàâíîå îêíî ïðîãðàììû
end;

procedure TForm2.FormCreate(Sender: TObject);
begin

end;

end.

Прога на тему "математическая теория популяций"

[Anton911]

function f1(l1,b1,a,n1,n2:extended):extended ;
begin
f1:=l1*n1-b1*a*n1*n2; // ВОТ ТУТ ВЫСКАКИВАЕТ И ПИШЕТ " raised exception class EOverflow with message 'Floating point overflow' "
end;

function f2(l2,b2,a,n1,n2:extended):extended ;
begin
Res:=-l2*n2+b2*a*n1*n2;
end;

Странные функции) Попробуйте вот так

function f1(l1,b1,a,n1,n2:extended):extended ;
var Res:Extended;
begin
Res:=l1*n1-b1*a*n1*n2;
Result:=Res;
end;

function f2(l2,b2,a,n1,n2:extended):extended ;
var Res:Extended;
begin
Res:=-l2*n2+b2*a*n1*n2;
Result:=Res;
end;

[dolphin705]

Иногда в результате выполнения f1 получается слишком большое число

[kenkenken]

Не помогает. Теперь косяк выскакивает в res

[kenkenken]

Функции из книжки нашего декана. Леонов - Теория управления))

[=master=]

Исключительные ситуации еще не учили?

[chertovich]

Сообщение от =master=

Исключительные ситуации еще не учили?

Может он и учил, но хочет знать почему

[=master=]

chertovich если "почему", то тогда врядли, читать-то не обучен, это видно.