Предыдущая страница реферата | 6  7  8  9  10  11  12  13  14  15  16 | Следующая страница реферата

N4: TMenuItem;

N7: TMenuItem;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit2: TEdit; procedure Edit1KeyPress(Sender: TObject; var Key: Char ); procedure N4Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject);

private

{ Private declarations tion } public

{ Public declarations } end;

var

Form3: TForm3; i, j, A, k: Integer;

Y, X: array [1..30] of Extended; t, P, Dl: Real;

implementation

uses Unit1, Unit2, Unit6;

{$R *.dfm}

procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char); //
Integer begin if not(key in ['0'..'9']) then Key:=#0; end;

procedure TForm3.N4Click(Sender: TObject); begin

Close; end;

procedure TForm3.N7Click(Sender: TObject); begin

AboutBox.ShowModal; end;

function Ln(k: integer): Real; var Proizved1, Proizved2: Real; begin t:=StrToFloat(Form3.Edit1.Text); i:=1;

Proizved1:=1;

Рекомендуем скачать другие рефераты по теме: баллов рефераты, 7 ответов.



Предыдущая страница реферата | 6  7  8  9  10  11  12  13  14  15  16 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки