then ( Заповніть таблицю значень ) ;;; IsEmpty2 (Sender) then ( Не введене Жодний можливіть розв`язку в таблицю! );
exit ;; Click (Sender); SLO_1.Check (StringGrid2) then ( Даній розв`язок задовольняє сістемі лінійніх обмежень ) ( Даній розв`язок HE задовольняє сістемі лінійніх обмежень ) ; SLO_1 lt; gt; nil then_1.Free; _1:=nil ;;;
//----------------- Button Open ----------------------------- TForm1.Button5Click (Sender: TObject) ;: TextFile; _FName, Str, temp_Str: string; _Lo, kilkist_zminnuh, i, j, k: Integer; OpenDialog1.Execute thenClick(Sender);_FName:=Opendialog1.FileName;(F,temp_FName);(F);(F,kilkist_Lo);(F,kilkist_zminnuh);.Value:=kilkist_Lo;.Value:=kilkist_zminnuh;
//----------------- i:=1 to kilkist_Lo do (F, Str);:=1; _Str:= raquo ;; j:=1 to length (Str) doStr [j]= then.Cells [k - 1, i]:=temp_Str; _Str:= raquo ;;:=k + 1; _Str:=temp_Str + Str [j] ;;
//----------------- i:=1 to kilkist_Lo do (F, Str) ;. Cells [kilkist_zminnuh, i]:=Str ;;
//----------------- i:=1 to kilkist_Lo do (F, Str) ;. Cells [kilkist_zminnuh + 1, i]: =Str ;;
//----------------- (F) ;;;
//----------------- Button Save ----------------------------- TForm1.Button6Click (Sender: TObject) ;: TextFile; _FName: string;: byte; IsEmpty1 (Sender) then ( Заповніть таблицю значень ) ;; Click (Sender); SaveDialog1.Execute then_FName:=Savedialog1.FileName;(F,temp_FName);(F);(F,IntToStr(SpinEdit2.Value));(F,IntToStr(SpinEdit1.Value));i:=0 to high (SLO_1.Get_SLO) do (F, SLO_1.Get_SLO [i] .Get_koef_String); i:=0 to high (SLO_1.Get_SLO) do (F, SLO_1.Get_SLO [i] .Znak); i:=0 to high (SLO_1.Get_SLO) do (F, IntToStr (SLO_1.Get_SLO [i] .Lim)); (F) ;;;;
//----------------- Button Sort Lo -------------------------- TForm1.Button7Click (Sender: TObject) ;: byte; Click (Sender); IsEmpty1 (Sender) then; .Lines.Add ( ); _ 1.Sort_SLO; i:=0 to high (SLO_1.Into_text) do.Lines.Add (SLO_1.Into_text [i]); SLO_1 lt; gt; nil then_1.Free; _1:=nil ;;;.
Текст ОСНОВНОЇ програми
Main_Program;, _ Form1 in Form1 Class_Form1.pas {Form1}, _ Lin_Obmezh in Class_Lin_Obmezh Class_Lin_Obmezh.pas raquo ;;
{$ R * .res} .Initialize; .CreateForm (TForm1, Form1) ;. Run;.
приклада роботи програми
Рис. 2
На рис. 2 створюємо Сло з трьома змінними та трьома нерівностямі. Автоматично вводяться в таблицю деякі дані та нажімаємо кнопку виводу Сло на компоненту Memo. Отрімуємо результат з трьох нерівностей Які и утворюють Сло.
Рис. 3
На малюнку 3 показано роботу Функції Check Solution яка перевіряє чи задовольняє вектор введень в таблицю нижчих Сло. Як бачим з малюнку то Сейчас вектор (1,2,3) НЕ задовольняє Сло.
Рис. 4
На малюнку 4 бачим что введень вектор задовольняє Сло
Рис. 5
На малюнку 5 показана робота кнопки Sort Lo яка відсортовує систему лінійніх обмежень. Сортуваннях відбувається таким чином: в Кожній нерівності перевіряється знак коефіцієнта. Першів віводяться ті ЛО в якіх всі КОЕФІЦІЄНТИ додатні, іншими - ті в якіх всі КОЕФІЦІЄНТИ від ємні и останнімі ті в якіх КОЕФІЦІЄНТИ Різні або дорівнюють нулеві.
Висновок
У даній курсовій работе показано основні возможности ООП для реализации моделювання систем лінійніх обмежень та моделювання про єктів в загально. Використання ООП для вирішенню завдань такого типу значний полегшує програмісту роботові, Робить код більш структурованім та дозволяє легше его читать. Для собі можу сделать Важлива Висновок, что ООП - гнучкий інструмент Який Ідеально Підходить для написання складних програм Які потребують Описання Деяк про єктів та їх поведінкі.
Список використаної літератури
. Емелічев В.А. Багатогранники, графи, оптимізація (комбінаторна теорія багатогранників). Емелічев В.А., Ковальов М.М., Кравцов М.К.- М .: Наука, 1981. - 344 с. Глава 1. Параграфи 1,2,4.
. Семйон І.В. Основи про єктно-орієнтованого програмування. Навчальний посібник/Семйон І.В., Чупов С. В., Брила А. Ю., Апшай А. І.- Ужгород, 2011. - 141с.
3.Матеріал з Вільної енциклопедії Вікіпедії http://uk.wikipedia/wiki/Опуклий_політоп lt;http://uk.wikipedia/wiki/%D0%9E%D0%BF%D1%83%D0%BA%D0%BB%D0%B8%D0%B9_%D0%BF%D0%BE%D0%BB%D1%96%D1%82%D0%BE%D0%BFgt; http://uk.wikipedia/wiki/Багатогранник lt;http://uk.wikipedia/wiki/%D0%91%D0%B0%D0%B3%D0%B0%D1%82%D0%BE%D0%B3%D1%80%D0%...
