Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Весна
7 / 7 / 3
Регистрация: 26.11.2010
Сообщений: 96
#1

Использование множеств - Pascal

26.11.2010, 21:10. Просмотров 431. Ответов 6
Метки нет (Все метки)

Такая задача: дана не пустая последовательность символов. Требуется построить и напечатать множество, элементами которого явл-ся встречающиеся в последовательности знаки препинания и буквы от 'E' до 'N'.
как вообще с этими множествами работать???????

Добавлено через 39 минут
ну помогите, хоть кто-нибудь
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.11.2010, 21:10
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Использование множеств (Pascal):

Использование множеств. Совершенное число. - Pascal
Построить множество, которое состоит из совершенных чисел в интервале от 1 до 255. (Совершенным числом называется такое число,...

Поменять местами значения множеств a и b без использования дополнительных множеств - Pascal
оставить программу, которая меняет местами значения множеств a и b без использования дополнительных множеств

Разность множеств - Pascal
Вот сделал задачку на тему разность множеств, криво правдо: program sets; uses crt; var a,b,c:set of char; s1,s2,s3:char; ...

Пересечение множеств! - Pascal
Задан некоторые набор товаров. Определить для каждого из товаров, какие из них имеются хотя бы в одном магазине, а какие не имеются ни в...

описание множеств - Pascal
суть задания такова: Опишите множества R и L, содержащие русские и латинские буквы. В цикле вводите русские и латинские буквы и выводите...

Геометрия и теория множеств - Pascal
Медианой множества точек на плоскости назовем прямую, которая делит множество на два подмножества одинаковой мощности. Найти горизонтальную...

6
Шутка
code code
123 / 120 / 29
Регистрация: 11.10.2009
Сообщений: 371
26.11.2010, 21:23 #2
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
type
mnoj = set of char;
var
m1:mnoj;
k:char;
i:integer;
j:byte;
s:string;
begin
writeln;
readln(s);
for i:=1 to length(s) do begin
   case s[i] of
     'e': m1:=m1+['e'];
     'f': m1:=m1+['f'];
     'g': m1:=m1+['g'];
     'h': m1:=m1+['h'];
     'i': m1:=m1+['i'];
     'k': m1:=m1+['k'];
     'l': m1:=m1+['l'];
     'm': m1:=m1+['m'];
     'n': m1:=m1+['n'];
     ',': m1:=m1+[','];
     '.': m1:=m1+['.'];
     ';': m1:=m1+[';'];
     '-': m1:=m1+['-'];
     ':': m1:=m1+[':'];
    end;
end;
for j:=0 to 255 do
if chr(j) in m1 then
write(chr(j),' ');
end.
Ну вот как-то так.
Проверьте, и если есть вопросы - спрашивайте.
0
Весна
7 / 7 / 3
Регистрация: 26.11.2010
Сообщений: 96
26.11.2010, 21:28  [ТС] #3
а можно m1 описать в var как нибудь?????
0
Шутка
code code
123 / 120 / 29
Регистрация: 11.10.2009
Сообщений: 371
26.11.2010, 21:30 #4
Цитата Сообщение от Весна Посмотреть сообщение
а можно m1 описать в var как нибудь?????
Да, конечно. У меня просто был шаблон задачки, которую я переделывал.
Pascal
1
m1:set of char;
0
Весна
7 / 7 / 3
Регистрация: 26.11.2010
Сообщений: 96
26.11.2010, 21:33  [ТС] #5
спасибо огромное
0
Puporev
Модератор
54019 / 41652 / 14731
Регистрация: 18.05.2008
Сообщений: 97,917
26.11.2010, 21:41 #6
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
uses crt;
type mnz=set of char;
const ds=['.',',',' ',';',':','?','!','-','E'..'N'];
var s:string;
    m:mnz;
    i:byte;
    c:char;
begin
clrscr;
m:=[];
writeln('Введите последовательность символов, окончание ввода 0:');
repeat
read(c);//вводим в строку
if c in ds then m:=m+[c];
until c='0';
readln;//ввели 0, жмем Enter
if m=[] then write('В последовательности нет знаков препинания и букв E..N')
else
 begin
  writeln('Полученное множество знаков препинания и букв E..N');
  for c:='!' to 'N' do
  if c in m then write(c);
 end;
readln
end.
0
Весна
7 / 7 / 3
Регистрация: 26.11.2010
Сообщений: 96
26.11.2010, 21:48  [ТС] #7
спасибо
0
26.11.2010, 21:48
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.11.2010, 21:48
Привет! Вот еще темы с ответами:

Массив множеств на паскале - Pascal
Дано N чисел: 1) найти цифры, которые есть во всех числах 2) найти цифры, которые есть только в одном числе. Использовать массив...

Программирование с использованием множеств. - Pascal
Дано 30 целых чисел от 1 до 20. Подсчитать, сколько среди них чисел, делящихся на 3.

использованием множеств и строк - Pascal
Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены пробелами. Вывести на экран порядковый номер...

Программирование с использованием множеств - Pascal
Привет всем!Ребят помогите решить. В восточном календаре года носят названия животных: крысы, быка, тигра, зайца, дракона, змеи,...


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

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

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