cho minh hỏi tí.

**1hakunamatata** · 13-03-2011 15:08

viết hộ cho minh chương trình đếm từ trong 1 xâu kí tự nhập vao`. 1 từ là dãy kí tự từ a đến z kết thúc bằng dấu cách trống.

**HGMinh95** · 14-03-2011 17:47

Ví dụ với xâu s='abxc.def @#$% avf??a?a?' thì có bao nhiêu từ hả bạn??
Nếu bằng 3 thì bạn có thể xem bài dưới đây.

Code:

uses crt;
var k,i:integer;
    s,s2:string;
begin
     Clrscr;
     Write(' Nhap xau s: '); readln(s2);
     k:=0;      s:=s2;
     While Pos(' ',s)<>0 do
           begin
                If Pos(' ',s) <> 1 then k:=k+1;
                i:=Pos(' ',s);
                While Pos(' ',s)=i do Delete(s,Pos(' ',s),1);
           end;
     If s2[length(s2)]=' ' then k:=k-1;
     Write(' So tu la: ',k+1);
     readln
end.