Thứ sáu, 22/11/2024
IMG-LOGO

Câu hỏi:

19/07/2024 45

Viết chương trình để nén và giải nén một xâu ký tự . Ví dụ: Xâu 'AAAABBBCDDDDDDDEEF' sau khi nén sẽ trở thành '4A3BC7D2EF'.

 Xem lời giải

Trả lời:

verified Giải bởi Vietjack

Lời giải:

Chương trình nén xâu:

uses crt;

var s,t,k:string;

i,d:longint;

begin

clrscr;

write('Nhap xau: '); readln(s);

d:=1;

for i:=2 to length(s) do

begin

if s[i]=s[i-1] then inc(d);

if (s[i]<>s[i-1]) then

begin

str(d,t);

if d>1 then k:=k+t+s[i-1] else k:=k+s[i-1]; d:=1;

end;

if i=length(s) then begin str(d,t);

if d>1 then k:=k+t+s[i] else k:=k+s[i];

end;

end;

write('Xau sau khi nen: ',k);

readln

end.

Chương trình giải nén xâu:

Uses crt;

Var St,St1,x:string;

i,j,k,l:longint;

Begin

Clrscr;

readln(St);

For i:=1 to length(St) do

If (St[i] in ['a'..'z']) then

If not (St[i-1] in ['0'..'9']) then Insert('1',St,i);

For i:=1 to length(St) do

Begin

If St[i] in ['0'..'9'] then

For j:=i+1 to length(St) do

If St[j] in ['a'..'z'] then break;

x:=copy(St,i,j-i);

Val(x,k);

For l:=1 to k do St1:=St1+St[j]; end;

write(St1);

readln

end.

Câu trả lời này có hữu ích không?

0

Gói VIP thi online tại VietJack (chỉ 400k/1 năm học), luyện tập gần 1 triệu câu hỏi có đáp án chi tiết

ĐĂNG KÝ VIP

CÂU HỎI HOT CÙNG CHỦ ĐỀ

Câu 1:

Xét về mặt cấu trúc, thuộc tính trường (field) trong mô hình dữ liệu quan hệ được hiểu là

Xem đáp án » 26/03/2024 338

Câu 2:

Phần mềm nào sau đây không phải là hệ quản trị cơ sở dữ liệu quan hệ

Xem đáp án » 25/03/2024 281

Câu 3:

Câu nào là đúng. Sau khi tạo cấu trúc cho bảng thì:

Xem đáp án » 24/03/2024 266

Câu 4:

Nêu một số ứng dụng của đa phương tiện? Lấy ví dụ minh họa?

Xem đáp án » 24/03/2024 239

Câu 5:

Trong bảng phân quyền, các quyền truy cập dữ liệu, gồm có:

Xem đáp án » 24/03/2024 238

Câu 6:

Sau khi tạo liên kết giữa các bảng trong mô hình dữ liệu quan hệ, có thể thực hiện công việc nào dưới đây?

Xem đáp án » 26/03/2024 236

Câu 7:

Cho các thao tác sau : 
B1: Tạo bảng      B2: Đặt tên và lưu cấu trúc    B3: Chọn khóa chính cho bảng   B4: Tạo liên kết 
Khi tạo lập CSDL quan hệ ta thực hiện lần lượt các bước sau:

Xem đáp án » 24/03/2024 185

Câu 8:

Trong bảng phân quyền, các quyền truy cập dữ liệu, gồm có:

Xem đáp án » 24/03/2024 179

Câu 9:

Để chọn các mẫu định dạng có sẵn ta chọn dải lệnh nào? trình bày các bước thực hiện?

Xem đáp án » 26/03/2024 174

Câu 10:

Thao tác nào sau đây không là khai thác CSDL quan hệ?

Xem đáp án » 24/03/2024 154

Câu 11:

Các câu lệnh vẽ 6 hình vuông trong logo

Xem đáp án » 26/03/2024 144

Câu 12:

Nêu các lệnh để vẽ hình lục giác trong logo

Xem đáp án » 26/03/2024 136

Câu 13:

Chọn phát biểu đúng khi nói về vòng lặp while

Xem đáp án » 24/03/2024 133

Câu 14:

Thuật ngữ “quan hệ” dùng trong hệ CSDL quan hệ là để chỉ đối tượng:

Xem đáp án » 25/03/2024 132

Câu 15:

Viết chương trình nhập một số từ 0 đến 9, in ra màn hình cách đọc bằng chữ của số đó

Xem đáp án » 24/03/2024 129