0 / 0 / 0
Регистрация: 10.02.2016
Сообщений: 3
1

В алфавитном порядке вывести на печать все строчные буквы латинского алфавита, входящие в каждое слово

10.02.2016, 00:45. Показов 1576. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста с программой)
Дано предложение, слова которого отделены друг от друга запятыми. В алфавитном порядке
вывести на печать все строчные буквы латинского алфавита, входящие в каждое слово.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.02.2016, 00:45
Ответы с готовыми решениями:

Вывести в алфавитном порядке все гласные буквы, входящие в каждое слово строки
Вывести слова,в которых заменить каждую БОЛЬШУЮ БУКВУ ОДНО-ИМЕННОЙ МАЛОЙ; вывести в алфавитном...

Вывести на экран все строчные буквы латинского алфавита в обратном порядке
1.Вывести на экран минимальное значение двух чисел. 2.Для последовательности целых чисел a,b,c все...

Вывести в порядке возрастания кодов все строчные буквы латинского алфавита
Помогите пожалуйста зарешать Выведите в порядке возрастания кодов все строчные буквы латинского...

Вывести в алфавитном порядке гласные буквы входящие в каждое слово текста
Дана непустая последовательность слов из строчных русских букв; между соседними словами – запятая,...

1
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
10.02.2016, 09:52 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
34
35
36
37
38
39
40
41
42
43
44
uses crt;
const lb=['a'..'z'];
type mnoz=set of char;
 
procedure Mnozestvo(s:string;var m:mnoz);
var i:byte;
begin
m:=[];
for i:=1 to length(s) do
if s[i] in lb then m:=m+[s[i]];
end;
 
var s,s1:string;
    m1,mi:mnoz;
    i:byte;
    c:char;
begin
clrscr;
writeln('Введите предложение, слова которого отделены запятыми:');
readln(s);
s:=s+',';{добавим запятую в конец}
while pos(',,',s)>0 do {удалим лишние запятые}
delete(s, pos(',,',s),1);
s1:=copy(s,1,pos(',',s));
Mnozestvo(s1,m1); {составим множество из бккв первого слова}
delete(s,1,pos(',',s));{удалим его}
while pos(',',s)>0 do{пока есть запятые}
 begin
  s1:=copy(s,1,pos(',',s)-1);{берем следующее слово}
  Mnozestvo(s1,mi);{составляем множетво}
  m1:=m1*mi;{получаем пересечение существующего множества и нового}
  delete(s,1,pos(',',s));{удаляем слово}
 end;
if m1=[] then{если множество пустое}
 begin
  write('Указанных по условию букв нет!');
  readln;
  exit;
 end;
writeln('Множество указанных по условию букв:');
for c:='a' to 'z' do
if c in m1 then write(c,' ');
readln
end.
0
10.02.2016, 09:52
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.02.2016, 09:52
Помогаю со студенческими работами здесь

Вывести из строки на печать только строчные буквы латинского алфавита
1)дана строка из 20 символов. Вывести из нее на печать только строчные буквы латинского алфавита. ...

В алфавитном порядке порядке напечатать (по одному разу) все строчные русские буквы, входящие в заданный текст
С ( Си ) Вводится текст, за которым следует точка. В алфавитном порядке порядке напечатать ( по...

Выведите в порядке возрастания кодов все строчные буквы латинского алфавита, имеющиеся в текстовом файле
Выведите в порядке возрастания кодов все строчные буквы латинского алфавита, имеющиеся в текстовом...

В алфавитном порядке напечатать (по разу) все строчные русские буквы, входящие в текст
Вводится текст, за которым следует точка. В алфавитном порядке напечатать (по разу) все строчные...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru