Строки и слова: Паскаль

[Gray_Jagger]

Помогите разобраться с процедурой "выковыривания" слов из текста.

Как примерно я это себе представляю: берем строку, читаем посимвольно, если символ является пробелом, то начинаем добавлять следующие после него символы в другую строку, и так до следующего пробела.

var a,b:string;
     i,j:integer;
begin
readln(a);
for i:=1 to length(a) do
 begin
  if a[i]=' ' then do
   begin
    j:=i until a[i]=' '
    b[i]:=a[j];
   end;
 end;
end.

С оператором цикла until работаю редко, так что скорее всего цикл с ним неправильный...

[danekne]

есть хорошая функция pos которая позволяет не перебирать посимвольно

[Google2010]

a:string;
sub:string;
b:array[1..100] of string;
i,k:integer;
......
sub:='';k:=0;
for i:=1 to length(a) do
if a[i]=' ' and sub<>'' then begin inc(k);b[k]:=sub;sub:='';end;
else sub:=sub+a[i];
if sub<>'' then begin inc(k); b[k]:=sub;end;

[Gray_Jagger]

можно поподробнее?

[Gray_Jagger]

ммм, так что делает процедура pos? мне не нужен код, мне важнее самому разобраться, чтобы потом мог применять

[Grag]

А кто же вам, друзья, сказал что слова разделяются только пробелом? А точка, запятая, двоеточие, и пр. знаки уже не в счет?

[danekne]

процедура pos возвращает номер начала вхождения подстроки в строку. Следовательно pos(S,' ') вернет номер символа в строке, где первый раз входит пробел. копируем все от начала строки до этого символа в подстроку и из начальной строки удаляем аналогично

[Grag]

Вот кусок моей старой программы, которая разбивает входной текстовый файл на слова

  while not Eof(flinp) do	{пока не конец входного файла}
    begin
      readln(flinp,Line);	{читаем данные из файла построчно}
      poz:=1;
      while poz<=Length(Line) do
        begin
          stword:='';
          pozbgn:=poz;
          while (poz<=Length(Line)) and (not(Line[poz] in prpchar)) do
            begin
              stword:=stword+Line[poz]; 	{выбираем очередное слово из строки файла}
              Inc(poz)
            end;
          Inc(poz);
          if stword=inword then	{если слово из строки равно слову-образцу}
            begin
              Delete(Line,pozbgn,Length(stword));	{удаляем это слово из строки}
              Inc(NumDel)
            end
        end;
      writeln(flout,Line);	{полученную строку (без слова-образца) записываем в файл}
      writeln(Line)		{ и выводим на экран}
    end;

Теперь
Const
prpChar=['.',',',':',';','?','!','-',' ']; {символы разделители}

stword - это слово из строки, т.е. то что нужно... Про остальное можно забыть...

[Gray_Jagger]

спасибо, теперь разобрался