Задача по проверке слов в предложении., Проблема в выделении слова из текста. Опции

[kost85]

Здравсвуйте.
Есть такая задача.
Вводится строка. Требуется в ней перебрать все слова и проверить их на что-то. Другими словами вычленить слова из строки.
Сначала забивал все слова из строчки в (array [1..n] of string) - все было отлично. Теперь препод хочет что бы я забивал каждое слово в другую строку и проверял ее. Вот не пойму, как сразу в цикле перебора строки получать слово , записывать его в перем. типа string , затем проверять(ну это все под контр-ем), а затем сбрасывать и снова записывать очередное слово...
Может кто сталкивался.
Заранее огромное спасибо.

[Артемий]

Теперь препод хочет что бы я забивал каждое слово в другую строку и проверял ее. Вот не пойму, как сразу в цикле перебора строки получать слово , записывать его в перем. типа string , затем проверять(ну это все под контр-ем), а затем сбрасывать и снова записывать очередное слово...

Давай посмотрим что у тебя..
Ты используешь алгоритм repeat .. until. Теперь посмотри, что у тебя получилось:

var S,word:string;
    i,j: integer;
begin
clrscr;
write('Sentence>> : ');
readln(S);
repeat
  repeat
   if s[1] = ' ' then delete(s,1,1);{<<---Зачем? Ведь ты не чистил строку!}
  until s[1] <> ' ';
if s <> '' then 
    if pos(' ',s) > 0 then word := copy(s,1,pos(' ',s)-1)    {<<---Допустим..Но получается бесконечный цикл, ведь строка не отчищается!Он берет ближайший пробел!}
     else word := s; {<<---И тут тоже..Досюда в твоем и не дойдет..}                                                      
{вот мы получили наше слово и далее здесь же можем делать 
  с ним чё хочешь, любые условия ставить и т.д}  
  {При повторение цикла на этом этапе мы будем получать очередное слово в предложение} {<<---Да ну?}
until S = ''; {<<----И когда она по-твоему становится пустой?}
end;

Раз взялся драть s так и делай:

var S,word:string;
    i,j: integer;
begin
write('Sentence>> : ');
readln(S);
repeat
  repeat
   if s[1] = ' ' then delete(s,1,1);
  until s[1] <> ' ';
if s <> '' then begin
    if pos(' ',s) > 0 then begin
     word := copy(s,1,pos(' ',s)-1);
     delete(s,1,pos(' ',s)-1);
     end;
     if pos(' ',s) = 0 then begin
     word := s; s:='';
     end;
    end;
{вот мы получили наше слово и далее здесь же можем делать
  с ним чё хочешь, любые условия ставить и т.д}
  {При повторение цикла на этом этапе мы будем получать очередное слово в предложение}
until S = '';
readln