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

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

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

Студворк — интернет-сервис помощи студентам
Помогите пожалуйста с программой)
Дано предложение, слова которого отделены друг от друга запятыми. В алфавитном порядке
вывести на печать все строчные буквы латинского алфавита, входящие в каждое слово.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
10.02.2016, 00:45
Ответы с готовыми решениями:

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

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

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

1
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
10.02.2016, 09:52
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
10.02.2016, 09:52
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
Фото: Daniel Greenwood
kumehtar 13.11.2025
Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
PowerShell Snippets
iNNOKENTIY21 11.11.2025
Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .
PowerShell и онлайн сервисы. Валюта (floatrates.com руб.)
iNNOKENTIY21 11.11.2025
PowerShell функция floatrates-rub Примеры вызова: # Указанная валюта 'EUR' floatrates-rub -Code 'EUR' # Список имеющихся кодов валют floatrates-rub -Available function floatrates-rub {
PowerShell и онлайн сервисы. Погода (RP5.ru)
iNNOKENTIY21 11.11.2025
PowerShell функция Get-WeatherRP5rss для получения погоды с сервиса RP5 Примеры вызова Get-WeatherRP5rss с указанием id 5484 — Москва (восток, Измайлово) и переносом строки:. . .
PowerShell и онлайн сервисы. Погода (wttr)
iNNOKENTIY21 11.11.2025
PowerShell Функция для получения погоды с сервиса wttr Примеры вызова: Погода в городе Омск с прогнозом на день, можно изменить прогноз на более дней, для этого надо поменять запрос:. . .
PowerShell и онлайн сервисы. Валюта (ЦБР)
iNNOKENTIY21 11.11.2025
# Получение курса валют function cbr (] $Valutes = @('USD', 'EUR', 'CNY')) { $url = 'https:/ / www. cbr-xml-daily. ru/ daily_json. js' $data = Invoke-RestMethod -Uri $url $esc = 27 . . .
И решил я переделать этот ноут в машину для распределенных вычислений
Programma_Boinc 09.11.2025
И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .
Мысли в слух
kumehtar 07.11.2025
Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.
Новая зверюга
volvo 07.11.2025
Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru