С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Nikelll992
1 / 1 / 0
Регистрация: 25.10.2010
Сообщений: 48
1

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

30.11.2010, 17:49. Просмотров 725. Ответов 2
Метки нет (Все метки)

Составить программу печати по одному разу в алфавитном порядке всех строчных русских гласных букв, входящих в заданный текст.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.11.2010, 17:49
Ответы с готовыми решениями:

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

Вывести все буквы, входящие в текст по одному разу
6. Дан текст, состоящий из латинских букв. Вывести все буквы, входящие в текст по одному разу.

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

Массивы. Строки. Напечатать все буквы, входящие в текст по одному разу
1.Создайте массив A c помощью генератора случайных чисел с вещественными элементами от -10 до 10 и...

Напечатать текст, подчеркивая все входящие в него заглавные и строчные русские буквы
Задание: "Дан текст. Напечатать этот текст, подчеркивая ( ставя минусы в соответ- ствующих...

2
Puporev
Модератор
55491 / 42587 / 29434
Регистрация: 18.05.2008
Сообщений: 100,740
30.11.2010, 18:11 2
Лучший ответ Сообщение было отмечено Nikelll992 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
const gl=['а','е','ё','и','о','у','ы','э','ю','я'];
var m:set of char;
    s:string;
    i:byte;
    c:char;
begin
writeln('Введите текст русскими буквами:');
readln(s);
m:=[];
for i:=1 to length(s) do
if s[i] in gl then m:=m+[s[i]];
writeln('Русские строчные гласные, входящие в текст:');
if m=[] then write('В тексте нет таких букв')
else
for c:='а' to 'я' do
if c in m then write(c,' ');
end.
1
Nikelll992
1 / 1 / 0
Регистрация: 25.10.2010
Сообщений: 48
30.11.2010, 18:31  [ТС] 3
спасибо-)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.11.2010, 18:31

Напечатать по одному разу все буквы, входящие в строку
С клавиатуры вводится строка. Напечатать по одному разу все буквы, входящие в строку. При решении...

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

Дан текст из малых латинских букв. Напечатать по разу все буквы, входящие в этот текст
Имя входного файла zmn8.in Имя выходного файла zmn8.out Дан текст из малых латинских букв....


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

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

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