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 - Про розробників