Определить, сколько слов в предложение? Опции

[Marader]

Здраствуйте! Помогите пожалуйста ламеру :D
Задача! Записано предложение. Определите, сколько в нем слов.
(большая просьба сделать к ней блок схему)
Спасибо ;)

Сообщение отредактировано: Marader - 21.10.2005 0:18

[volvo]

Твоя программа считает не количество слов, а количество разделителей (вернее, только пробелов, из-за ошибок в программе), и если ты введешь строку:
'Вот эта строка, и ...' то в результате получишь непонятно что...

Вот правильный вариант:

const
  razdel = [' ', ',', '.'];

var
   i, j, n : integer;
   s: string;
begin
  ReadLn(s);

  j := 0; n := length(s);
  i := 1;
  while i <= n do begin
    while (i <= n) and not(s[i] in razdel) do inc(i);

    if i < n then begin
      inc(j);
      while (i <= n) and (s[i] in razdel) do inc(i);
    end;
  end;
  writeln(j, ' slov');
end.

А блок-схему начертишь сам...