Giải Nén Xâu

Tháng Hai 24, 2019

Giải nén xâu

Đề Bài:

Viết chương trình giải mã xâu không quá 255 kí tự như sau:

 ‘4A3BC7D2EF’ giải mã thành ‘AAAABBBCDDDDDDDEEF’

Ý tưởng:

  • ta dùng thủ tục val để chuyển đổi từ kí tự s[i]  sang số num.
  • Nếu chuyển đổi thành công thì sẻ cộng dồn vào xâu giải nén đúng num-1 kí tự s[i+1]
  • Nếu không chuyển đổi thành công thì chỉ cộng vào xâu giải nén 1 kí tự s[i].
for i:=1 to length(s) do begin val(s[i],so,code); if code=0 then begin for k:=1 to so-1 do t:=t+s[i+1]; end else t:=t+s[i]; end;

Download Full code

Chia sẻ:

  • Twitter
  • Facebook
Thích Đang tải… Bài tập pascal nâng cao

Posted by:

123webshop

Previous Post Next Post

Bình luận về bài viết này Hủy trả lời

Δ

About Me

An English diarist and naval administrator. I served as administrator of the Royal Navy and Member of Parliament. I had no maritime experience, but I rose to be the Chief Secretary to the Admiralty under both King Charles II and King James II through patronage, diligence, and my talent for administration.

  • Tumblr
  • Share Icon
  • Instagram

Bài viết mới

  • Learn ChatGPT | Free Courses On ChatGPT
  • Machine Learning | Learn Machine Learning Easily
  • Đề thi chuyên Tin PTNK Tp Hồ Chí Minh các năm
  • Tải miễn phí bộ tài liệu mà bất kỳ học sinh, sinh viên nào yêu thích CNTT
  • Viết chương trình giải phương trình bậc 2 (ax2+ bx + c =0)

Bản tin

Nhập email của bạn…

subscribe

Trang này sử dụng cookie. Tìm hiểu cách kiểm soát ở trong: Chính Sách Cookie
  • Bình luận
  • Đăng lại
  • Theo dõi Đã theo dõi
    • The More You Share, The More You Get!
    • Theo dõi ngay
    • Đã có tài khoản WordPress.com? Đăng nhập.
    • The More You Share, The More You Get!
    • Sửa trang web
    • Theo dõi Đã theo dõi
    • Đăng ký
    • Đăng nhập
    • URL rút gọn
    • Báo cáo nội dung
    • Xem toàn bộ bài viết
    • Quản lý theo dõi
    • Ẩn menu
%d Tạo trang giống vầy với WordPress.comHãy bắt đầu

Từ khóa » Giải Nén Xâu Trong Pascal