Viết chương trình nhập xâu s, đếm từ của xau s và xuất ra các từ đó Vd: Input: Nguyen Van Bao Output: 3 Nguyen Van Bao

0 bình luận về “Viết chương trình nhập xâu s, đếm từ của xau s và xuất ra các từ đó Vd: Input: Nguyen Van Bao Output: 3 Nguyen Van Bao”

1. Program NN;
   Uses crt;
   Var St: String;
       i,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap St: ‘); Readln(St);
           While St[1]=#32 do Delete(St,1,1);
           While St[length(St)]=#32 do Delete(St,length(St),1);
           While Pos(#32#32,St)<>0 do Delete(St,Pos(#32#32,St),1);
           d:=1;
           For i:=1 to length(St) do
                   If St[i]=#32 then inc(d);
           Writeln(d);
           For i:=1 to length(St) do
                   If St[i]<>#32 then Write(St[i])
                   Else Writeln;
           Readln
   End.

   Bình luận

2. Uses crt;
   Var S: String;
       i,dt: longint;
   Begin
           Clrscr;
           Write(‘S: ‘); Readln(S);
           For i:=1 to length(St) do
                   If S[i]=’ ‘ then inc(dt); writeln(dt);
           For i:=1 to length(St) do
                Begin Write(S[i]);
                   If s[i]=’ ‘ then Writeln;

   End;
   Readln;
   End.

   Bình luận