object Form1: TForm1
  Left = 44
  Top = 129
  BorderStyle = bsSingle
  Caption = 'Main'
  ClientHeight = 535
  ClientWidth = 676
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  HelpFile = 'tests\outdata.txt'
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 676
    Height = 535
    ActivePage = TabSheet3
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = ' Исходные данные '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      object Label1: TLabel
        Left = 0
        Top = 72
        Width = 78
        Height = 13
        Caption = 'Ограничений'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label2: TLabel
        Left = 0
        Top = 40
        Width = 76
        Height = 13
        Caption = 'Переменных'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label3: TLabel
        Left = 144
        Top = 8
        Width = 148
        Height = 13
        Caption = 'Ограничения на переменные'
      end
      object Label4: TLabel
        Left = 192
        Top = 192
        Width = 56
        Height = 24
        Caption = 'b>=Ax'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 8
        Top = 104
        Width = 153
        Height = 20
        Caption = 'Целевая функция'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label6: TLabel
        Left = 296
        Top = 56
        Width = 123
        Height = 13
        Caption = 'Метод которым решаем'
      end
      object Label7: TLabel
        Left = 8
        Top = 192
        Width = 179
        Height = 20
        Caption = 'Ограничения в виде:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label8: TLabel
        Left = 536
        Top = 56
        Width = 121
        Height = 13
        Caption = 'Выводить все итерации'
      end
      object Label9: TLabel
        Left = 536
        Top = 80
        Width = 88
        Height = 13
        Caption = 'Выводить в файл'
      end
      object CFun: TStringGrid
        Left = 8
        Top = 128
        Width = 569
        Height = 65
        ColCount = 3
        DefaultColWidth = 50
        DefaultRowHeight = 20
        RowCount = 2
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAlwaysShowEditor]
        ScrollBars = ssHorizontal
        TabOrder = 0
        OnSetEditText = CFunSetEditText
        ColWidths = (
          50
          50
          50)
      end
      object LFun: TStringGrid
        Left = 8
        Top = 216
        Width = 657
        Height = 289
        ColCount = 4
        DefaultColWidth = 50
        DefaultRowHeight = 20
        RowCount = 3
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAlwaysShowEditor]
        TabOrder = 1
        OnSetEditText = LFunSetEditText
      end
      object Var: TEdit
        Left = 80
        Top = 40
        Width = 57
        Height = 21
        Hint = 'Число переменных'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        Text = '2'
        OnChange = VarChange
      end
      object Lim: TEdit
        Left = 80
        Top = 72
        Width = 57
        Height = 21
        Hint = 'Число ограничений'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        Text = '2'
        OnChange = LimChange
      end
      object CheckVar: TCheckListBox
        Left = 152
        Top = 24
        Width = 137
        Height = 81
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        Items.Strings = (
          'x1'
          'x2'
          'x3'
          'x4')
        ParentFont = False
        TabOrder = 4
      end
      object go: TBitBtn
        Left = 560
        Top = 8
        Width = 97
        Height = 33
        Hint = 'Решить задачу выбраным методом'
        Caption = 'Решить'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        OnClick = goClick
      end
      object open: TBitBtn
        Left = 320
        Top = 8
        Width = 105
        Height = 33
        Hint = 'Загрузить из файла'
        Caption = 'Открыть'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        OnClick = openClick
      end
      object save: TBitBtn
        Left = 432
        Top = 8
        Width = 105
        Height = 33
        Hint = 'Сохранить данные'
        Caption = 'Сохранить'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
        OnClick = saveClick
      end
      object mmax: TButton
        Left = 584
        Top = 128
        Width = 73
        Height = 41
        Hint = 'Максимизировать или минимизировать задачу?'
        Caption = 'max>'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 8
        OnClick = mmaxClick
      end
      object Metod: TComboBox
        Left = 296
        Top = 72
        Width = 193
        Height = 21
        Hint = 'Выберите метод решения'
        ItemHeight = 13
        ParentShowHint = False
        ShowHint = True
        TabOrder = 9
        Text = 'Первый алгоритм Гомори'
        OnChange = MetodChange
        Items.Strings = (
          'Первый алгоритм Гомори'
          'Второй алгоритм Гомори'
          'Третий алгоритм Гомори'
          'Алгоритм Данцига'
          'Алгоритм Дальтона и Ллевелина')
      end
      object DLVar: TMemo
        Left = 152
        Top = 24
        Width = 137
        Height = 81
        Hint = 'Ограничения на переменные для алгоритма Дальтона и Ллевелина'
        ParentShowHint = False
        ScrollBars = ssBoth
        ShowHint = True
        TabOrder = 10
      end
      object CIter: TCheckBox
        Left = 512
        Top = 56
        Width = 17
        Height = 17
        Checked = True
        State = cbChecked
        TabOrder = 11
      end
      object Out: TCheckBox
        Left = 512
        Top = 80
        Width = 17
        Height = 17
        Checked = True
        State = cbChecked
        TabOrder = 12
      end
    end
    object TabSheet2: TTabSheet
      Caption = '    Результат    '
      ImageIndex = 1
      object Res: TMemo
        Left = 0
        Top = 0
        Width = 668
        Height = 507
        Align = alClient
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        MaxLength = 2147483000
        ParentFont = False
        ReadOnly = True
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object TabSheet3: TTabSheet
      Caption = '     Помощь     '
      ImageIndex = 2
      object Memo1: TMemo
        Left = 96
        Top = 16
        Width = 489
        Height = 465
        BorderStyle = bsNone
        Color = clMenu
        Lines.Strings = (
          'Для решения задачи с помошью данного приложения необходимо:'
          ''
          
            '     1)   Выставить нужное колличество переменных и ограничений ' +
            'в полях'
          '"Переменных" и "Ограничений".'
          ''
          
            '     2)   Ввести коэффициенты при переменных в целевой функции (' +
            'переменные '
          'указаны сверху) '
          
            'и установить "max>"  или "min>" для максимизации или минимизации' +
            ' функции.'
          ''
          
            '    3)   Ввести коэффициенты при переменных для ограничений в ви' +
            'де: '
          
            'b>=Ax ,  где x - вектор переменных, b - свободный  коэффициент ,' +
            '   A - матрица  '
          'коэффициентов;  '
          
            'например для ограничения  " 6*x1 + 2*x2 + 45*x3 <=23" вводим:   ' +
            ' "  23   6   2   '
          '45  ".   Если   среди '
          'коэффициентов есть нулевые, то их можно просто не вводить'
          ''
          '    4) Выбрать метод для решения. '
          
            'Если  выбран  "Второй алгоритм Гомори"  ,   то  нужно в списке  ' +
            ' "Ограничения '
          'на переменные" '
          'отметить те переменные, на которые надо наложить ограничение '
          'целочисленности.'
          
            'Если  выбран   " Алгоритм Дальтона и Ллевелина "  ,  то  в  поле' +
            '  "Ограничения '
          'на переменные"  '
          'нужно ввести данные следующего вида: '
          '" [название переменной] : [число] , ... , [число]'
          
            '   .............................................................' +
            '..............'
          '   [название переменной] : [число] , ... , [число] . " '
          'например: '
          '"  x1: 1,2,3,4,5,6,10,15'
          '    x2:1,7,9. "'
          
            'причем числа должны быть целого типа и введены в порядке возраст' +
            'ания'
          ''
          '    5) Нажать кнопку "Решить".')
        TabOrder = 1
      end
      object Er: TMemo
        Left = 616
        Top = 8
        Width = 49
        Height = 97
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
        Visible = False
      end
    end
  end
  object OpenDialog: TOpenDialog
    FileName = '*.txt'
    Filter = 'Test file|*.txt|All files|*.*'
    InitialDir = '.\tests'
    Left = 528
  end
  object SaveDialog: TSaveDialog
    FileName = '*.txt'
    Filter = 'Test file|*.txt|All files|*.*'
    InitialDir = '.\tests'
    Left = 568
  end
end
