Implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

(*Установить значение текущей директории*)

InitDir:=GetCurrentDir;

(*Создать ini-файл Model в текущей директории*)

ConfigFile:=TIniFile.Create(InitDir+ '\Model.ini');

(*Прочитать значение переменной Variable*)

Variable1:=StrToFloat(ConfigFile.ReadString('Model','Variable1','1'));

Variable2:=StrToFloat(ConfigFile.ReadString('Model','Variable2','10'));

Variable3:=StrToFloat(ConfigFile.ReadString('Model','Variable3','0'));

Variable4:=StrToFloat(ConfigFile.ReadString('Model','Variable4','20'));

Variable5:=StrToFloat(ConfigFile.ReadString('Model','Variable5','0,4'));

Variable6:=StrToFloat(ConfigFile.ReadString('Model','Variable6','2'));

Variable7:=StrToFloat(ConfigFile.ReadString('Model','Variable7','0,8'));

(*Показать значения переменных Variable в окнах Label*)

Xmin:=Variable1;

Xmax:=Variable2;

Ymin:=Variable3;

Ymax:=Variable4;

H:=Variable5;

Y:=Variable6;

Z:=Variable7;

Label5.Caption:=FloatToStr(Xmin);

Label6.Caption:=FloatToStr(Xmax);

Label10.Caption:=FloatToStr(Ymin);

Label11.Caption:=FloatToStr(Ymax);

Label12.Caption:=FloatToStr(H);

Label13.Caption:=FloatToStr(Y);

Label14.Caption:=FloatToStr(Z);

BitBtn1Click(Sender);

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

var

x,b : extended;

begin

Series1.Clear;

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;

procedure TForm1.runClick(Sender: TObject);

begin

BitBtn1Click(Sender);

end;

procedure TForm1.BXminClick(Sender: TObject);

begin

Form2.Visible:=True;

end;

procedure TForm1.BXmaxClick(Sender: TObject);

begin

Form3.Visible:=True;

end;

procedure TForm1.BYminClick(Sender: TObject);

begin

Form4.Visible:=True;

end;

procedure TForm1.BYmaxClick(Sender: TObject);

begin

Form5.Visible:=True;

end;

procedure TForm1.BHClick(Sender: TObject);

begin

Form6.Visible:=True;

end;

rocedure TForm1.BYClick(Sender: TObject);

begin

Form7.Visible:=True;

end;

procedure TForm1.BZClick(Sender: TObject);

begin

Form8.Visible:=True;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

MessageBox(0,'Лаб. раб. №14 ','О программе',mb_OK);

end;

Procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

//Закрыть объекты TIniFile

ConfigFile.Free;

end;

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

Y: Integer);

begin

StatusBar1.SimpleText:='';

end;

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

Y: Integer);

begin

StatusBar1.SimpleText:='';

end;

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

Y: Integer);

begin

StatusBar1.SimpleText:='';

end;

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

Y: Integer);

begin

StatusBar1.SimpleText:='';

end;

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

Y: Integer);

begin

StatusBar1.SimpleText:='Построить график';

end;

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

Y: Integer);

begin

StatusBar1.SimpleText:='Построить график';

end;

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

Y: Integer);

begin

StatusBar1.SimpleText:='Х минимальное';

end;

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

Y: Integer);

begin

StatusBar1.SimpleText:='Х максимальное';

end;

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

Y: Integer);

begin

StatusBar1.SimpleText:='Y минимальное';

end;

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

Y: Integer);

begin

StatusBar1.SimpleText:='Y максимальное';

end;

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

Y: Integer);

begin

StatusBar1.SimpleText:='Шаг таблицы';

end;

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

Y: Integer);

begin

StatusBar1.SimpleText:='Ввод Y';

end;

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

Y: Integer);

begin

StatusBar1.SimpleText:='Ввод Z';

end;

end.

Текст остальных модулей:

unit Unit2;