СОЗДАНИЕ МНОГОСТРАНИЧНОГО ДОКУМЕНТА

Цель лабораторной работы: Изучить компоненты 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;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

Xmin := 1;

Xmax := 10;

Ymin := 0;

Ymax := 20;

y := 2;

z := 0.8;

h := 0.4;

Edit1.Text := FloatToStr(Xmin);

Edit2.Text := FloatToStr(Xmax);

Edit3.Text := FloatToStr(Ymin);

Edit4.Text := FloatToStr(Ymax);

Edit5.Text := FloatToStr(h);

Edit6.Text := FloatToStr(y);

Edit7.Text := FloatToStr(z);

Button1Click(Sender);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

x,b : extended;

begin

Series1.Clear;

Xmin := StrToFloat(Edit1.Text);

Xmax := StrToFloat(Edit2.Text);

Ymin := StrToFloat(Edit3.Text);

Ymax := StrToFloat(Edit4.Text);

h := StrToFloat(Edit5.Text);

y := StrToFloat(Edit6.Text);

z := StrToFloat(Edit7.Text);

x := Xmin;

Chart1.BottomAxis.Automatic := False;

Chart1.BottomAxis.Maximum := Xmax;

Chart1.BottomAxis.Minimum := Xmin;

Chart1.LeftAxis.Automatic := False;

Chart1.LeftAxis.Minimum := Ymin;

Chart1.LeftAxis.Maximum := Ymax;

Repeat

b := Exp(-x*ln(2))* Sqrt((x+Exp(1/4*ln(Abs(y)))))* Exp(1/3*ln(Exp((x-1/sin(z)))));

Series1.AddXY(x,b,'',clTeeColor);

x := x+h;

Until (x>Xmax);

end;

end.

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