IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Поиск одинаковых элементов
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Женский
Реальное имя: Ольга

Репутация: -  0  +


Мне нужно найти одинаковые элементы матрицы и сформировать из них вектор. У меня не получается их найти, подскажите как это сделать. Заранее спасибо

 
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,' ');


end.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Что значит "одинаковые элементы"? Все элементы, которые встречаются более одного раза?
A[i,j]=A[i,j]

это условие будет выполняться всегда - какой в нем смысл?


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Исходную матрицу менять можно? Тогда так:

// Описания типов и процедур - добавлено...
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;

for i := 1 to curr do write(b[i]:4);
writeln;

 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Женский
Реальное имя: Ольга

Репутация: -  0  +


Вообще мне немного не это нужно. Там в задачи идет такое задание: если в матрице А есть одинаковые элементы, то найти max элемент и т.д
Мне нужно именно как правильно записать это условие: если есть одинаковые элементы
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






const
lines = 5;
columns = 6;
type
matrix = array[1 .. lines, 1 .. columns] of integer;

pvector = ^vector;
vector = array[1 .. lines * columns] of integer;

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 // нет ...
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 30.09.2020 6:18
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name