Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.12.2006, 18:14   #1
светлана
 
Регистрация: 19.12.2006
Сообщений: 3
Вопрос Help! Pascal!

Дан текст, за которым следует точка. В алфавитном порядке напечатать все строчные латинские гласные буквы (a, e, i, o, u), входящие в этот текст.Помогите плиззз!
светлана вне форума Ответить с цитированием
Старый 21.12.2006, 18:20   #2
AVer
Андрей
Форумчанин
 
Аватар для AVer
 
Регистрация: 21.11.2006
Сообщений: 457
По умолчанию

Посимвольно забиваешь текст в массив с проверкой повторений. Потом сортируешь массив условием "если код символа с №I больше чем код символа №I+1, тогда поменять местами". Выводишь массив на экран.
ICQ: 5311314
[SIGPIC][/SIGPIC]
AVer вне форума Ответить с цитированием
Старый 21.12.2006, 19:59   #3
светлана
 
Регистрация: 19.12.2006
Сообщений: 3
По умолчанию

Так сложно написать одну задачку бедной девушке!
светлана вне форума Ответить с цитированием
Старый 21.12.2006, 22:10   #4
AVer
Андрей
Форумчанин
 
Аватар для AVer
 
Регистрация: 21.11.2006
Сообщений: 457
По умолчанию

Цитата:
Сообщение от светлана Посмотреть сообщение
Так сложно написать одну задачку бедной девушке!
Я думаю, такой подход не приветствуется... Девушка или не девушка, а вот так вывалить задание и сразу получить полный ответ получается не всегда...
Код:
Var S:String;
    K,I,N:Integer;
    A:Array[1..5] of Char;
    M:Set of Char;
    Z:Boolean;
    C:Char;
Begin
M:=['a','e','i','o','u'];
N:=1;
ReadLn(S);
For i:=1 to length(S) do
if s[i] in M then
begin
Z:=False;
For k:=1 to 5 do
if A[K]=S[i] then Z:=true;
If not Z then
begin
A[N]:=S[i];
Inc(N);
end;
end;
For i:=1 to N-2 do
if Ord(A[i]) > Ord(A[i+1]) then
begin
C:=A[i];
A[i]:=A[i+1];
A[i+1]:=C;
end;
i:=1;
for i:=1 to n-1 do
begin
Write(A[i]:2);
End;
Readln;
end.
ICQ: 5311314
[SIGPIC][/SIGPIC]
AVer вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
БД на Pascal Умелец Помощь студентам 24 16.09.2010 20:44
Pascal Nadjuha Помощь студентам 2 18.06.2008 18:13
Need help, Pascal Бедный студент Помощь студентам 0 31.05.2008 01:38
Pascal bladebreaker Помощь студентам 2 23.05.2007 22:15