Выполнение последовательности запросов вида ADD num, PRESENT num и COUNT (без параметра)

@ТатьянаЮрьевна · Регистрация: 04.12.2017

Author24 — интернет-сервис помощи студентам

Напишите программу, которая будет выполнять последовательность запросов вида ADD num, PRESENT num и COUNT (без параметра). Программу обязательно следует писать с использованием шаблонного типа set.

Выполнение каждого запроса вида ADD num должно добавлять элемент num во множество (если такой элемент уже есть, добавление ещё одной копии не изменяет множество), на экран при этом ничего не выводится.

При выполнении каждого запроса вида PRESENT num должно выдаваться сообщение «YES» или «NO» (большими буквами, в отдельной строке), соответственно тому, есть ли такой элемент во множестве; значение множества при этом не изменяется.

При выполнении каждого запроса вида COUNT должна выдаваться на экран в отдельной строке текущее количество различных элементов в множестве; значение множества при этом не изменяется.

Входные данные
В первой строке стандартного входного потока задано количество запросов N (1 < N < 100000), далее следуют N строк, каждая из которых содержит по одному запросу согласно описанного формата.

Значения чисел не превышают по модулю 100000000.

Выходные данные
Выводите на стандартный выход (экран) в отдельных строках результаты запросов PRESENT и COUNT; на запросы ADD ничего выводить не надо.

Примеры
входные данные
7
ADD 5
ADD 7
COUNT
PRESENT 3
PRESENT 5
ADD 3
COUNT
выходные данные
2
NO
YES
3

@JuriiMW · 21.03.2019, 14:22

Сообщение от ТатьянаЮрьевна

Значения чисел не превышают по модулю 100000000

Это что-за паскаль у вас такой?
В стандарте «шаблонного типа set» можно хранить только 256 значений!

@ТатьянаЮрьевна · 21.03.2019, 15:53 **[ТС]**

Можете попробовать решить хоть как?

@JuriiMW · 21.03.2019, 16:27

Pascal

const ans : array [Boolean] of String[3] = ('NO','YES');
begin
  var L := New List<integer>;
  loop ReadLnInteger do
    begin
      var w := ReadLnString.ToWords;
      case w[0] of
        'ADD' : if Not L.Contains(StrToInt(w[1])) then L.Add(StrToInt(w[1]));
        'PRESENT' : ans[L.Contains(StrToInt(w[1]))].Println;
        'COUNT' : L.Count.Println;
      end;
    end;
end.

@ТатьянаЮрьевна 1 / 1 / 0 Регистрация: 04.12.2017 Сообщений: 54
		1
	Выполнение последовательности запросов вида ADD num, PRESENT num и COUNT (без параметра) 19.03.2019, 19:04. Показов 1679. Ответов 3 Метки set, множества, структура (Все метки) Напишите программу, которая будет выполнять последовательность запросов вида ADD num, PRESENT num и COUNT (без параметра). Программу обязательно следует писать с использованием шаблонного типа set. Выполнение каждого запроса вида ADD num должно добавлять элемент num во множество (если такой элемент уже есть, добавление ещё одной копии не изменяет множество), на экран при этом ничего не выводится. При выполнении каждого запроса вида PRESENT num должно выдаваться сообщение «YES» или «NO» (большими буквами, в отдельной строке), соответственно тому, есть ли такой элемент во множестве; значение множества при этом не изменяется. При выполнении каждого запроса вида COUNT должна выдаваться на экран в отдельной строке текущее количество различных элементов в множестве; значение множества при этом не изменяется. Входные данные В первой строке стандартного входного потока задано количество запросов N (1 < N < 100000), далее следуют N строк, каждая из которых содержит по одному запросу согласно описанного формата. Значения чисел не превышают по модулю 100000000. Выходные данные Выводите на стандартный выход (экран) в отдельных строках результаты запросов PRESENT и COUNT; на запросы ADD ничего выводить не надо. Примеры входные данные 7 ADD 5 ADD 7 COUNT PRESENT 3 PRESENT 5 ADD 3 COUNT выходные данные 2 NO YES 3 0

@JuriiMW 5084 / 2655 / 2350 Регистрация: 10.12.2014 Сообщений: 10,048
	21.03.2019, 14:22	2
	Сообщение от ТатьянаЮрьевна Значения чисел не превышают по модулю 100000000 Это что-за паскаль у вас такой? В стандарте «шаблонного типа set» можно хранить только 256 значений! 0

@ТатьянаЮрьевна 1 / 1 / 0 Регистрация: 04.12.2017 Сообщений: 54
	21.03.2019, 15:53 [ТС]	3
	Можете попробовать решить хоть как? 0

	21.03.2019, 16:27