Программная реализация

// рассчитываем потенциалы для опорного планаa_b do;

// постепенное приближение плана к оптимальномуkkk(ki,kj)<0 do begin

kontur;:=Nt+1;a_b then break;

end;

// выводим результаты.Clear;

summa:= 0;.Lines.Add('В нападении:');i:=1 to Na do beginp[i,1]=1 then.Lines.Add('--'+Form2.SGrid.Cells[0,i]);;.Lines.Add('');.Lines.Add('Левый защитник:');i:=1 to Na do beginp[i,2]=1 then.Lines.Add('--'+Form2.SGrid.Cells[0,i]);;.Lines.Add('');

Memo1.Lines.Add('Правый защитник:');

for i:=1 to Na do beginp[i,3]=1 then.Lines.Add('--'+Form2.SGrid.Cells[0,i]);;.Lines.Add('');

Memo1.Lines.Add('Центральный защитник:');

for i:=1 to Na do beginp[i,4]=1 then.Lines.Add('--'+Form2.SGrid.Cells[0,i]);;.Lines.Add('');

Memo1.Lines.Add('Левый полузащитник:');

for i:=1 to Na do beginp[i,5]=1 then.Lines.Add('--'+Form2.SGrid.Cells[0,i]);;.Lines.Add('');

Memo1.Lines.Add('Правый полузащитник:');

for i:=1 to Na do beginp[i,6]=1 then.Lines.Add('--'+Form2.SGrid.Cells[0,i]);;.Lines.Add('');

Memo1.Lines.Add('Центральный полузащитник:');

for i:=1 to Na do beginp[i,7]=1 then.Lines.Add('--'+Form2.SGrid.Cells[0,i]);;.Lines.Add('');i:= 1 to Na doj:= 1 to (Nb-1) do beginp[i,j]=1 then summa:=summa + p[i,j]*(10-c[i,j]);;.Lines.Add('Сумма коэффициентов = '+inttostr(summa));

end;.

Интерфейс автоматизированного программного средства поиска оптимальной расстановки игроков на поле

Рис. 3

Рис. 4