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

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

17.05.2012, 10:40. Показов 3537. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста решить задачу....

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

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

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

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

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

1
Нет ТЗ - давай досвидания
745 / 376 / 64
Регистрация: 01.12.2011
Сообщений: 2,250
17.05.2012, 11:02 2
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

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
var
  s,alf,gls:string;
  i,j:integer;
  c:char;
begin
  alf:='ёуеыаоэяию';
  gls:='';
  readln(s);
  for i:=1 to length(s) do
    for j:=1 to length(alf) do
      if s[i]=alf[j] then
        gls:=gls+s[i];
  
  writeln(gls);
  
  for i:=1 to length(gls) do
    for j:=length(gls) downto 2 do
      begin
        c:=gls[j];
        if gls[j]<gls[j-1] then
          begin
            gls[j]:=gls[j-1];
            gls[j-1]:=c;
          end;
      end;
 
  writeln(gls);
  readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.05.2012, 11:02

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

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

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

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

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


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

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

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