реализуемо ли Опции

[.helga]

Реализуемо ли это в Делфи??


1 Провести минимальное количество прямых через столбцы и строки матрицы таким образом, чтобы они проходили через все нули, содержащиеся в таблице
2 Найти наименьший из элементов, через которые не проходит ни одна прямая
3 Вычесть его из всех элементов, через которые не проходят прямые
4 Прибавить его ко всем элементам, лежащим на пересечении прямых
5 Элементы, через которые проходит только одна прямая, оставить неизменными

[Bokul]

Нет мой алгоритм и для такого не годится:
1111
1101
1101
1000
он даст 3, хотя можно обойтись и двумя линиями.

[.helga]

хм. тогда кроме вычеркивания строк/столбцов с максимальным кол-вом нулей, я решений не вижу..
вот так?

max_a, max_b, counter, i, ii, m: integer;

begin
max_b:=0;
counter:=0;

for i:=1 to m do
 begin
  for ii:=1 to m do
   if matr[i,ii]=0 then
    inc(counter);
   if counter>max_b then
    begin
     max_b:=counter;
     b:=ii; {запоминаем строку}
     counter:=0;
    end;
 end;

max_a:=0;

for ii:=1 to m do
 begin
  for i:=1 to m do
   if matr[i,ii]=0 then
    inc(counter);
   if counter>max_a then
    begin
     max_a:=counter;
     a:=i; {запоминаем столбец}
     counter:=0;
    end;
 end;

if max_a<max_b then 
 begin
  for i:=1 to m do
   if matr[i,b]=0 then matr[i,b]:=matr[i,b]*100;
 end
else
 begin
  for ii:=1 to m do
   if matr[a,ii]=0 then matr[a,ii]:=matr[a,ii]*100;  
  end;
end;

выполнять пока есть нули.
чет как-то громоздко получилось..

Сообщение отредактировано: .helga - 2.01.2007 6:23