Помощь - Поиск - Пользователи - Календарь
Полная версия: Одинаковые элементы в матрице! Задача!
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
MiLork
Помогите народ плиз с задачкой....
Не могу решить, с массивами вообще фигово у меня( а до понедельника нужно сдать((

вот задачка:
Дана целочисленная матрица С(5,5). Найти значения, которые входят в матрицу более одного раза и распечатать.

вот то что я пытался, но тут не правильное сравнение элементов матрици:

program Lab5_z3;
var m:array[1..5,1..5] of integer; i,j,v,u,y:integer;
begin
writeln('Vvedite elementi matricti');
for i:=1 to 3 do
begin
writeln('vvedite ',i,'-ii stolbec');
for j:=1 to 3 do
readln(m[i,j]);
end;

for y:=1 to 3 do
for u:=1 to 3 do
begin
for i:=1 to 3 do
for j:=1 to 3 do
if m[y,u]=m[i,j] then v:=v+1;
end;

writeln('otvet: ',v);
end.


Вся беда в этом вот месте:

for y:=1 to 3 do
for u:=1 to 3 do
begin
for i:=1 to 3 do
for j:=1 to 3 do
if m[y,u]=m[i,j] then v:=v+1;
end;


Я понимаю что тут не правильно, но как нужно чтобы находился одинаковый элемент я не знаю((

Зарание ОРГОМНОЕ СПАСИБО!!!!

М
Теги

Гость
Вот я делал похожую задачку но там сравнивались 2 вектора а не матрица(
Но примерно не сильно сложнее вот этой задачки должно быть видино:


program lab4v4;
uses crt;
var a,b:array[1..10] of integer;
i,j:integer;
begin
clrscr;
writeln('vvedite elementi a:');
for i:=1 to 6 do
readln(a[i]);
writeln('vvedite elementi b:');
for i:=1 to 5 do
readln(b[i]);
writeln('v oba vectora vhodjat:');
for i:=1 to 6 do
for j:=1 to 5 do
if a[j] = b[i] then
writeln(a[j]);
end.


М
Используй теги

klem4
Цитата
Дана целочисленная матрица С(5,5). Найти значения, которые входят в матрицу более одного раза и распечатать.


Идешь по матрице, берешь очередной элемент, смотришь, нету ли элемента с таким значением среди уже проверенных элементов (дополнительный одномерный массив), если нету, добавляешь его в этот массив и идешь дальше по матрице, пока либо не дойдешь до конца, либо пока не встретишь элемент равный проверяемому. Если дошел до конца - элемент с таким значением в матрице единственный, выводишь на экран.

вот примерно так.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.