Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/15: Рейтинг темы: голосов - 15, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 25.10.2014
Сообщений: 21
1

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

21.11.2014, 12:28. Показов 2943. Ответов 3
Метки нет (Все метки)

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

Вот код, но он выводит числа, которые повторяются, а нужно наоборот, те которые не повторяются, исправте пожалуйста, чтобы было правильно.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const n=15;
var a:array[1..n]of integer;
    i,g,b:integer;
begin
    for i:=1 to 15 do
    readln(a[i]);
    writeln('в массив входят ро 1 разу:');
    for i:=1 to 15 do
    for g:=1 to 15 do
    if a[i]<>a[g] then
    begin
     b:=a[i];
     a[i]:=a[g];
     a[g]:=b;
    end;
    writeln(a[g]);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.11.2014, 12:28
Ответы с готовыми решениями:

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

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

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

Дана последовательность слов. Напечатать все слова последовательности, которые встречаются в ней по одному разу.
1.8. 2.Составить программу печати в возрастающем порядке всех цифр, входящих в десятичную запись...

3
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,029
Записей в блоге: 1
21.11.2014, 12:36 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const
  n = 15;
 
var
  a: array[1..n] of integer;
  i, g, b: integer;
 
begin
  for i := 1 to n do
    read(a[i]);
  writeln('в массив входят по 1 разу:');
  for i := 1 to n do
  begin
    b := 0;
    for g := 1 to n do
      if a[i] = a[g] then inc(b);
    if b = 1 then write(a[i], ' ');
  end;
end.
1
0 / 0 / 0
Регистрация: 25.10.2014
Сообщений: 21
21.11.2014, 21:46  [ТС] 3
Небольшой вопрос, я просто не очень разбираюсь, а зачем здесь использовалась процедура inc?
0
CAPITAL OF ROCK!
1280 / 707 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
21.11.2014, 22:07 4
Trollfase1998, это инкремент
Pascal
1
inc(i) <-> i:=i+1
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.11.2014, 22:07

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

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

Составить программу, которая формирует список L, включив в него по одному разу элементы, которые входят в список L1 но не входят в список L2
Составить программу, которая формирует список L, включив в него по одному разу элементы, которые...

получить все элементы последовательности B которые не входят в последовательность A
Привет помогите пожалуйста написать программу по другому, Даны натуральные числа n и m, целые...

Вывести на экран дисплея в алфавитном порядке все буквы, которое входят в массив по одному разу
Дан массив. Элементами массива являюся строчные латинские буквы. Вывести на экран дисплея в...


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

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

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