Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
2 / 2 / 2
Регистрация: 02.11.2012
Сообщений: 27
1

Исключение лишних повторяющихся цифр в массиве

30.09.2013, 22:50. Показов 1341. Ответов 2
Метки нет (Все метки)

Подскажите, пожалуйста, алгоритм(код), с помощью которого можно в целочисленном массиве исключить лишние повторяющиеся цифры.
То есть если в массиве : 3 4 0 0 1 2 2 3 4 Должно быть: 3 4 0 1 2
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.09.2013, 22:50
Ответы с готовыми решениями:

Обнаружение повторяющихся цифр в массиве
В общем нужно найти всё, что повторяется и какое количество раз. Голова с алгоритмом чот ваще не...

Найти количество повторяющихся в массиве цифр
Помогите у меня задача:"Мади подарили новый блокнот. Ему очень понравился подарок, но единственное,...

Пузырьковая сортировка: исключение лишних проходов
Добрый день , программа пузырьковая сортировка используя вектор, сортирует числа , используя...

Оптимизация в пределах линейных участков - исключение лишних переменных
Необходимо произвести оптимизацию в пределах линейных участков (исключить лишние переменные). На...

2
Фрилансер
3412 / 2809 / 3000
Регистрация: 08.02.2012
Сообщений: 8,107
Записей в блоге: 1
01.10.2013, 13:13 2
Лучший ответ Сообщение было отмечено shagi как решение

Решение

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
Var A:array[1..100] of integer;
    i,j,n,k:byte;
    f:boolean;
Begin
    write('Кол-во чисел: ');readln(n);
    writeln('Исходный массив');
    For i:=1 to n do
    Begin
      A[i]:=random(10);
      write(A[i]:2);
    End;
    writeln;
    i:=1;
    While i<=n do
    Begin
      j:=i+1;
      f:=true;
      While (j<=n)and(f) do
      Begin
        if A[i]=A[j] then 
        Begin
          f:=false;
          For k:=i to n-1 do
           A[k]:=A[k+1];
          dec(n);
          dec(i);
        End;
        inc(j);
      End;
      inc(i);
    End;
    writeln('Преобразованный массив');
    For i:=1 to n do
     write(A[i]:2);
    readln;
End.
1
2 / 2 / 2
Регистрация: 02.11.2012
Сообщений: 27
01.10.2013, 15:38  [ТС] 3
спасибо
 Комментарий модератора 
Правило форума 3.6. Если какой-либо пост на форуме показался вам полезным, то вы можете выразить свою благодарность, нажав кнопку "Спасибо" внизу самого поста
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.10.2013, 15:38

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Исключение повторяющихся строк
Добрый вечер! Имею файл с записями типа: 111111-100 111111-70 222222-200 333333-800 333333-300...

Исключение повторяющихся данных
Здравствуйте! Подскажите пожалуйста, как исключить повторение данных в поле. Но есть одно условие:...

Из цифр 6 7 8 9 0 наугад составляется пятизначное число без повторяющихся цифр
Из цифр 6 7 8 9 0 наугад составляется пятизначное число без повторяющихся цифр. Какова вероятность...

Исключение повторяющихся записей в выборке
Все привет народ, есть вот такой запрос SELECT...


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

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

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