[dudila]

Код:

unit Pr_04;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    LabeledEdit6: TLabeledEdit;
    LabeledEdit7: TLabeledEdit;
    LabeledEdit8: TLabeledEdit;
    Button1: TButton;
    procedure LabeledEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure LabeledEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure LabeledEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure LabeledEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
Var Key:char;
procedure Inp_Real1(Var Symb:Char);
  begin
    if not(Symb in['0'..'9',',','-',#8])
      then Symb:=#0;
        end;
function otvet(A,X,N:extended):extended;
  begin
    otvet:=A*exp(N*ln(X))+exp(N*ln(X))/(2*A-5);
      end;

procedure TForm1.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  Inp_Real1(key);
end;

procedure TForm1.LabeledEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  Inp_Real1(key);
end;

procedure TForm1.LabeledEdit3KeyPress(Sender: TObject; var Key: Char);
begin
   Inp_Real1(key);
end;


procedure TForm1.LabeledEdit4KeyPress(Sender: TObject; var Key: Char);
begin
   Inp_Real1(key);
end;

procedure TForm1.Button1Click(Sender: TObject);
 var
   A,X,N,dX:extended;
begin

if LabeledEdit1.text<>''
  then A:=StrTofloat(LabeledEdit1.text)
    else
      begin
        ShowMessage('Введите A');
          exit;
            end;
if LabeledEdit2.text<>''
  then X:=StrTofloat(LabeledEdit2.text)
    else
      begin
        ShowMessage('Введите X');
          exit;
            end;
if LabeledEdit3.text<>''
  then N:=StrTofloat(LabeledEdit3.text)
    else
      begin
        ShowMessage('Введите N');
          exit;
            end;
if LabeledEdit4.text<>''
  then dX:=StrTofloat(LabeledEdit4.text)
    else
      begin
        ShowMessage('Введите dX');
          exit;
            end;
if ((A-exp(N*ln(X)))>=0)and(((A-exp(N*ln(X+dX)))>=0)and(((A-exp(N*ln(X+2*dX)))>=0)and((A-exp(N*ln(X+3*dX)))>=0)) )
  then
    begin
    LabeledEdit5.text:=floattostr(otvet(A,X,N));
    LabeledEdit6.text:=floattostr(otvet(A,X,N));
    LabeledEdit7.text:=floattostr(otvet(A,X,N));
    LabeledEdit8.text:=floattostr(otvet(A,X,N));
      end
        else
           ShowMessage('Введены недопустимые значения');
            exit;

end;

end.

помогите нарисовать блог схему procedure TForm1.Button1Click

Заранее спасибо!