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

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

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

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

Добавлено через 39 минут
ну помогите, хоть кто-нибудь
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.11.2010, 21:10
Ответы с готовыми решениями:

Использование множеств
Исходными данными для программы является текст - слова из строчных латинских...

Использование множеств
Вхідними даними для програми є текст - слова з рядкових латинських літер....

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

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

Разность множеств
Вот сделал задачку на тему разность множеств, криво правдо: program sets;...

6
Шутка
code code
123 / 120 / 75
Регистрация: 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 / 2
Регистрация: 26.11.2010
Сообщений: 96
26.11.2010, 21:28  [ТС] 3
а можно m1 описать в var как нибудь?????
0
Шутка
code code
123 / 120 / 75
Регистрация: 11.10.2009
Сообщений: 371
26.11.2010, 21:30 4
Цитата Сообщение от Весна Посмотреть сообщение
а можно m1 описать в var как нибудь?????
Да, конечно. У меня просто был шаблон задачки, которую я переделывал.
Pascal
1
m1:set of char;
0
Весна
7 / 7 / 2
Регистрация: 26.11.2010
Сообщений: 96
26.11.2010, 21:33  [ТС] 5
спасибо огромное
0
Puporev
Модератор
55478 / 42579 / 29428
Регистрация: 18.05.2008
Сообщений: 100,728
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 / 2
Регистрация: 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

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

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

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


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

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

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