Nén Xâu Kí Tự
Có thể bạn quan tâm
Đề Bài:
Viết chương trình mã hóa xâu không quá 255 kí tự như sau:
‘AAAABBBCDDDDDDDEEF’ mã hóa (nén) thành ‘4A3BC7D2EF’
Ý tưởng:
Dùng xâu mới để chứa mã hóa
Ta khỏi tạo biến dem:=1;
Ta sẻ duyệt từ kí tự thứ 2 của xâu đến cuối xâu và làm công việc sau:
Nếu s[i]=s[i-1] thì ta tăng biến dem lên 1.
Nếu s[i]<> s[i-1] thì cộng vào xâu tạm dem và s[i-1], trả dem về 1 (kí tự trước i)
Nếu i=length(s) thì cộng xâu tạm với dem và s[i]
dem := 1; for i:=2 to length(s) do begin if s[i]=s[i-1] then inc(dem); if (s[i]<>s[i-1]) then begin str(dem,tam); if dem>1 then k := k+tam+s[i-1] else k := k+ s[i-1]; dem := 1; end; if i=length(s) then begin str(dem,tam); if dem >1 then k := k+tam+s[i] else k := k+s[i]; end; end;Tải file chương trình: Download
Chia sẻ:
Từ khóa » Bài Toán Nén Xâu Trong Pascal
-
Xâu Thuần Nhất (Giải Nén Xâu Trong Pascal) - Tài Liệu Text - 123doc
-
Lập Trình Pascal, Giải Nén Xâu Ký Tự, Giai Nen Xau Ki Tu Bồi Dưỡng ...
-
Lập Trình Pascl Nén Xâu Kí Tự, Bồi Dưỡng HSG Môn Tin THCS
-
Giải Nén Xâu GNEN - Thầy Quách Văn Lượm
-
Viết Chương Trình Nhập Vào 1 Xâu Ký Tự (\(1< S\le255 ... - Hoc24
-
Giải Nén Xâu - Góc Tin Học
-
Xâu Thuần Nhất (Giải Nén Xâu Trong Pascal)
-
COMSTR - Nén Xâu - Bài Tập
-
Bài Tập Về Xâu Trong Pascal
-
Viết CT Nén Xâu Kí Tự S được Nhập Từ Bàn Phím. VD
-
[PDF] Chuyên đề Xử Lý Xâu
-
Bài Tập Dạy Học Sinh Giỏi Môn Tin Học THPT | Xemtailieu