Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
1 / 1 / 0
Регистрация: 18.10.2015
Сообщений: 44
1

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

01.11.2015, 14:44. Показов 1437. Ответов 2
Метки нет (Все метки)

Дан целочисленный массив X, содержащий n элементов (n ≤ 20). Получить все числа, которые входят в массив по одному разу.
0

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

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

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

Получить все числа, которые входят в последовательность по одному разу
Даны целые числа а1,а2...а15 ( могут быть повторяющиеся члены). Получить все числа, которые входят...

Получить числа, которые входят в последовательность по одному разу
Доброго времени суток, прошу помощи в выполнении ниже перечисленных задач. №1 Даны целые числа...

Дан массив. Получить все числа, которые входят в последовательность по 1-му разу
Дан массив. Получить все числа, которые входят в последовательность по 1-му разу. Спасибо заранее!

2
CAPITAL OF ROCK!
1280 / 707 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
01.11.2015, 16:37 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
type
    TArray = Array Of ShortInt;
var
    ar, uniq: TArray;
    i, j, n: Byte;
    check: Boolean;
begin
    repeat
        Write('Input array length: ');
        ReadLn(n);
    until (n in [1..20]);
    SetLength(ar, n); SetLength(uniq, 0);
    Write('Original array:'); Randomize();
    for i := 0 to n - 1 do
    begin
        ar[i] := Random(11) - 5;
        Write(ar[i]:4);
        check := (i <> 0);
        if (check)
        then
        begin
            j := i;
            repeat
                Dec(j);
                check := (ar[i] = ar[j]);
            until ((j = 0) Or (check));
        end;
        if (Not check)
        then
        begin
            SetLength(uniq, Length(uniq) + 1);
            uniq[Length(uniq) - 1] := ar[i];
        end;
    end;
    WriteLn; Write('Uniq elements:');
    for i := 0 to Length(uniq) - 1 do
        Write(uniq[i]:4);
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30922 / 20233 / 7887
Регистрация: 22.10.2011
Сообщений: 35,120
Записей в блоге: 6
02.11.2015, 12:20 3
Используем средства FPC:
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
uses FGL;
type
    TArray = Array Of ShortInt;
    IntList = specialize TFPGList<Integer>;
var
    ar: TArray;
    uniq : IntList;
    i, n : Integer;
begin
    repeat
        Write('Input array length: ');
        ReadLn(n);
    until (n in [1..20]);
    SetLength(ar, n); uniq := IntList.Create;
    Write('Original array:'); Randomize();
    for i := 0 to n - 1 do
    begin
        ar[i] := Random(11) - 5;
        Write(ar[i]:4);
 
        if uniq.IndexOf(ar[i]) = -1 then uniq.Add(ar[i]);
    end;
    WriteLn; Write('Unique elements:');
    for i in uniq do write(i:4);
    uniq.Free;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.11.2015, 12:20

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Получить все числа, которые встречаются в последовательности по одному разу.
Получить все числа, которые встречаются в последовательности по одному разу.

Напечатать в алфавитном порядке все буквы, которые входят в текст по одному разу
3.Дан текст из строчных латинских букв. Напечатать в алфавитном порядке все буквы, которые входят в...

Получить все числа, которые входят в массив по одному разу
Дан массив целых чисел. Получить все числа, которые входят в последовательность по одному разу.

Получить все числа, которые входят в массив по одному разу
Дан целочисленный массив X, содержащий n элементов (n 20). Получить все числа, которые входят в...


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

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

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