Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 1
Регистрация: 05.04.2010
Сообщений: 17
1

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

14.05.2010, 21:37. Просмотров 1398. Ответов 1
Метки нет (Все метки)


Дан текст на русском языке. Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово.?!?!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.05.2010, 21:37
Ответы с готовыми решениями:

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

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

Множества: Напечатать в алфавитном порядке: все гласные буквы, которые входят в каждое слово
Помогите пожалуйста исправить ошибки в программе! Задание: Дана непустая последовательность слов...

Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое четное слово
Тема: Строки. Множества. 3.2.Дан текст на русском языке. Напечатать в алфавитном порядке все...

1
80 / 80 / 36
Регистрация: 20.11.2009
Сообщений: 326
14.05.2010, 23:34 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

текст строкой задан? И про вывод уточните, не понимаю, нужно вывести все гласные из текста что ли? Или нужно, "в 1-ом слове встречаются:" <список символов>?

Добавлено через 9 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program st;
uses crt;
 const
  A=['А','а','У','у','Е','е','О','о','Э','э','Я','я','И','и','Ю','ю','Ы','ы'];
  var
  s:string;
   i:integer;
    B: set of char;
     j: char;
  BEGIN
  writeln('input text');
   readln(s);
     B:=[];
      for i:=1 to length(s) do
        if s[i] in A then B:=B+[s[i]];
 
    writeln('В тексте встретились:');
      writeln;
      for j:='А' to 'я' do
     if j in B then writeln(j);
 
    END.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.05.2010, 23:34

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

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

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

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

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


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

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

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