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

 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;

 Proizved2:=1;

 repeat

Рекомендуем скачать другие рефераты по теме: реферат по технологии, реферат эволюция.



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

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