Доброго времени суток! Какой максимально возможный срок? Насколько Вы готовы увеличить стоимость вопроса? Здесь целая курсовая работа.

Решить задачу, методом поиска с возвратом, используя рекурсивный или нерекурсивный вариант.

Это нужно делать на паскале?

С решением по пункту 3. мне ещё надо разбираться. Если вам это ещё надо -- пишите.

к сожалению это простая лабораторная работа,задачу надо сделать на паскале.

[q=304622][/q]
мне достаточно того что вы сделали , огромное спасибо.

Всем:
[code h=200]const
coin:array [1..9,1..9]of integer=(
(27,12,23,20,22,21,34,25,13),
(30,12,19,26,21,35,34,12,32),
(27,12,28,17,25,16,36,35,13),
(18,23,24,33,20,22,20,34,17),
(14,18,29,36,20,26,36,25,20),
(12,15,19,23,13,15,33,34,25),
(29,27,32,19,33,21,16,15,14),
(33,33,17,18,13,22,17,31,23),
(27,12,29,35,25,15,23,33,27)
);
var
m_x,m_y,w,x,y,z:integer;
lin,row:array[1..9]of boolean;
begin
{A}
writeln('row 1:9;col 1:9');
for z:=1 to 9 do
begin
lin[z]:=true;
row[z]:=true;
end;
w:=0;
for z:=1 to 9 do
begin
m_x:=0;repeat inc(m_x) until lin[m_x];
m_y:=0;repeat inc(m_y) until lin[m_y];
for y:=1 to 9 do
if row[y] then
for x:=1 to 9 do
if lin[x] then
if coin[x,y]>coin[m_x,m_y]then
begin
m_y:=y;
m_x:=x;
end;
row[m_y]:=false;
lin[m_x]:=false;
write(m_x:3,':',m_y,'=',coin[m_x,m_y]);
w:=w+coin[m_x,m_y];
end;
writeln(' s:=',w);
{B}
writeln('col 1:9;row 1:9');
for z:=1 to 9 do
begin
lin[z]:=true;
row[z]:=true;
end;
w:=0;
for z:=1 to 9 do
begin
m_x:=0;repeat inc(m_x) until lin[m_x];
m_y:=0;repeat inc(m_y) until row[m_y];
for x:=1 to 9 do
if lin[x] then
for y:=1 to 9 do
if row[y] then
if coin[x,y]>coin[m_x,m_y]then
begin
m_y:=y;
m_x:=x;
end;
row[m_y]:=false;
lin[m_x]:=false;
write(m_x:3,':',m_y,'=',coin[m_x,m_y]);
w:=w+coin[m_x,m_y];
end;
writeln(' s:=',w);

{C}
writeln('row 9:1;col 9:1');
for z:=1 to 9 do
begin
lin[z]:=true;
row[z]:=true;
end;
w:=0;
for z:=1 to 9 do
begin
m_x:=0;repeat inc(m_x) until lin[m_x];
m_y:=0;repeat inc(m_y) until lin[m_y];
for y:=9 downto 1 do
if row[y] then
for x:=9 downto 1 do
if lin[x] then
if coin[x,y]>coin[m_x,m_y]then
begin
m_y:=y;
m_x:=x;
end;
row[m_y]:=false;
lin[m_x]:=false;
write(m_x:3,':',m_y,'=',coin[m_x,m_y]);
w:=w+coin[m_x,m_y];
end;
writeln(' s:=',w);
{D}
writeln('col 9:1; row 9:1');
for z:=1 to 9 do
begin
lin[z]:=true;
row[z]:=true;
end;
w:=0;
for z:=1 to 9 do
begin
m_x:=0;repeat inc(m_x) until lin[m_x];
m_y:=0;repeat inc(m_y) until row[m_y];
for x:=9 downto 1 do
if lin[x] then
for y:=9 downto 1 do
if row[y] then
if coin[x,y]>coin[m_x,m_y]then
begin
m_y:=y;
m_x:=x;
end;
row[m_y]:=false;
lin[m_x]:=false;
write(m_x:3,':',m_y,'=',coin[m_x,m_y]);
w:=w+coin[m_x,m_y];
end;
writeln(' s:=',w);
readln;
end.{}[/code]
жадный алгоритм(который предложил Сергей) с 4-мя стратегиями поиска максимальных элементов:
по строкам, по столбцам, с возрастанием индекса поиска и его убыванием.


Судя по всему и полный перебор не дает полной гарантии.


нашел ошибку в своем коде:

из-за этого учитывались у же вычеркнутые линии.

большое спасибо и за ваш вариант