Implementation

uses unit1;

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

Ymax:=StrToFloat(Edit1.Text);

Form1.Label11.Caption:= FloatToStr(Ymax);

Form5.Close;

end;

procedure TForm5.FormCreate(Sender: TObject);

begin

Edit1.Text:= FloatToStr(Ymax);

end;

end.

unit Unit7;

Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm7 = class(TForm)

BitBtn1: TBitBtn;

Label1: TLabel;

Edit1: TEdit;

procedure FormCreate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

Implementation

uses Unit1;

{$R *.dfm}

procedure TForm7.FormCreate(Sender: TObject);

begin

Edit1.Text:= FloatToStr(y);

end;

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

y:=StrToFloat(Edit1.Text);

Form1.Label13.Caption:= FloatToStr(y);

Form7.Close;

end;

end.

unit Unit8;

Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm8 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

BitBtn1: TBitBtn;

procedure FormCreate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

Implementation

uses Unit1;

{$R *.dfm}

procedure TForm8.FormCreate(Sender: TObject);

begin

Edit1.Text:= FloatToStr(z);

end;

procedure TForm8.BitBtn1Click(Sender: TObject);

begin

z:=StrToFloat(Edit1.Text);

Form1.Label14.Caption:= FloatToStr(z);

Form8.Close;

end;

end.

Результат выполнения программы:

Выводы: научились подключать инструментальную панель, изучили основные свойства и типы кнопок и использование их для управления вычислительным процессом.

Лабораторная работа №13 создание многостраничного документа

Цель лабораторной работы: Изучить компоненты TPageControl, TTabSheet.

Задание: : Разработать программу ввода данных, выбора метода расчета, расчета и представления результатов в табличной и графической формах на примере л.р. №8, реализуя отдельные вычислительные шаги на различных закладках многостраничного документа.

Листинг программы:

unit Unit1;

Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, TeEngine, Series, TeeProcs, Chart, ExtCtrls, ComCtrls;

type

TForm1 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Chart1: TChart;

Series1: TLineSeries;

Button1: TButton;

Image1: TImage;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Xmin,Xmax,Ymin,Ymax,y,z,h:extended;