Перестановка гласных букв в обратном порядке

[fenix163]

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

[Serge_Bliznykov]

Какой язык программирования?
и в чём сложность?
Разбирайте текст на отдельные слова. В каждом слове меняйте положение гласных букв. Пишите выходные слова. Все небуквенные символы пишутся без всяких преобразований...

Что именно в алгоритме вызывает сложность ?

[unbanned]

можно процедуру написать... замены глассных))

[fenix163]

Pascal(Delphi)
В алгоритме немного понятно..но с реализацией не очень..не очень разбираюсь в языках программирования(((

[Лубышев]

Итак, первым делом машине надо сказать какие символы глассные а какие нет. для этого пишем функцию которая выдает true если гласная буква, иначе false.

function Space(ch:char):boolean;
const s=['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э','ю','я','А', 'Е', 'Ё', 'И', 'О', 'У', 'Ы', 'Э','Ю','Я','a','e','i','o','u','A','E','I','O','U'];
begin
  if ch in s then result:=true else result:=false;
end;

После этого мы пишем еще одну функцию, которая копирует из строки все глассные в другую строку по порядку

function GlasString(s:string):string;
var i:integer;
begin
  result:='';
  for i:=1 to length(s) do
  begin
    if Space(s[i])=true then result:=result+s[i];
  end;
end;

т.е. если гласная то копируем в строчку, иначе пропускаем.

После этого пишем третью функцию, которая сливает все следующим образом:
если текущий символ не гласная то копируем, иначе копируем из строки с глассными начиная с конца

 
function Sliv(s1:string;s2:string):string;
var i,j:integer;
begin
  j:=length(s2);
  i:=1;
  while i<=length(s1) do
  begin
    if Space(s1[i])=false then result:=result+s1[i] else
    begin
      result:=result+s2[j];
      dec(j);
    end;
    inc(i);
  end;
end;

Все теперь просто юзаем эти функции как хотим...

Прмер юзания и сами функции в готовом проекте выкладываю)

[fenix163]

Сообщение от Лубышев

не сцыте дайте 5 минут и напишу вам)

ок))))))))))))))))))))))))))))

[Serge_Bliznykov]

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

[Лубышев]

Держи прогу с кодом.

Правильно? тока давай быстрее ото спать ща пойду.

PS/ опс видимо не очень знаю английский алфавит, какие то буквы пропустил "Y"

[fenix163]

Сообщение от Лубышев

Держи прогу с кодом.

Правильно? тока давай быстрее ото спать ща пойду.

PS/ опс видимо не очень знаю английский алфавит, какие то буквы пропустил "Y"

Что-то не так..вот что выдает ..
Основы
Глово 2 есследИвеноа - пиряд взламам
Глову 3. Порало о кинтраль нод дистапам
Гливе 4. Сецияльнои анжаняраа
Глову 5. Кампьотере общоствоннюге дыстапа
Глево 6. Хикарства не мостнаста
Глову 7 Хакарстве но дама
Гловя 8. еликтронниЭ деско ыбъевланай
Глево 9. Чта греховно , о чта нат
Глуви 10. Чты долать , кегда во внатра
Главо 11. ак на пыпость в лапе закана
Главе 12. Ваша бедещуу в кечества хекара ..
Глоссарий

[Лубышев]

А ты сам текст видел? он наполовину правильно написан на половину нет. для проверки правильности напиши че нить сам а не этот текст.... а чтобы потом проверить скопируй из второго окна в первое и должно все вернуться на свои места - если да то все правильно а текст кривой предоставлен.