end;

var

AboutBox1: TAboutBox1;

implementation

{$R *.DFM}

end.

Модуль 9:

unit Unit9;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;

type

TAboutBox2 = class(TForm)

Panel1: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Version: TLabel;

Copyright: TLabel;

Comments: TLabel;

OKButton: TButton;

Label1: TLabel;

Label2: TLabel;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox2: TAboutBox2;

implementation

{$R *.DFM}

procedure TAboutBox2.OKButtonClick(Sender: TObject);

begin

close;

end;

end.

Модуль 10:

unit Unit10;

interface

uses

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

StdCtrls, Buttons, Spin;

type

TForm8 = class(TForm)

SpinEdit1: TSpinEdit;

Label24: TLabel;

SpinEdit3: TSpinEdit;

Label16: TLabel;

Label17: TLabel;

SpinEdit4: TSpinEdit;

SpinEdit2: TSpinEdit;

Label18: TLabel;

Label26: TLabel;

SpinEdit6: TSpinEdit;

Label27: TLabel;

Label23: TLabel;

Label19: TLabel;

Label20: TLabel;

SpinEdit5: TSpinEdit;

SpinEdit10: TSpinEdit;

Label25: TLabel;

SpinEdit7: TSpinEdit;

Label21: TLabel;

SpinEdit8: TSpinEdit;

SpinEdit9: TSpinEdit;

Label22: TLabel;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure SpinEdit1Change(Sender: TObject);

procedure SpinEdit3Change(Sender: TObject);

procedure SpinEdit4Change(Sender: TObject);

procedure SpinEdit2Change(Sender: TObject);

procedure SpinEdit6Change(Sender: TObject);

procedure SpinEdit5Change(Sender: TObject);

procedure SpinEdit7Change(Sender: TObject);

procedure SpinEdit10Change(Sender: TObject);

procedure SpinEdit8Change(Sender: TObject);

procedure SpinEdit9Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm8.BitBtn1Click(Sender: TObject);

begin

close;

end;

procedure TForm8.SpinEdit1Change(Sender: TObject);

begin

Form1.SpinEdit1.Value:=SpinEdit1.Value;

end;

procedure TForm8.SpinEdit3Change(Sender: TObject);

begin

Form1.SpinEdit3.Value:=SpinEdit3.Value;

end;

procedure TForm8.SpinEdit4Change(Sender: TObject);

begin

Form1.SpinEdit4.Value:=SpinEdit4.Value;

end;

procedure TForm8.SpinEdit2Change(Sender: TObject);

begin

Form1.SpinEdit2.Value:=SpinEdit2.Value;

end;

procedure TForm8.SpinEdit6Change(Sender: TObject);

begin

Form1.SpinEdit6.Value:=SpinEdit6.Value;

end;

procedure TForm8.SpinEdit5Change(Sender: TObject);

begin

Form1.SpinEdit5.Value:=SpinEdit5.Value;

end;

procedure TForm8.SpinEdit7Change(Sender: TObject);

begin

Form1.SpinEdit7.Value:=SpinEdit7.Value;

end;

procedure TForm8.SpinEdit10Change(Sender: TObject);

begin

Form1.SpinEdit10.Value:=SpinEdit10.Value;

end;

procedure TForm8.SpinEdit8Change(Sender: TObject);

begin

Form1.SpinEdit8.Value:=SpinEdit8.Value;

end;

procedure TForm8.SpinEdit9Change(Sender: TObject);

begin

Form1.SpinEdit9.Value:=SpinEdit9.Value;

end;

end.

Модуль 11:

unit Unit11;

interface

uses

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

StdCtrls, Buttons;

type

TForm11 = class(TForm)

Label1: TLabel;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm11.BitBtn1Click(Sender: TObject);

begin

close;

Form1.Timer1.Enabled:=false;

end;

end.

Модуль 12:

unit Unit12;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type

TForm12 = class(TForm)

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form12: TForm12;

implementation

{$R *.DFM}

end.

Приложение Б

Экранные формы

Окно начала моделирования:

Рис. Б.1

Рис. Б.2

Окно вывода параметров:

Рис. Б.3

Окно окончания моделирования:

Рис. Б.4

Приложение В

Блок-схема алгоритма

Рис. В.1

Рис. В.1

Приложение Г

Q-схема

Рис. Г.1