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

Выдать все гласные буквы в порядке латинского алфавита

22.12.2013, 18:38. Показов 914. Ответов 2
Метки нет (Все метки)

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


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
const
st=['a','e','i','o','u','y'', 'x'..'z'];
var
s:string;
i,k:integer;
begin
textcolor(red);
writeln('vvedit text');
readln(s);
for i:=1 to length(s) do
if s[i] in st then write(s[i]:2);
readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.12.2013, 18:38
Ответы с готовыми решениями:

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

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

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

В строку SL перенести все буквы латинского алфавита, а в строку SU - все буквы русского алфавита
Ввести с клавиатуры строку S длиной до 80 символов из букв латинского и русского алфавитов. В...

2
Почетный модератор
64253 / 47553 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
22.12.2013, 19:21 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
const
st=['a','e','i','o','u','y'];
var s:string;
    i:integer;
    c:char;
begin
textcolor(red);
writeln('vvedit text');
readln(s);
for c:='a' to 'y' do
for i:=1 to length(s) do
if (s[i] in st)and(s[i]=c) then write(s[i]:2);
readln;
end.
1
0 / 0 / 0
Регистрация: 22.12.2013
Сообщений: 8
22.12.2013, 19:39  [ТС] 3
спасибо большое
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2013, 19:39
Помогаю со студенческими работами здесь

Заменить все малые буквы латинского алфавита на соответствующие большие буквы
Помогите плиз программку написать. Вот условие: Заменить все малые буквы латинского алфавита на...

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

Составить программу, которая во введенном тексте удаляет все гласные буквы латинского алфавита
Составить программу, которая во введенном тексте удаляет все гласные буквы латинского алфавита,...

Написать программу, которая формирует множество символов Y и выделяет из него подмножество Y1 : гласные буквы латинского алфавита, входящие в Y.
Помогите.Срочно!!!!! Написать программу, которая формирует множество символов Y и выделяет из него...


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

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

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