Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Одинаковые элементы в матрице! Задача!

Автор: MiLork 24.05.2008 1:16

Помогите народ плиз с задачкой....
Не могу решить, с массивами вообще фигово у меня( а до понедельника нужно сдать((

вот задачка:
Дана целочисленная матрица С(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;


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

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

М
Теги


Автор: Гость 24.05.2008 1:18

Вот я делал похожую задачку но там сравнивались 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 24.05.2008 1:25

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


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

вот примерно так.