[dudila]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116

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; <font color="Red">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;</font>   end;   end.

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

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

[Asinkrit]

Примерно так)
Вложение 1334