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.

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

Выводы: изучили компоненты TPageControl, TTabSheet.

Лабораторная работа №14 комплексная лабораторная работа

Цель работы: Показать умение создания современного приложения на Delphi

Постановка задачи: Разработать программу, поддерживающую различные управления вычислительным процессом с помощью TPageControl, TtabSheet, TСhar, Стандартные диалоговые компоненты, ТPopupMenu, TMainMenu, TtoolBar и др. на примере л.р. №8.

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

Текст главного модуля:

unit Unit1;

Interface

uses

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

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

ToolWin, ImgList, Buttons, Menus, IniFiles;

type

TForm1 = class(TForm)

ImageList1: TImageList;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label5: TLabel;

Label6: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

TabSheet2: TTabSheet;

ToolBar1: TToolBar;

run: TToolButton;

BXmin: TToolButton;

BXmax: TToolButton;

BYmin: TToolButton;

BYmax: TToolButton;

BH: TToolButton;

BY: TToolButton;

BZ: TToolButton;

Chart1: TChart;

Series1: TLineSeries;

Image1: TImage;

BitBtn1: TBitBtn;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

StatusBar1: TStatusBar;

procedure FormCreate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure runClick(Sender: TObject);

procedure BXminClick(Sender: TObject);

procedure BXmaxClick(Sender: TObject);

procedure BYminClick(Sender: TObject);

procedure BYmaxClick(Sender: TObject);

procedure BHClick(Sender: TObject);

procedure BYClick(Sender: TObject);

procedure BZClick(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action:TCloseAction);

procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure TabSheet1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure ToolBar1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure runMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure BXminMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure BXmaxMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure BYminMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure BYmaxMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure BHMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure BYMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure BZMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

ConfigFile : TIniFile;

Variable1 : extended;

Variable2 : extended;

Variable3 : extended;

Variable4 : extended;

Variable5 : extended;

Variable6 : extended;

Variable7 : extended;

InitDir : string;

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