Паскаль. Определение количества слов в тексте.

[Evgesha]

Здравствуйте! Помогите, пожалуйста, доработать программу.
Задание. Дана строка символов до точки. Группы символов в ней между группами пробелов считаются словами. Посчитать, сколько слов содержит данная строка.

Вот мой код, но если поставить два пробела подряд, то программа выдает слов на одно больше.

program z8;
uses crt;
var s: string; k,i:integer;
begin clrscr;
      writeln('vvedite stroky simvolov, v kontce postavte tochky :');
      readln(s);
      if (s='.') or (s='')or (s=' ') then writeln('ne verniy vvod') else begin
      for i:=1 to length(s) do
      if (s[i]=' ') or (s[i]='.') then k:=k+1;
      writeln('v vvedennoy stroke slov = ',k);  end ;
end.

[Levsha100]

Ну сначала надо удалить все после точки и ее саму

Delete(s,Pos('.',s),length(s)-Pos('.',s));

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

[Evgesha]

Спасибо, сейчас попробую.

Сообщение от Levsha100

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

ничего у меня опять не получается. два или больше пробела считает тоже как слово.

[Stilet]

if (s[i]=' ')

Нехорошо колво пробелов считать : Вот фраза: "Привет (тут 30 пробелов) Пацан"
Сколько твоя прога слов насчитает?
Так кузявее будет:

var s: string; k,i:integer;
begin
      writeln('vvedite stroky simvolov, v kontce postavte tochky :');
      readln(s);k:=1;
      if (s='.') or (s='')or (s=' ') then writeln('ne verniy vvod') else begin
      for i:=1 to length(s)-1 do
      if (s[i]=' ')and(s[i+1]<>' ') then k:=k+1;
      writeln('v vvedennoy stroke slov = ',k);  end ;
      readln;
end.

[Evgesha]

Спасибо, огромное! Все правильно считает, но если ввести два пробела и потом точку, то пишет, что 2 слова. Что делать?

[Stilet]

Что делать?

Добавить в условие отсеивание точки )

[Evgesha]

так?

uses crt;
var s: string; k,i:integer;

begin  clrscr;
      writeln('vvedite stroky simvolov, v kontce postavte tochky :');
      readln(s);k:=0;
      {Delete(s,Pos('.',s),length(s)-Pos('.',s));}
      if (s='.') or (s='')or (s=' ') then writeln('ne verniy vvod') else begin
      for i:=1 to length(s)-1 do
      if (s[i]=' ')and(s[i+1]<>' ')and (s[i]<>'.') then k:=k+1;
      writeln('v vvedennoy stroke slov = ',k);  end ;
      readln;
end.

[Stilet]

Работает? Если нет то луче так:

 if (s[i]=' ')and not (s[i+1] in [' ','.']) then k:=k+1;

[Evgesha]

Спасибо! Но вот сейчас почему-то другая проблема - ввела несколько слов и с кучей пробелом между ними, получилось слов на 1 меньше, чем на самом деле.

Все работает!!! Спасибо огромное, Stilet!

У меня опять вопрос! вот если я ввожу сначала два (или несколько) пробелов, то тогда программка считает на 1 слово больше! Что не так? Помогите, пожалуйста!

var s: string; k,i:integer;

begin  clrscr;
      writeln('vvedite stroky simvolov, v kontce postavte tochky :');
      readln(s);k:=1;
      if (s='.') or (s='')or (s=' ') then writeln('ne verniy vvod') else begin
      for i:=1 to length(s)-1 do
      if (s[i]=' ')and not (s[i+1] in [' ','.']) then k:=k+1;
      writeln('v vvedennoy stroke slov = ',k);  end ;
      readln;
end.

[OCTAGRAM]

Значит, нужно правильно обрабатывать начало строки. Я из этих соображений вместо s[i - 1] использую временную переменную, которую можно инициализировать пробелом.

А ещё в данном случае можно вручную добавить пробел в начало строки.

P. S. Здесь уже дали совет, как избавиться от точки.

P. P. S. Почему транслитом?