Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
kristion
0 / 0 / 0
Регистрация: 19.09.2010
Сообщений: 9
1

В матрице найти элементы, встречающиеся более одного раза

07.05.2013, 01:20. Просмотров 938. Ответов 1
Метки нет (Все метки)

Если не трудно, помогите решить задачу.(Желательно с пояснениями). Заранее спасибо

В матрице А(N,N) найти элементы, встречающиеся более одного раза. Из этих элементов составить и напечатать матрицу Х из двух столбцов. В пер-вом столбце разместить сами значения таких элементов, во втором – коли-чество раз, которое они встретились. Составить и напечатать новую матрицу B(N,N), элементами которой являются числа, указывающие сколько раз встретился элемент, находящийся в этой же позиции в А(N,N).
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.05.2013, 01:20
Ответы с готовыми решениями:

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

Найти наибольшее из чисел встречающееся в матрице более одного раза
найти наибольш из чисел встречающееся в матрице более одного раза. с помощью подпрограммы

Найти максимальное из чисел, встречающееся в матрице более одного раза
X={ a*b+1, если а>b, -b, если а=и, ...

Найти минимальное из чисел, встречающееся в данной матрице более одного раза
Задана квадратная матрица A размером N x N (N<=10), состоящая из действительных элементов 1)Найти...

Найти минимальное по модулю число, встречающееся в матрице более одного раза.
Условие: - Ввести произвольную размерность квадратной матрицы в интервале 1..10. - Предложить...

1
versa4e
trainspotting
1083 / 483 / 384
Регистрация: 11.11.2010
Сообщений: 773
07.05.2013, 03:28 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
const
  maxSize=10;
var
  a,b:array[1..maxSize,1..maxSize] of integer;
  x:array[1..maxSize div 2,1..2] of integer;
  n,i,j,k,g,p,xn:integer;
begin
  repeat
    write('Порядок матрицы=');
    readln(n);
  until (n>0) and (n<=maxSize);
  randomize;
  writeln('Исходная матрица А:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(10);
          write(a[i,j]:5);
        end;
      writeln;
    end;
  fillchar(x,sizeof(x),0);
  xn:=0;
  for i:=1 to n do
    for j:=1 to n do
      begin
        p:=0;
        for k:=1 to n do
          for g:=1 to n do
            if a[i,j]=a[k,g] then
              inc(p);
        if p>1 then
          begin
            k:=1;
            while (k<=xn) and (a[i,j]<>x[k,1]) do
              inc(k);
            if k>xn then
              begin
                inc(xn);
                x[xn,1]:=a[i,j];
                x[xn,2]:=p;
              end;
          end;
      end;
  if xn>0 then
    begin
      writeln('Матрица Х:');
      for i:=1 to xn do
        begin
          for j:=1 to 2 do
            write(x[i,j]:5);
          writeln;
        end;
    end
  else
    writeln('Все элементы исходной матрицы А уникальны!');
  for i:=1 to n do
    for j:=1 to n do
      begin
        k:=1;
        while (k<=xn) and (a[i,j]<>x[k,1]) do
          inc(k);
        if k>xn then
          b[i,j]:=1
        else
          b[i,j]:=x[k,2];
      end;
  writeln('Матрица B:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(b[i,j]:5);
      writeln;
    end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.05.2013, 03:28

Найти максимальное из чисел, встречающееся в данной матрице более одного раза
Тут такое задание: Задав двумерный массив вещественных данных (матрицу А), реализовать его...

Найти максимальное число из чисел, встречающихся в матрице более одного раза
найти максимальное число из чисел встречающихся в заданной матрице размером n*n более одного раза....

Найти максимальное из чисел, встречающихся в заданной матрице более одного раза
Найти максимальное из чисел, встречающихся в заданной матрице более одного раза


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru