Обработка символьных данных и строк Опции

[Kiass]

Задав с клавиатуры последовательность символов, реализовать обработку ее, как указано в варианте. Исходные данные задать самостоятельно, учитывая специфику конкретного варианта.
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству: слово совпадает с конечным отрезком латинского алфавита (z, yz, xyz и т.д.).

[Kiass]

Верно, прошу прощения. Только покидать Вас я еще не собираюсь
Посмотрите "ПОЖАЛУЙСТА"

Множество, как я поняла, должно содержать
M:=['z','yz','xyz','wxyz','vwxyz','uvwxyz','tuvwxyz','stuvwxyz'];

Только все равно "фигня" получается, т.е. не работает.

program Project1;

{$APPTYPE CONSOLE}

  var

     M:Set Of char;
    first, st, st2, st3:string;
   i:integer;
begin
M:=['s'..'z'];
first:='';
writeln('vvedite stroku');
readln(st);
st:=' ';
for i:=1 to length(st) do
    begin
    if (st[i] <> ' ') then st2:=st2+st[i];
    if st[i] = ' ' then
       begin
            if st2[i] in ['M'] then
            begin
             st3:=st3+st2;
             st2:=' ';
             end
            else
            begin
             st2:='';
             end;
if st2[i] in ['M'] then
st3:=st3+st2;
writeln('Slova: ',st3);
readln;

       end;
       end;
end.

[Lapp]

Верно, прошу прощения. Только покидать Вас я еще не собираюсь

Ну и хорошо ).

Множество, как я поняла, должно содержать
M:=['z','yz','xyz','wxyz','vwxyz','uvwxyz','tuvwxyz','stuvwxyz'];

То есть, это слова, составляющие строку ввода? Тогда их можно задать либо в файле, либо по-простому - строковой константой )). Потому что вводить каждый раз при отладке такой в высшей степени осмысленный текст - зафигачишься..

Только все равно "фигня" получается, т.е. не работает.

Ну, ессно.. Ты сразу после ввода стираешь входную строку (закладываешь в нее пробел). Ну, и не только это.. Ты довольно сильно отошла от того, что написал Rian. И вставила что-то про 'M' (что явно к делу не относится, следовательно - содрала кусок с чужой задачи)).

Можно вернуться к варианту Rian'а. Это будет лучше еще и с той т.з., что я сейчас отвалюсь в постель (у меня обнаружилась t=101) и буду тихо себе грипповать.. Но у него там не все чисто.. Rian, с твоим кодом могут быть проблемы при длине строки не 32 символа.. Я бы все же работал с Pos. Типа так

const
  l= 8;
  abc: string[l]= 'abcdefghijklmnopqrstuvwxyz';
  s: string= 'z  yz  xyz  wxyz  vwxyz  uvwxyz  tuvwxyz  stuvwxyz';

...

  // подготовка строки
  while (Length(s)>0) and (s[1]=' ') do Delete(s,1,1);    // удаляем лидирующие пробелы
  while (Length(s)>0) and (s[Length(s)]=' ') do Delete(s,1,1);  // удаляем оконечные пробелы
  while Pos('  ',s)>0 do Delete(s,Pos('  ',s),1);  // удаляем лишние пробелы из середины
  s:= s+' ';  // добавляем пробел в конец для единообразия обработки

  w1:= Copy(s,1,Pos(' ',s)-1);    // копируем первое слово в w1
  Delete(s,1,Pos(' ',s);    // удаляем первое слово из строки
  while Length(s)>0 do begin
    w:= Copy(s,1,Pos(' ',s)-1);    // копируем следующее слово в w
    Delete(s,1,Pos(' ',s);    // удаляем это слово из строки
    if (w<>w1) and (Pos(w,abc)=Length(abc)-Length(w))+1) then  // проверка условия вывода
      writeln(w);
  end;
   ....

Как-то так.. Очень извиняюсь за сумбурность. Rian, ты либо поправь свой код, либо используй мой кусок. Если что не так - звиняйте, мозги крутятся со скрипом, раз в 5 медленнее, даром что горячие...
Все, я отвалился..

Kiass, ты спрашивай про все, что неясно.





Добавлено через 3 мин.
да, еще одно: если все слова по 8 символов, то 50 слов с пробелами это 450. Нужно использовать длинные строки. Kiass, ты правда используешь Delphi или это случайно попало (я имею в виду {$APPTYPE CONSOLE})? Ответь, пожалуйста, какой у тебя компилятор на самом деле.

[Kiass]

Мне нужно на делфи.
и 'z yz xyz wxyz vwxyz uvwxyz tuvwxyz stuvwxyz'; это не строка ввода. Строку по-идеи нужно задавать с клавиатуры, а на эти как бы слова должно оканчиваться вводимое слово, и если в слове есть последовательность из этих букв, то слово выводится на экран, если нет то нет.

P.S. Сначала я задание не поняла, теперь я в нем запуталась.

[Rian]

Мне нужно на делфи.

вроде все букафки, еще что-то?

procedure TForm1.Button1Click(Sender: TObject);
var
st,abc,sub,first:string;
i,x:integer;
begin
first:='';
abc:='abcdefghijklmnopqrstuvwxyz';
st:='xyz xvn dfghnv stuvwxyz klmn z rthrt xz yzxyz abc yz.';

st:=' '+st;  // готовим строку для обработки 

for i:=1 to length(st) do
  if (st[i]<>' ') and (st[i-1]=' ')  then begin
    for x:=i+1 to length(st) do
      if  (st[x]=' ') or (st[x]='.')  then  begin
        sub:=copy(st,i,x-i);

        if first='' then first:=sub;

         if (pos(sub, abc) = length(abc) - length(sub) + 1)   //проверяем на конец абс
         and (sub<>first)                                 //не равно первому слову
         then memo1.Lines.Add(sub);                      //выодим

      break;
      end

end;

end;

Можно вернуться к варианту Rian'а. Это будет лучше еще и с той т.з., что я сейчас отвалюсь в постель (у меня обнаружилась t=101) и буду тихо себе грипповать.. Но у него там не все чисто.. Rian, с твоим кодом могут быть проблемы при длине строки не 32 символа.. Я бы все же работал с Pos. Типа так

отрезать кусок строки это можно, но не тяжеловат ли метод?
а какие проблемы с длиной больше 32 символа?

ЗЫ конечно только не "грипповать", а набираться сил!!!)