Задача по матрице

[dima768]

Люди помогите решить пожалуйста задачу на Delphi.

Задача: Заменить нулями эл-ты матрицы, стоящие на пересечении строк и столбцов, в которых имеется хотя бы по одному нулю.

Пример:
1. Дана матрица:

1 2 0
0 5 6
7 8 9

В матрице в первой строке и в первом столбце есть по одному нулю и разумеется во второй строке и в 3 столбце есть нули.

Заменим нулями эл-ты матрицы, стоящие на пересечении этих строк и столбцов, т.е. "1" и "6" заменяем на нули.

Должно получится:

0 2 0
0 5 0
7 8 9

[Veselyn]

Я не уверен, но попробуйте так

Const=4
Var a : array[1..n,1..n] of integer;
    s, z : array[1..n] of boolean;
    i, j : byte;
Begin
for i:=1 to n do
 for j:=1 to n do
     Begin
        writeln ('Vvedite el-nt : ');
        read(a[i,j]);
  end;
for i:=1 to n do
 for j:=1 to n do
    if a[i,j]=0 then 
Begin s[i]:=true;
	z[j]:=true;
 end;
for i:=1 to n do
 for j:=1 to n do
    if (s[i] and z[j]) then
Begin
 	a[i,j]:=0;
end;
writeln('_______________________');
for i:=1 to n do
  begin
    for j:=1 to n do
           write(a[i,j],' ');
  end;
readln;
end.

А вообще если не так поищите на форуме, не-так давно такая тема уже подымалась
___________________________________ ___________________________________ _____
PS. случайно НАШЕЛ

[dima768]

Совсем не работает :'(

Люди помогите кто нибудь...

[Veselyn]

Я же говорил что код не проверял, поищите на форуме, а позже выложил ссылку.

PS. случайно НАШЕЛ

Там код рабочий http://programmersforum.ru/showthread.php?t=42462
PS. Будте внимательны

[dima768]

Задачу то на делфи нужно реализовать.

Вот я переделал:

procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..3,1..3]of integer;
h,v:array[1..3]of boolean;
i,j:integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
a[j,i]:=StrToInt(StringGrid1.Cells[j-1,i-1]);
for i:=1 to 3 do
for j:=1 to 3 do
if a[i,j]=0 then begin h[i]:=true; v[j]:=true end;
for i:=1 to 3 do
for j:=1 to 3 do
if (h[i] and v[j]) then a[i,j]:=0;

ВЫВОД

end;

end.

Где слово ВЫВОД там должен быть вывод конечного массива в StringGrid ,ну или Memo.

Вот токо я немогу его сделать.

for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
end;
readln;

Вот это надо переделать на Delphi