Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые проекты » Метод адитивної оптимізації

Реферат Метод адитивної оптимізації





quo ;;. Cells [0,1]:= Відділ 1 raquo ;;. Cells [ 0,2]:= Відділ 2 raquo ;;. Cells [0,3]:= Відділ 3 raquo ;;. Enabled:=false ;;

Tproga.sButton2Click (Sender: TObject);:=360; i:=1 to x doj:=1 to y do [j, i]:=Strtofloat (StringGrid1.Cells [i, j ]); i:=1 to x doj:=1 to y doa [j, i] gt; mx [i] then mx [i]:=a [j, i]; i:=1 to x do:= sr + mx [i];:=sr/x; i:=1 to x do {for i} mx [i] lt; sr thenj:=1 to y do b [j, i]:=a [j, i]/mx [i] j:=1 to y do b [j, i]:=1- (a [j, i]/mx [i]) ;; {/ for i} i:=1 to x do [i]:=Strtofloat (StringGrid1.Cells [i, y + 1]); j:=1 to y doi:=1 to x do [j]:=F [j] + (mx [i] * b [j, i]);:=0; i:=1 to y doF [i] gt; sr then:=F [i];:=i ;;

. Caption:=sLabel3.Caption + floattostr (n) + = + floattostr (F [n]) + raquo ;;. Caption:= Підприємство № + floattostr (n) + - Найбільш ефективно працюючий raquo ;;. Enabled:=false ;;.

Unit_proga2 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Buttons, Grids, ComCtrls, sEdit, sLabel, sButton;=class (TForm): TUpDown ;: TUpDown ;: TStringGrid ;: TsButton ;: TsButton ;: TsLabel ;: TsEdit ;: TsEdit ;: TsLabel ;: TsLabel ;: TsLabel; sButton1Click (Sender: TObject); sButton2Click (Sender: TObject);

{Private declarations}

{Public declarations};

: TProga2;, y, i, j, n: integer;: Real;, b: array [1..6,1..6] of Real;, F: array [1..6] of Real;

{$ R * .dfm} TProga2.sButton1Click (Sender: TObject);:=286;:=Strtoint (sEdit1.Text);:=Strtoint (sEdit2.Text) ;. ColCount:= x + 1; .Width:=253 + (84 * (x - 2)) ;. RowCount:=y + 2; .Height:=73 + (18 * (y - 2)) ;. Cells [0, y +1]:= Коефіцієнти raquo ;; i:=1 to x do.Cells [i, 0]:=Inttostr (i); i:=1 to y do.Cells [0, i]:=Inttostr (i ) ;. Enabled:=false ;;

TProga2.sButton2Click (Sender: TObject);:=360; i:=1 to x doj:=1 to y do [j, i]:=Strtofloat (StringGrid1.Cells [i, j ]); i:=1 to x doj:=1 to y doa [j, i] gt; mx [i] then mx [i]:=a [j, i]; i:=1 to x do:= sr + mx [i];:=sr/x; i:=1 to x do {for i} mx [i] lt; sr thenj:=1 to y do b [j, i]:=a [j, i]/mx [i] j:=1 to y do b [j, i]:=1- (a [j, i]/mx [i]) ;; {/ for i} i:=1 to x do [i]:=Strtofloat (StringGrid1.Cells [i, y + 1]); j:=1 to y doi:=1 to x do [j]:=F [j] + (mx [i] * b [j, i]);:=0; i:=1 to y doF [i] gt; sr then:=F [i];:=i ;;

. Caption:=sLabel3.Caption + floattostr (n) + = + floattostr (F [n]) + raquo ;;. Caption:= Підприємство № + floattostr (n) + - Найбільш ефективно працюючий raquo ;;. Enabled:=false ;;.

Unit_razrab ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls;=class (TForm): TMemo;

{Private declarations}

{Public declarations} ;: Trazrab;

{$ R * .dfm}.


Додаток Б


Форми програми


Малюнок 5 - Головне вікно програми


Малюнок 6 - Завдання підприємства


Малюнок 7 - Рішення будь-якої задачі

Рисунок 8 - Про метод


Рисунок 9 - Допомога


Рисунок 10 - Про розробників



Назад | сторінка 6 з 6





Схожі реферати:

  • Реферат на тему: Прикладне додаток &Розробка проекту для створення нового класу Auto і елеме ...
  • Реферат на тему: Малюнок як метод діагностики та корекції дітей з прийомних сімей
  • Реферат на тему: Дитячий малюнок як метод вивчення міжособистісних стосунків дітей у дошкіль ...
  • Реферат на тему: Стягуємо борги по-новому: як це зробити найбільш ефективно
  • Реферат на тему: Пластичний малюнок вистави - рішення простору театралізованого дійства