Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
ApocaU
0 / 0 / 6
Регистрация: 10.01.2013
Сообщений: 74
#1

Построить множество символов в строке, встречающихся в ней ровно 2 раза - Turbo Pascal

22.05.2013, 16:53. Просмотров 499. Ответов 1
Метки нет (Все метки)

вводится строка.пройдя по данной строке 1 раз(без вложенных циклов) построить множество символов,встречающихся в ней ровно 2 раза.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2013, 16:53
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Построить множество символов в строке, встречающихся в ней ровно 2 раза (Turbo Pascal):

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

Составьте программу вычисления суммы элементов одномерного массива А(N), встречающихся в массиве B(N) ровно два раза.
Составьте программу вычисления суммы элементов одномерного массива А(N),...

Вставить в строке знак «!» после символов, принадлежащих множеству и встречающихся в строке 2 раза
3)Дана строка и множество символов. Вставить в строке знак «!» после символов,...

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

Построить и напечатать множество, элементами которой есть символы 0..9 встречающихся в последовательности
Дана последовательность символов. Построить и напечатать множество, элементами...

Создать множество букв, встречающихся в заданной строке, и определить ее мощность
Создать множество букв, встречающихся в заданной строке, и определить ее...

1
Puporev
Модератор
54149 / 41782 / 28889
Регистрация: 18.05.2008
Сообщений: 98,331
22.05.2013, 17:43 #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
uses crt;
var s:string;
    m1,m2,m3:set of char;
    i:byte;
begin
clrscr;
writeln('Введите строку');
readln(s);
m1:=[];
m2:=[];
m3:=[];
for i:=1 to length(s) do
if not(s[i]in m1) then m1:=m1+[s[i]]
else if (s[i] in m1)and not(s[i]in m2) then m2:=m2+[s[i]]
else if(s[i] in m2) then m3:=m3+[s[i]];
m2:=m2-m3;
if m2=[] then write('Нет символов, встречающихся ровно 2 раза')
else
 begin
  writeln('Символы, встречающиеся ровно 2 раза');
  for i:=32 to 255 do
  if chr(i) in m2 then write(chr(i));
 end;
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2013, 17:43
Привет! Вот еще темы с решениями:

Дана строка символов. Группы символов в ней между группами пробелов считаются словами. Определить сколько слов содержат ровно три буквы "е".
Дана строка символов. Группы символов в ней между группами пробелов считаются...

Дана последовательность символов, построить и напечатать множество
Дана последовательность символов, построить и напечатать множество, элементами...

Дана последовательность символов, построить и напечатать множество
Помогите решить задачку: Дана последовательность символов, построить и...

Создать множество, которое состоит из символов, не входящих во множество символов вашего имени
Пожалуйста помогите составить программу,на тему множества. Из множества...


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

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

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