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

[fenix163]

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

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

Он вродев с троке меняет
Превит маши Приват мише

[phomm]

а не кажется Вам, что ТС показал пример, где гласные меняются туда-сюда пословно, а у Вас вся строка ведь преобразуется, значит надо выделять лексему.. ну хотя бы по 2 обрамляющим пробелам

[fenix163]

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

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

Он вроде в строке меняет
Превит маши Приват мише

[Лубышев]

Копированно:

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

Получилось

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

Потом это скопировал и перевел еще раз - встало все на места. проверь внимательно сам по буквам

[Лубышев]

А надо по слову что ли? так блин это фигня. еще одну функцию сделать которая разбивает на слова строку. Че то в лом уже писать. Сплитами в Стринглистах умеешь пользоваться? разбить можно так что в каждой строке по одному слову да прогнать и не париться...ну или уламывайте меня или кого то другого чтоб чуть чуть дописал код

[fenix163]

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

Копированно:

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

Получилось

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

Потом это скопировал и перевел еще раз - встало все на места. проверь внимательно сам по буквам

С одним словом все работает
нупиловона-наполовину.

[fenix163]

Сообщение от fenix163

С одним словом все работает
нупиловона-наполовину.

Нужно чтоб в каждом слове гласные менял, а не в строке.

[fenix163]

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

А надо по слову что ли? так блин это фигня. еще одну функцию сделать которая разбивает на слова строку. Че то в лом уже писать. Сплитами в Стринглистах умеешь пользоваться? разбить можно так что в каждой строке по одному слову да прогнать и не париться...ну или уламывайте меня или кого то другого чтоб чуть чуть дописал код

Напишите пожалуйста... Завтра пересдача((

[Лубышев]

Ща кое че навоял

Простейшая самописная функция деления строки на слова по пробелам

function ExtractWord(s:string):TstringList;
var i:integer;
buffer:string;
begin
  result:=TstringList.Create;
  buffer:='';
  i:=1;
  while i<=length(s) do
  begin
    if s[i]<>' ' then buffer:=buffer+s[i] else
    begin
      if buffer<>'' then result.Add(buffer);
      buffer:='';
    end;
    inc(i);
  end;
  if buffer<>'' then result.Add(buffer);
end;

а чтобы назад собрать в строку вот такая функция

Function monolit(List:TstringList):string;
var i:integer;
begin
  for i:=0 to List.Count do result:=result+List[i]+' ';
end;

ща в прогу привенчу ее

[fenix163]

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

Ща кое че навоял

Простейшая самописная функция деления строки на слова по пробелам

function ExtractWord(s:string):TstringList;
var i:integer;
buffer:string;
begin
  result:=TstringList.Create;
  buffer:='';
  i:=1;
  while i<=length(s) do
  begin
    if s[i]<>' ' then buffer:=buffer+s[i] else
    begin
      if buffer<>'' then result.Add(buffer);
      buffer:='';
    end;
    inc(i);
  end;
  if buffer<>'' then result.Add(buffer);
end;

а чтобы назад собрать в строку вот такая функция

Function monolit(List:TstringList):string;
var i:integer;
begin
  for i:=0 to List.Count do result:=result+List[i]+' ';
end;

ща в прогу привенчу ее

Вы тоже из Самары?