Viết CT Nén Xâu Kí Tự S được Nhập Từ Bàn Phím. VD

logologoTìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án
    • icon_userĐăng nhập
    • |
    • Đăng ký
    icon_menu
avataricon

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký
  • add
  • Đặt câu hỏiiconadd
  • logo

    loading

    +

    Lưu vào

    • +

      Danh mục mới

    Lưuavataravatar
    • nguyensydunglogoRank
    • Chưa có nhóm
    • Trả lời

      0

    • Điểm

      100

    • Cảm ơn

      0

    • Tin Học
    • Lớp 11
    • 10 điểm
    • nguyensydung - 11:00:08 26/03/2020
    Viết CT nén xâu kí tự s được nhập từ bàn phím. VD: S='AAABBCDDDD'=>'3A2BC4D' làm ơn ạ
    • Hỏi chi tiết
    • reportBáo vi phạm

    Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

    TRẢ LỜI

    avataravatar
    • Duchuy16042006logoRank
    • Chưa có nhóm
    • Trả lời

      114

    • Điểm

      1384

    • Cảm ơn

      55

    • Duchuy16042006
    • 26/03/2020

    c:=1;dem:=1;//c là chỉ số chỉ ký tự

    for i:=2 to length(s) do

    if s[i]=s[c] then inc(dem) else

    begin

    write(dem,s[c]);//xuat ra dem va ky tu (3A)

    dem:=1;

    c:=i;

    end;

    Hãy giúp mọi người biết câu trả lời này thế nào?

    starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarGửiHủy
    • hertCảm ơn
    • reportBáo vi phạm
    • avataravatar
      • Duchuy16042006logoRank
      • Chưa có nhóm
      • Trả lời

        114

      • Điểm

        1384

      • Cảm ơn

        55

      nhập xuất tự làm

    • avataravatar
      • Duchuy16042006logoRank
      • Chưa có nhóm
      • Trả lời

        114

      • Điểm

        1384

      • Cảm ơn

        55

      nếu làm kiểu chuyển ra xâu thứ hai, báo để sửa cho

    • avataravatar
      • nguyensydunglogoRank
      • Chưa có nhóm
      • Trả lời

        0

      • Điểm

        100

      • Cảm ơn

        0

      Mình mù tin bạn ạ😅bạn làm hoàn chỉnh giúp mình luôn đc k ạ

    • avataravatar
      • Duchuy16042006logoRank
      • Chưa có nhóm
      • Trả lời

        114

      • Điểm

        1384

      • Cảm ơn

        55

      mù tin cũng biết nhập xuất chứ

    Đăng nhập để hỏi chi tiếtavataravatar
    • ttphulhplogoRank
    • Chưa có nhóm
    • Trả lời

      913

    • Điểm

      17366

    • Cảm ơn

      515

    • ttphulhp
    • 15/01/2021

    program oken;uses crt;var s:string; i,j,dem,k: longint; sl: array[1..1000000] of longint; a: array[1..1000000] of char;begin clrscr; write('Nhap xau: '); readln(s); k:=0; for i:=32 to 126 do begin dem:=0; for j:=1 to length(s) do if chr(i)=s[j] then dem:=dem+1; if dem<>0 then begin k:=k+1; a[k]:=chr(i); sl[k]:=dem; end; end; for i:=1 to k do writeln(a[i],': ',sl[i]); readln;end.

    Hãy giúp mọi người biết câu trả lời này thế nào?

    starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarGửiHủy
    • hertCảm ơn
    • reportBáo vi phạm
    Đăng nhập để hỏi chi tiếtXEM LỜI GIẢI SGK TIN 11 - TẠI ĐÂY

    Bạn muốn hỏi điều gì?

    questionĐặt câu hỏi

    Tham Gia Group Dành Cho 2K8 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí

    Bảng tin

    Bạn muốn hỏi điều gì?

    iconĐặt câu hỏi

    Lý do báo cáo vi phạm?

    Gửi yêu cầu Hủy

    logo

    Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát

    • social
    • social
    • social

    Tải ứng dụng

    google playapp store
    • Hướng dẫn sử dụng
    • Điều khoản sử dụng
    • Nội quy hoidap247
    • Góp ý
    • Tin tức
    • mailInbox: m.me/hoidap247online
    • placeTrụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
    Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.

    Từ khóa » Bài Toán Nén Xâu Trong Pascal