+) / / шапка (j == n - 1) tab=tab + «X» + AnsiString (j + 1); tab=tab + «X» + AnsiString (j + 1) + «;»; (int i=0; i
{(i == m) tab=tab + « nF ';»; tab=tab + « nX» + Baz [i] + «;»; (int j=0; j
} tab;
* /
} CSM :: GetTacker ()
{tab; (int i=0; i
{+=AnsiString («X») + baz [i] + « =»; +=T [i] [0]. Get_a () +«- (»+ T [i] [1]. Get_a () +« * X1 »; (int j=2; j
{is_b=false; (int d=0; d
{_b=true;;
} (! is_b) +=T [i] [j]. get_s () + «* X» + AnsiString (j);
} +=« ) N" ;
} +=« nЦелевая функція:»; +=« nF '=» + T [m] [0]. Get_a () + «- (»+ T [m] [1]. Get_a () +« * X1 »; (int j=2; j
{is_b=false; (int d=0; d
{_b=true;;
} (! is_b) +=T [m] [j]. get_s () + «* X» + AnsiString (j);
} +=« ) N" ; tab;
} CSM :: Get_Rap ()
{Rap; (rez == 0)
{(T [m] [0] == 0)=«Рішення оптімальне. Штучний базис отриманий. Далі підставляємо Нові бвазісние пременни в цільову функцію ».; Rap =« Рішення оптімальне, альо цільова функція НЕ дорівнює 0. Штучного базису немає ».;
} if (rez == 1)
{(a_j == 0) Rap=AnsiString («Рішення НЕ існує. Цільова функція Необмежена, оскількі Вільний член при X») + baz [a_i] + « негативний, а Інші елєменти рядки НЕ негатівні ».; if (a_i == m) Rap=AnsiString (« Рішення НЕ існує. Цільова функція Необмежена, оскількі елемент в рядку цільової Функції при X ») + a_j +« негативний, а Інші елєменти стовпця НЕ Позитивні ».;
} if (rez == 2)
{= AnsiString («Рішення Триває. З базису виводу X») + baz [a_i] + « и вводитися X » + A_j + «».;
} Rap;
}
}
# # endif / / CSM_H
/ / / / цею файл візначає клас дробу
# # include
# # include
# # ifndef CD_H
# # define CD_H
# # define PR_COUNT 5000mas [PR_COUNT]={0}; Generate_Prost (); CD / / Клас дріб
{::: CD (int=0, int=1); Set (int hi, int lo); Set (double d); Set (AnsiString d); SetInv (AnsiString d); hi () {return m_hi; };// Чісельнікlo () {return m_lo; };// Знаменнікget_d ();// Повертає Десяткова значенняget_a ();// Повертає рядок звічайній дробуget_s ();// Повертає рядок звічайній дробуget_dr (); get_cel (); get_abs (); operator * (CD d); operator * (int num); operator / (CD d); operator / (int num); operator + (CD d) ; operator + (int num); operator - (CD d); operator - (int num); operator=(CD d); operator=(int num); operator == (CD d); operator == (int num) ; operator!=(CD d); operator!=(int num);: m_hi;// Чісельнікm_lo;// Знаменнікm_d; overflow; optim (); bool gen;
}; CD :: gen=false; :: CD (int hi, int lo)
