Создание обучающей системы автоматизированного проектирования маломощных электромеханических следящих систем, страница 70

 tests[5][2].Answer:=1;

 tests[5][3].Variants[1] := 'обеспечения заданного значения динамической ошибки';

 tests[5][3].Variants[2] := 'обеспечения заданного значения показателя колебательности';

 tests[5][3].Variants[3] := 'обеспечения заданного значения статической ошибки';

 tests[5][3].Variants[4] := 'обеспечения заданного значения момента инерции';

 tests[5][3].Question:='Формирования ЛАХ в области средних частот подчинено требованию...';

 tests[5][3].Answer:=2;

 tests[5][4].Variants[1] := 'Формируется в зависимости от требуемого показателя колебательности';

 tests[5][4].Variants[2] := 'Обеспечивают наклон ЛАХ равный +60 дб/дек';

 tests[5][4].Variants[3] := 'Обеспечивают наклон ЛАХ равный +40 дб/дек';

 tests[5][4].Variants[4] := 'Обеспечивают одинаковый наклон с ЛАХ нескорректированной системы';

 tests[5][4].Question:='Как формируется вид желаемой ЛАХ в области высоких частот?';

tests[5][4].Answer:=4;

 tests[5][5].Variants[1] := 'Wку(s) = Wж(s)/Wр(s)';

 tests[5][5].Variants[2] := 'Wку(s) = Wж(s)-Wр(s)';

 tests[5][5].Variants[3] := 'Wку(s) = Wж(s)+Wр(s)';

 tests[5][5].Variants[4] := 'Wку(s) = Wж(s)*Wр(s)';

 tests[5][5].Question:='Из какого соотношения можно определить передаточную функцию корректирующего устройства?';

tests[5][5].Answer:=1;

 tests[5][6].Variants[1] := 'Ke = Kw/Tc';

 tests[5][6].Variants[2] := 'Ke = Kw*T1';

 tests[5][6].Variants[3] := 'Ke = Kw*Kw/Tc';

 tests[5][6].Variants[4] := 'Ke = Kw - Tc';

 tests[5][6].Question:='Как можно вычислить добротность по ускорению Ke?';

 tests[5][6].Answer:=1;

 tests[5][7].Variants[1] := 'При гармоническом воздействии';

 tests[5][7].Variants[2] := 'При постоянном воздействии';

 tests[5][7].Variants[3] :='При переменном воздействии';

 tests[5][7].Variants[4] := 'При случайном воздействии';

 tests[5][7].Question:='При каком режиме работы формируют желаемую ЛАХ в низкочастотной области?';

 tests[5][7].Answer:=1;

 tests[5][8].Variants[1] := 'Ошибка измерения';

tests[5][8].Variants[2] := 'Скоростная ошибка';

 tests[5][8].Variants[3] := 'Ошибка ускорения';

 tests[5][8].Variants[4] := 'Моментная ошибка';

 tests[5][8].Question:='Какая из перечисленных ошибок не является составляющий ошибки следящей системы при гармоническом воздействии на входе?';

tests[5][8].Answer:=1;

 {запасной

 tests[2][5].Variants[1] := 'КП = Mэкв/Mном';

 tests[2][5].Variants[2] := 'КП = Mмах/Мэкв';

 tests[2][5].Variants[3] := 'КП = Mмах/Mном';

 tests[2][5].Variants[4] := 'КП = (Mмах - Mном)/Ммах';

 tests[2][5].Question:='Выберите правильную формулу для нахождения коэффициента перегрузки двигателя?';

tests[2][5].Answer:=3;

 }

end;

end.

Б.4 Содержание файла Unit3.pas

unit Unit3;

interface

uses

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

  Dialogs, jpeg, ExtCtrls, ComCtrls;

type

  TForm3 = class(TForm)

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    Image2: TImage;

    TabSheet2: TTabSheet;

    Image1: TImage;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

end.

Б.5 Содержание файла Unit4.pas

unit Unit4;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls, Buttons, Math;

type

  TfmChoose = class(TForm)

    Panel1: TPanel;

    Panel2: TPanel;

    Panel3: TPanel;

    bbUpKw: TBitBtn;

    bbNoKw: TBitBtn;

    Bevel1: TBevel;

    mmCH1: TMemo;

    mmCH2: TMemo;

    Bevel2: TBevel;

    procedure FormShow(Sender: TObject);

    procedure bbNoKwClick(Sender: TObject);

    procedure bbUpKwClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  fmChoose: TfmChoose;

implementation

Uses Unit1;

{$R *.dfm}

procedure TfmChoose.bbUpKwClick(Sender: TObject);