Строки

[Игрушка96]

Задана строка.Определить кол-во слов в ней.И вывести слова на экран через запятую..Заранее спасибо

[Stilet]

Наработки есть?

[Игрушка96]

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

[denisbrain]

uses crt;
Const
  WordDelimiters : set of char = [' ',',','.','-','!','?',':',';',')','(','[',']'];


// WordCount функция из модуля TPSTRING

  function WordCount(S : string; WordDelims : set of char) : Byte;
    {-Given a set of word delimiters, return number of words in S}
  var
    Count : Byte;
    I : Word;
    SLen : Byte;
  begin
    SLen := Length(S);
    Count := 0;
    I := 1;
    while I <= SLen do begin
      {skip over delimiters}
      while (I <= SLen) and (S[I] in WordDelims) do
        Inc(I);
      {if we're not beyond end of S, we're at the start of a word}
      if I <= SLen then
        Inc(Count);
      {find the end of the current word}
      while (I <= SLen) and not(S[I] in WordDelims) do
        Inc(I);
    end;
    WordCount := Count;
  end;
  
  Function GetSlovaFromStr(s:string;WordDelims : set of char):string;
  var x,len:integer;
      s2:string;
      res_str:string;
  begin
    s2:='';
    len:=length(s);
    res_str:='';
    for x:=1 to len do begin
      if (s[x] in WordDelims) or (x=len) then begin
      if s2<>'' then   if res_str='' then  res_str:=s2  else res_str:=res_str+','+s2;
      s2:='';
      end else s2:=s2+s[x];
    end;
   GetSlovaFromStr:=res_str;
  end;
var str:string;

begin
clrscr;
str:='Задана строка.Определить кол-во слов в ней.И вывести слова на экран через запятую..Заранее спасибо';
Writeln(str);
Writeln('Кол-во строк ',WordCount(str,WordDelimiters));
Writeln;
Writeln(GetSlovaFromStr(str,WordDelimiters));

end.