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

Mời tài trợ sinh nhật diễn đàn 8 năm

Tìm HD - Phần mềm tìm và xem phim HD miễn phí

Đăng ký tham gia offline VN-Zoom 8 năm tại HCM

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

Tài trợ VNZ Siêu phẩm Tân Kiếm Thế chibi 3D mới

Tuyển BQT VN-Zoom
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
    VR power
    0

    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.

  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
    VR power
    0

    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
    VR power
    0

    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
    VR power
    0

    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
    VR power
    0

    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
    VR power
    0

    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.

  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
    VR power
    0

    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
    VR power
    0

    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.

  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
    405
    Cảm ơn
    60
    Điểm
    253/111 bài viết
    VR power
    0

    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 ^^

  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
    VR power
    0

    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
    VR power
    0

    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
    VR power
    0

    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.

  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
    VR power
    0

    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
    VR power
    0

    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
    VR power
    0

    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
  •