Программа которая подсчитает количество слов в тексте

[Мария Сафонова]

не знаю как написать программу.не получается(помогите пожулйста сделать.само задание выглядит так:

Разобрать схему алгоритма и программу , которая подсчитает количество слов в тексте.

заранее спасибо

[Сtrl]

Сформулируйте задание конкретнее.
Что вы понимаете под словом? (Последовательность символов? А если эта последовательность - не из букв, а других знаков - она является словом?)
Чем разделяются слова? (Одним пробелом, несколькими пробелами, знаками препинания, как-то еще?)

[Serge_Bliznykov]

в принципе полностью согласен с вопросами Ctrl - вопросы правильные и "в тему"!
Без них написать программу, соответствующую заданию нельзя (ибо задание не полное.)

Ну так, "от фонаря", в качестве затравки:

var s,w : string;
  i, CountWord : integer;
begin
  s := 'Мало просто изучать Pascal на нём ещё и писать надо';

  s := s + ' ';
  CountWord := 0;
  w := '';
  WriteLn;
  for i:=1 to length(s) do begin
    if s[i]<>' ' then w := w+s[i]
    else {пробел нашли, значит это конец слова}
     begin
       if Length(w)>0 then CountWord := CountWord + 1;
       w := ''; {обнулили текущее слово - готовы накапливать новое слово}
     end;
  end;
   WriteLn('Количество слов: ', CountWord);
  readln;
end.

[Мария Сафонова]

ну это полное задание.
может задать просто параметры для слова.т.е. словом будет считаться в котором от 2 и более символов?
а так конкретней не могу.так написано в задании

[Serge_Bliznykov]

а так конкретней не могу.так написано в задании

ну тогда разбирайте мой пример выше!
В этом примере Словом считается ЛЮБАЯ группа символов, отличная от пробела.

[Sparkman]

Сообщение от Мария Сафонова

не знаю как написать программу.не получается(помогите пожулйста сделать.само задание выглядит так:

Разобрать схему алгоритма и программу , которая подсчитает количество слов в тексте.

заранее спасибо

function Seps(As_Arg: Char): Boolean;
begin
     Seps := As_Arg in
      [#0..#$1F, ' ', '.', ',', '?', ':', ';', '(', ')', '/', '\'];
end;

function WordCount(CText: string): Longint;
var Ix: Word;
    Work_Count: Longint;
begin
     Work_Count := 0;
     Ix         := 1;
     while Ix <= Length(CText) do
     begin
          while (Ix <= Length(CText)) and (Seps(CText[Ix])) do
             Inc(Ix);
          if Ix <= Length(CText) then
          begin
               Inc(Work_Count);
               while (Ix <= Length(CText)) and (not Seps(CText[Ix])) do
                  Inc(Ix);
          end;
     end;
     WordCount := Work_Count;
end;
var s:string;
BEGIN
     writeln('Enter the text');
     readln(s);
     writeln;
     write('Count of words in the text:');
     writeln(WordCount(s));
     ReadLn;
END.

скопипастил из DelphiWorld и "локализовал" для консольки