Матрица

[Almost456]

В задание нужно заменить все элементы матрицы на 1 и 0.
1-повторяющиеся элементы,0-не повторяющиеся.

program fauna;
uses crt;
var i,j:integer;
one_zero:integer;
sal1:array[1..4,1..4] of integer;
begin
CLrScr;
Writeln('Enter matrix');
for j:= 1 to 4 do
for i:= 1 to 4 do
begin
gotoxy(3+i*4,3+j*2);
readln(sal1[i,j]);
end;

for j:=1 to 4 do
for i:= 1 to 4 do
if sal1[j,i]<>one_zero then begin
one_zero:=sal1[j,i];
sal1[j,i]:=0;
end
else
begin
one_zero:=sal1[j,i];
sal1[j,i]:=1;
end;

for i:= 1 to 4 do
begin
for j:= 1 to 4 do
write(sal1[j,i]:3);
writeln;
end;
readkey;
end.

например я ввожу все 2 и одну 5
2 2 2 5
2 2 2 2
2 2 2 2
2 2 2 2
и получается вот что
0 1 1 0
1 1 1 0
1 1 1 1
1 1 1 1
В чём проблема?

[Vedun]

for j:= 1 to 4 do
begin
for i:= 1 to 4 do
write(sal1[j,i]:3);
writeln;
end;

Вот эту часть кода нужно так исправить,и все работает...Просто местами переменные перепутались)))

[Almost456]

Vedun это

for i:= 1 to 4 do
begin
for j:= 1 to 4 do
write(sal1[j,i]:3);
writeln;
end;

я специально написал,чтобы матрица выводила такое же построение как и в вводимой матрице.

[Vedun]

я эту часть поменял в коде,у меня все норм выводила...
1 1 1 5
1 1 1 1
1 1 1 1
1 1 1 1
Он мне выдал
0 1 1 0
0 1 1 1
1 1 1 1
1 1 1 1
так как и должно получатся...

[Almost456]

0 1 1 0
0 1 1 1
1 1 1 1
1 1 1 1
так как и должно получатся...

А почему лишние нули?Всмысле тут 3 нуля,а должен быть один

[Vedun]

У тебя прога проверяет наличие повторяющихся символов не во всей матрице,а только последовательно...То есть если последующий символ будет равен предыдущему...

[Almost456]

... то предыдущий должен замениться на 0?так не должно быть.это как раз и не правильно.Мне же нужно все элементы заменить в матрице...

[Vedun]

тогда убири эту чусть кода

for j:=1 to 4 do
for i:= 1 to 4 do
if sal1[j,i]<>one_zero then begin
one_zero:=sal1[j,i];
sal1[j,i]:=0;
end
else
begin
one_zero:=sal1[j,i];
sal1[j,i]:=1;
end;

и замени на эту

for j:=1 to 4 do
for i:= 1 to 4 do
begin
one_zero:=sal1[j,i];
sal1[j,i]:=0;
for j:=1 to 4 do
for i:= 1 to 4 do
 if one_zero=sal1[b,a] then
sal1[j,i]:=1;
end;

Теперь он будет брать каждый элемент,равнять его изначально к нулю.А потом,если найдет хоть один похожий, приравняет к единице...Должно работать...

[Almost456]

не работает.он на 1 элементе останавливается...Ты извини за хамство,но сначала проверь сам свою идею,работает она или нет,а потом присылай...

[Vedun]

program fauna;
uses crt;
var i,j,b,a,d:integer;
one_zero:integer;
sal1:array[1..4,1..4] of integer;
sal2:array[1..4,1..4] of integer;
begin
CLrScr;
Writeln('Enter matrix');
for j:= 1 to 4 do
for i:= 1 to 4 do
begin
gotoxy(3+i*4,3+j*2);
readln(sal1[i,j]);
end;

for j:=1 to 4 do
 for i:= 1 to 4 do
  begin
   d:=0;
   for b:=1 to 4 do
    for a:=1 to 4 do
     if sal1[j,i]=sal1[b,a] then d:=d+1;
   if d>1 then sal2[j,i]:=1
    else sal2[j,i]:=0;
  end;

for i:= 1 to 4 do
begin
for j:= 1 to 4 do
write(sal2[j,i]:3);
writeln;
end;
readkey;
end.

Эта работает...