Câu hỏi:

19/08/2025 1,504 Lưu

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'.

Quảng cáo

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 HỎI HOT CÙNG CHỦ ĐỀ

Câu 1

A. Đọc dữ liệu
B. Xem, bổ sung, sửa, xóa và không truy cập dữ liệu
C. Thêm dữ liệu
D. Xem, sửa, bổ sung và xóa dữ liệu

Lời giải

Lời giải:

Đáp án đúng: D

Xem, sửa, bổ sung và xóa dữ liệu

Câu 2

A. Microsoft Access
B. Oracle
C. Microsoft SQL server
D. Microsoft Excel

Lời giải

Lời giải:

Đáp án D.

Microsoft Excel không phải là hệ quản trị cơ sở dữ liệu quan hệ.

Câu 3

A. Có thể lưu lại cấu trúc và nhập dữ liệu sau
B. Không thể sửa lại cấu trúc
C. Tạo mẫu hỏi ngay
D. Phải nhập dữ liệu ngay

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 4

A. Khoá chính = {Mahs}
B. Khoá chính = {HoTen, Ngaysinh, Lop, Diachi, Toan}
C. Khoá chính = {HoTen, Ngaysinh, Lop, Diachi, Li}
D. Khoá chính = {HoTen, Ngaysinh, Lop, Diachi}

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 5

A. Một bảng có thể có nhiều khoá chính
B. Mỗi bảng có ít nhất một khoá
C. Xác định khoá phụ thuộc vào quan hệ logic của các dữ liệu chứ không phụ thuộc vào giá trị các dữ liệu
D. Nên chọn khoá chính là khoá có ít thuộc tính nhất

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 6

A. Chỉ quan tâm bảo mật dữ liệu
B. Chỉ quan tâm bảo mật chương trình xử lí dữ liệu
C. Quan tâm bảo mật cả dữ liệu và chương trình xử lí dữ liệu
D. Chỉ là các giải pháp kĩ thuật phần mềm

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 7

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP