Paskal. Строки

[RUSSTUDENT]

Решить задачу со STRING'ом. Условие:
Удалить из текста слова, совпадающие с конечным отрезком латинского алфавита: z, yz, xyz и т.д. до uvwxyz.

[Сергeй]

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

Решить задачу со STRING'ом. Условие:
Удалить из текста слова, совпадающие с конечным отрезком латинского алфавита: z, yz, xyz и т.д. до uvwxyz.

Вопрос на засыпку:

ukoz!!!!!!!! - это слово ?
А Nimbuzz)))) ?

[Serge_Bliznykov]

ukoz!!!!!!!! - это слово ?
А Nimbuzz)))) ?

Тезка, не задавайте ненужных вопросов!
Безусловно, это слова! Только удалять их НЕ НУЖНО, т.к. они не соответствуют критерию удаляения (см. задание!)


RUSSTUDENT, поищи, на форуме неоднократно были примеры, как разобрать строку на отдельные слова (имхо, в твоём случае словом можно считать группу букв, отделённых пробелом). Дальше просто,
сравниваешь слово побуквенно с нужными буковками

i:=1;
CurBukva := chr( ord('z') - length(CurrentSlovo) + 1);
while (i<=Length(CurrentSlovo)) and (CurrentSlovo[i]=CurBukva) do begin
  inc(i);
  CurBukva := chr(ord(CurBukva)+1);
end;
if i>Length(CurrentSlovo) then значит текущее слово (CurrentSlovo) соответствует нужному критерию и его можно удалять...

[Stilet]

Хы... прикольная задачка чтоб побамить...
Предлагаю такой алгоритм:

   var e,s:string;i:integer;b:boolean;
begin             {$o-}
 s:='dont use ucoz und Nimbuzz ';e:='';
 i:=1;while(i<=length(s)) do begin
  if s[i]<>' ' then begin
   e:=e+s[i];
   b:=(pos(s[i],'uvwxyz')<>0);
  end  else begin
   if not b then write(e+' ');
   e:='';
  end;
  inc(i);
 end;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Надеюсь кто-то найдет в нем ошибки и оптимизирует еще лучше