Количество слов в строке

[Настя93]

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

[Mad_Cat]

k:=0;
while trim(s)<>'' do begin
s:=trim(s);
s:=s+' ';
inc(k);
delete(s,1,pos(' ',s));
end;
writeln(k);

[Xeonc]

#include "stdafx.h"
#include <conio.h>
#include <iostream>
#include <time.h>
using namespace std;

int main()
{
	string s = "Shla sasha po shose i sosala sushku";
	int countWords = 0;
	for(int i = 0; i< s.size();i++)
	{
		if(s[i]==' ')
		{
			countWords++;
		}
	}

	cout<<"V stroke  "<<countWords+1<<"  slov";
	_getch();
return 0;
}

Принцип работы, если программа находит пробел - она плюсует +1 к счетчику слов. В конце к полученному результату прибавляем еще единицу, т.к. первое слово она не учла

[Xeonc]

Oh shi:> Опередили

Зато решения на все случаи жизни, хотите - на Делфи, хотите - на с++

[_-Re@l-_]

На паскале так(в случае, если в качестве разделителя юзаются .,:;!?)

Uses CRT;
Var
   S:String;
   N,I:Integer;
   IsWord:Boolean;
Begin
     Clrscr;
     Write('Enter S:');
     Readln(S);
     N:=0;
     IsWord:=False;
     For I:=1 To Length(S) Do
     Begin
          If S[I] in [' ','.',',',':',';','!','?'] Then
          IsWord:=False
          Else
          If not IsWord then begin Inc(N);IsWord:=True;end;
     End;
     Write('N = ',N);
     Readln;
End.

[Настя93]

Спасибо!!!!!!!!

[kaljan775]

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

[vmilyoshin]

Можно ещё так:

procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
  x: integer;
  i: byte;
begin
  str:=Edit1.Text;
if trim(str)<>'' then
begin
while length(trim(str))>0 do
begin
  i:=0;
for i:= Length(trim(str)) downto 1 do
if str[i] = ' ' then
  break;
if trim(str)<>'' then
  str:= copy(trim(str),1, i);
  inc(x);
end;
  Edit1.Text:=inttostr(x);
end
else
  Edit1.Text:=inttostr(x);
end;

При этом счетаются слова в строке независимо от количества пробелов между словами.