Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Giúp các bé đáng thương ấy với

Gameshow “Ai Là Triệu Phú” trên VTV đang chờ đón bạn – Tải ngay!

Tuyển uploader dự án Safeshared có thu nhập

Ngập tràn ưu đãi cho tín đồ công nghệ tại sony show 2014

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Tuyển Mod box Mobile
Trang 1/2 1 2 cuốicuối
kết quả từ 1 tới 15 trên 18
  1. #1
    hoangtin14's Avatar
    hoangtin14 vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Apr 2009
    Đến từ
    Bình Định
    Bài
    127
    Cảm ơn
    8
    Điểm
    13/12 bài viết

    Default

    nếu sợ có nhìu khoảng trắng liên tiếp thì hãy sử dịng vòng lặp while mà xóa đi. rồi làm như cách trên cũng dc.
    Khi bạn sinh ra mọi người cười trong khi bạn khóc...
    Hãy sống để khi bạn chết, mọi người khóc trong khi bạn cười...

  2. #2
    Forte_201092's Avatar
    Forte_201092 vẫn chưa có mặt trong diễn đàn Thành viên đang bị kỷ luật
    Tham gia
    Oct 2008
    Đến từ
    Huế City
    Bài
    224
    Cảm ơn
    1
    Điểm
    22/19 bài viết

    Default

    Đâu cần phức tạp vậy. Chỉ cần đếm số kí tự trắng trong xâu rồi lấy length của xâu đó trừ đi số kí tự trắng thôi

  3. #3
    anhptcsit's Avatar
    anhptcsit vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Aug 2009
    Bài
    20
    Cảm ơn
    0
    Điểm
    11/7 bài viết

    Default

    thuật toán xóa ký tự trắng thừa đơn giản là bạn kiểm tra:
    ký tự trước hoặc sau ký tự trắng cần xét là ký tự trắng thì nó là ký tự trắng thừa, xóa ngay đi.

  4. Có 1 thành viên cảm ơn anhptcsit cho bài viết này:
    vtadhcn (24-12-2009)

  5. #4
    tuanvubgboy's Avatar
    tuanvubgboy vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Dec 2009
    Bài
    8
    Cảm ơn
    6
    Điểm: 1/1 bài viết

    Default

    {xóa các kí tự trắng ở đầu và cuối chuỗi}

    while s[1]=' ' do delete(s,1,' ');
    while s[length(s)]=' ' do delete(s,length(s),' ');

    {tạo sâu chỉ có 1 dấu cách giữa các từ}
    i:=1;
    while i<>length(s) do if (s[i]=' ' and s[i+1]=' ') then delete(s,i+1,' ') else i:=i+1;

  6. Có 1 thành viên cảm ơn tuanvubgboy cho bài viết này:
    Baragon (23-12-2009)

  7. #5
    Forte_201092's Avatar
    Forte_201092 vẫn chưa có mặt trong diễn đàn Thành viên đang bị kỷ luật
    Tham gia
    Oct 2008
    Đến từ
    Huế City
    Bài
    224
    Cảm ơn
    1
    Điểm
    22/19 bài viết

    Default

    Đếm từ ah? Hehe, ko để ý. vậy thì cũng dễ thôi, chạy vòng For thế này này:

    For i:=1 to length(S) do
    if (S[i] in ['A'..'Z'] or (S[i] in ['a'..'z'] then inc(dem);
    write('So ki tu trong xau la: ',dem);

    OK chưa?

  8. Có 1 thành viên cảm ơn Forte_201092 cho bài viết này:
    Baragon (23-12-2009)

  9. #6
    hoangtin14's Avatar
    hoangtin14 vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Apr 2009
    Đến từ
    Bình Định
    Bài
    127
    Cảm ơn
    8
    Điểm
    13/12 bài viết

    Default

    Số từ mà anh Forte_201092. Chạy vòng lặp như trên thì chỉ đếm dc số ký tự thôi.
    Khi bạn sinh ra mọi người cười trong khi bạn khóc...
    Hãy sống để khi bạn chết, mọi người khóc trong khi bạn cười...

  10. #7
    Forte_201092's Avatar
    Forte_201092 vẫn chưa có mặt trong diễn đàn Thành viên đang bị kỷ luật
    Tham gia
    Oct 2008
    Đến từ
    Huế City
    Bài
    224
    Cảm ơn
    1
    Điểm
    22/19 bài viết

    Default

    Định nghĩa "từ" gồm cái gì coi? +_+ Chữ và số ah?

  11. #8
    hoangtin14's Avatar
    hoangtin14 vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Apr 2009
    Đến từ
    Bình Định
    Bài
    127
    Cảm ơn
    8
    Điểm
    13/12 bài viết

    Default

    program demsotu;
    Var S:string;
    i,d:byte;
    Begin
    write('Nhap vao xau:');
    Readln(S);
    S:=S+' ';
    d:=0;
    For i:=1 to length(S) do
    if (S[i]<>' ') and (S[i+1]=' ') then inc(d);
    write('Xau co so tu la:',d);
    Readln
    End.
    Khi bạn sinh ra mọi người cười trong khi bạn khóc...
    Hãy sống để khi bạn chết, mọi người khóc trong khi bạn cười...

  12. #9
    vjru5zl0v3's Avatar
    vjru5zl0v3 vẫn chưa có mặt trong diễn đàn Rìu Bạc
    Tham gia
    Sep 2008
    Bài
    404
    Cảm ơn
    60
    Điểm
    254/111 bài viết

    Default

    à, tiến hành chuẩn hóa xâu rùi đếm ký tự trắng, cách nghĩ đếm từ của bạn hoàn toàn chính xác ^^, chỉ cần chuẩn hóa là được, cụ thể cho chạy for đi, kiểm tra ký tự đầu và cuối nếu trắng thì xóa đi, kiểm tra ký tự thứ i nếu là khoảng trắng thì kiểm tra tiếp i+1, nếu là khoảng trắng thì tiến hành delete nó đi, (trong khi ký tự i đang là khoảng trắng thì kiểm tra các ký tự kể từ i về sau (sử dụng thêm vòng lặp for cho lệnh if kt[i]=' ' then for t:=i to length(kt) do ... này) kiểm tra nếu khoảng trắng thì xóa, nếu là kí tự rùi thì thoát vòng lặp), kiểm tra tiếp cho đến hết độ dài xâu kt ^^, à lưu ý là tuy nói chuẩn hóa nhưng không phải chuẩn hóa hoàn toàn, chỉ là xóa khoảng trắng thui, chuẩn hóa hoàn toàn mất công ra ^^

    và số từ phải bằng số khoảng trắng +1 nha ^^

    Loong Online: Thần Long Xuất Thế
    http://loong.us

  13. Có 1 thành viên cảm ơn vjru5zl0v3 cho bài viết này:
    Baragon (25-12-2009)

  14. #10
    Forte_201092's Avatar
    Forte_201092 vẫn chưa có mặt trong diễn đàn Thành viên đang bị kỷ luật
    Tham gia
    Oct 2008
    Đến từ
    Huế City
    Bài
    224
    Cảm ơn
    1
    Điểm
    22/19 bài viết

    Default

    Ah ah, sao tự nhiên lại ngu tiếng Việt đột xuất thế nhỉ?
    Uh, vậy cứ chuẩn hóa xâu rồi đếm là OK

  15. #11
    Tham gia
    May 2009
    Bài
    8
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Default

    bạn nào giúp với bài toán passcal về ma phương

  16. #12
    hoangtin14's Avatar
    hoangtin14 vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Apr 2009
    Đến từ
    Bình Định
    Bài
    127
    Cảm ơn
    8
    Điểm
    13/12 bài viết

    Default

    Bài toán như thế nào bạn nói ra thì mọi người mới bt mà giải chứ nói chung chung như thế thì ai bt.
    Khi bạn sinh ra mọi người cười trong khi bạn khóc...
    Hãy sống để khi bạn chết, mọi người khóc trong khi bạn cười...

  17. #13
    Forte_201092's Avatar
    Forte_201092 vẫn chưa có mặt trong diễn đàn Thành viên đang bị kỷ luật
    Tham gia
    Oct 2008
    Đến từ
    Huế City
    Bài
    224
    Cảm ơn
    1
    Điểm
    22/19 bài viết

    Default

    Bài toán mới ah? Nên tạo 1 topic mới đi

  18. #14
    nhokdragon94's Avatar
    nhokdragon94 vẫn chưa có mặt trong diễn đàn Búa Gỗ Đôi
    Tham gia
    Dec 2009
    Bài
    29
    Cảm ơn
    0
    Điểm
    3/3 bài viết

    Default

    Bài đếm số từ như thế này:
    i:=1;
    while i<=length(S) do
    begin
    while S[i]=' ' do i:=i+1;
    while S[i]<>' ' do i:=i+1;
    dem:=dem+1;
    end;
    writeln('so tu: ',dem);
    readln;
    end.
    Chạy thử xem ra hem chưa test

  19. #15
    momkute76's Avatar
    momkute76 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Jul 2010
    Bài
    1
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Default bt:xoa cac ki tu trang du thua

    progaram xoa;
    var A:string;
    begin
    write('nhap xau:'); readln(A); {#32 kj hjeu of kh0g tr0ng}
    while A[1] = #32 delete(A,1,1); {x0a kj tu tr0ng 0 dau cau}
    while A[length(A)] = #32 do delete(A,length(A),1); {x0a kj tu tr0ng 0 cu0j cau}
    while pos(#32#32,A) <> 0 do delete(A,pos(#32#32,A),1);
    write('xau hoan chinh la:', A);
    readln;
    end.

 

 
Trang 1/2 1 2 cuốicuối

Quyền sử dụng

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể tự sửa bài viết của mình
  •