1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Мне нужно найти одинаковые элементы матрицы и сформировать из них вектор. У меня не получается их найти, подскажите как это сделать. Заранее спасибо
Program lab1_1; Uses WinCrt; Var A:Array[1..5,1..6] of integer; B:Array[1..30] of integer; i,j,k:Byte; f:Text; Begin WriteLn('Типовые приемы ввода и вывода элементов массива'); WriteLn('Задание 1'); Randomize; For i:=1 to 5 do For j:=1 to 6 do Begin A[i,j]:=Random(20); End; WriteLn('Массив A'); For i:=1 to 5 do begin For j:=1 to 6 do Begin Write(A[i,j]:3,' '); End; WriteLn; end; {Поиск одинаковых элемнтов} For i:=1 to 5 do For j:=1 to 6 do begin if A[i,j]=A[i,j] then begin k:=k+1; B[k]:=A[i,j]; end; end;
WriteLn('Полученный вектор'); For i:=1 to k do Write(B[i]:3,' ');
Что значит "одинаковые элементы"? Все элементы, которые встречаются более одного раза?
A[i,j]=A[i,j]
это условие будет выполняться всегда - какой в нем смысл?
--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует. На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
// Описания типов и процедур - добавлено... const lines = 5; columns = 6; type matrix = array[1 .. lines, 1 .. columns] of integer; vector = array[1 .. lines * columns] of integer;
procedure bubble(var ar: vector; n: integer); var i, j, T: Integer; begin for i := 1 to n do for j := n downto i + 1 do if ar[Pred(j)] > ar[j] then begin T := ar[Pred(j)]; ar[Pred(j)] := ar[j]; ar[j] := T end end;
// **** Основная программа
// заполнила матрицу значениями ... // отсортировала ее сквозной сортировкой по возрастанию // (любым алгоритмом, я для простоты попробовал "пузырек") bubble(vector(a), lines * columns);
// и заполняешь повторяющимися значениями массив B: curr := 0;
i := 1; while i < lines * columns do begin count := 1; while (i < lines * columns) and (vector(a)[i] = vector(a)[i + 1]) do begin inc(i); inc(count); end; if count > 1 then begin inc(curr); b[curr] := vector(a)[i - 1]; end; inc(i); end;
Вообще мне немного не это нужно. Там в задачи идет такое задание: если в матрице А есть одинаковые элементы, то найти max элемент и т.д Мне нужно именно как правильно записать это условие: если есть одинаковые элементы
function has_dup(var ar: vector; n: integer): boolean; var i, j, T: Integer; begin has_dup := true; for i := 1 to n do for j := i + 1 to n do if ar[i] = ar[j] then exit; has_dup := false; end;
if has_dup(vector(a), lines * columns) then // есть дублирующиеся элементы else // нет ...