Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
Smallin
0 / 0 / 0
Регистрация: 21.11.2016
Сообщений: 12
1

Найти все неповторяющиеся элементы двумерного массива

21.11.2016, 09:48. Просмотров 1064. Ответов 8
Метки нет (Все метки)

Решите, пожалуйста.
Найти все неповторяющиеся элементы двумерного массива целых чисел размерностью 6*3. Заполнение массива осуществить с клавиатуры.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.11.2016, 09:48
Ответы с готовыми решениями:

Найти все неповторяющиеся элементы двухмерного массива целых чисел
решите задачу с помощю подпрограммы !!! задача(330): найти все...

Найти все неповторяющиеся элементы матрицы
Найти все неповторяющиеся элементы двумерного массивацулых чисел.

Найти минимальный элемент двумерного массива и заменит все значения в строке 0 где находится минимальные элементы
Найти минимальный элемент двумерного массива и заменит все значения в строке 0...

Заменить на 0 все элементы двумерного массива
заменить на 0 все элементы двумерного массивакоторые меньше заданного числа,...

Создание двумерного массива, все элементы которого различны
Задана целочисленная матрица А, все элементы которой различны. Помогите. Не...

8
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
21.11.2016, 11:48 2
Лучший ответ Сообщение было отмечено Cyborg Drone как решение

Решение

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
const
    N = 6;
    M = 3;
var
    i, j, k, un: Byte;
    uniqs: Array[1..N*M] Of Integer;
    ar: Array[1..N, 1..M] Of Integer;
    isUniq: Boolean;
begin
    un := 0;
    for i := 1 to N do
    begin
        for j := 1 to M do
        begin
            Write('ar[', i, '][', j, ']=');
            ReadLn(ar[i, j]);
            isUniq := True;
            k := 1;
            while ((k <= un) And (isUniq)) do
            begin
                isUniq := (uniqs[k] <> ar[i, j]);
                Inc(k);
            end;
            if (isUniq)
            then
            begin
                Inc(un);
                uniqs[un] := ar[i, j];
            end;
        end;
        WriteLn;
    end;
    Write('Неповторяющиеся элементы:');
    for k := 1 to un do
        Write(' ', uniqs[k]);
    WriteLn;
end.
0
Smallin
0 / 0 / 0
Регистрация: 21.11.2016
Сообщений: 12
21.11.2016, 17:52  [ТС] 3
Спасибо вам огромное за помощь)
0
Smallin
0 / 0 / 0
Регистрация: 21.11.2016
Сообщений: 12
01.12.2016, 12:06  [ТС] 4
а возможно эту программу написать компактней? дабы разобраться с ее алгоритмом
0
Smallin
0 / 0 / 0
Регистрация: 21.11.2016
Сообщений: 12
02.12.2016, 12:25  [ТС] 5
(Перенесено из дублирующих тем и исправлено по контексту)

Напишите, пожалуйста, код и математическую модель

Эта программа работает не так.
0
Smallin
0 / 0 / 0
Регистрация: 21.11.2016
Сообщений: 12
06.12.2016, 06:37  [ТС] 6
еще нужно вывести на экран сам массив. заранее спасибо

Добавлено через 14 часов 28 минут
Поднятие
0
Smallin
0 / 0 / 0
Регистрация: 21.11.2016
Сообщений: 12
09.12.2016, 18:56  [ТС] 7
поднятие
0
Smallin
0 / 0 / 0
Регистрация: 21.11.2016
Сообщений: 12
11.12.2016, 10:48  [ТС] 8
поднятие
Цитата Сообщение от Smallin Посмотреть сообщение
еще нужно вывести на экран сам массив. заранее спасибо
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4141 / 2735 / 2172
Регистрация: 22.11.2013
Сообщений: 7,641
11.12.2016, 14:02 9
Pascal
33
34
35
36
  WriteLn('A =');
  for i:=1 to n do begin
    for j:=1 to m do Write(' ',ar[i,j]:5); WriteLn;
  end;
0
11.12.2016, 14:02
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.12.2016, 14:02

Отсортировать те строки двумерного массива, где все элементы отрицательные
отсортировать те строки двумерного массива где все элементы отрицательные

Найти максимальные элементы каждого столбца двумерного массива А...
Найти максимальные элементы каждого столбца двумерного массива А. Сформировать...

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


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

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

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