Đăng nhập để hỏi chi tiết
- Tin Học
- Lớp 9
- 50 điểm
- 182390123i12 -
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'.
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
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.
Hãy giúp mọi người biết câu trả lời này thế nào?
4.52 vote
Xem thêm (9)
vãi thiệt chứ
Lâuuu lắm rồi :vv
:))) ad cho t aq
T rớt Quốc Học rồi :(((
À trả nhóm này :v hè rồi
:))
Quốc học là cái j z
test cai nay xem bn A2B5KLU
uses crt;
var i,dem:longint;
s:string;
begin
clrscr;
dem:=1;
readln(s);
for i:=1 to length(s) do
begin
if s[i]=s[i+1] then
dem:=dem+1
else
begin
if dem <> 1 then
write(dem,'',s[i]);
if dem = 1 then
write(s[i]);
dem:=1;
end;
end;
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
4.33 vote
3/10
mik sai testb 6/10 nên vote 4 sao hoi
Đăng nhập để hỏi chi tiết
Bạn muốn hỏi điều gì?
Đặt câu hỏiTham Gia Group 2K10 Ôn Thi Vào Lớp 10 Miễn Phí
>> Học trực tuyến Lớp 9 & Lộ trình UP10 trên Tuyensinh247.com
>> Chi tiết khoá học xem: TẠI ĐÂY
Đầy đủ khoá học các bộ sách (Kết nối tri thức với cuộc sống; Chân trời sáng tạo; Cánh diều), theo lộ trình 3: Nền Tảng, Luyện Thi, Luyện Đề. Bứt phá điểm lớp 9, thi vào lớp 10 kết quả cao. Hoàn trả học phí nếu học không hiệu quả.
 |
 |
 |
 |
 |
 |
Bạn muốn hỏi điều gì?
Đặt câu hỏiCÂU HỎI MỚI NHẤT
- Lực tác dụng làm cho số chỉ cân giảm là lực từ tác dụng lên đoạn dây và có chiều là hướng lên đáp án là sai , mọi người giải thích cho tui vớii
nêu khái niệm của muối phân loại muốiGiải toán lớp 9 fjdksks
- Bài 4. a) Trong hộp chứa 12 tấm thẻ cùng loại được đánh số lần lượt là 4; 8; 9; 14; 16; 12; 36; 6; 40; 51; 60; 5. Lấy ra ngẫu nhiên 1 thẻ từ trong hộp. Tính xác suất của biến cố: “Lấy được thẻ có số g ...
- Cho tam giác ABC vuông tại A. Gọi M là trung điểm của cạnh BC. Trên tia đối của tia MA lấy điểm D sao cho MD = MA. a) CM: BD=AC và BD vuông góc với AB b)Kẻ BI vuông góc với AD ...
Không giải phương trình . hãy tính giá trị biểu thức giúp mình với ạ
Em hiểu gì về biển Đông. Em có thể làm gì để góp phần bảo vệ biển Đông đồng thời, có để xuất gì để giải quyết các tranh chấp chủ quyền ở biển Đông?
( ko sử dụng chat gpt, gg)
Tính thể tích hình sau- He can't bưu a bike because he doesn't have enough money Ít he
- IV. Choose the best word to complete the passage below. I go on the Internet every day, but I’ve never (1) _____ more than an hour at a time online. I’ve got a laptop and also a smartphone, so I can ( ...
Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát
Tải ứng dụng
Inbox: m.me/hoidap247online
Trụ 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.
0
17
0
pascal nhoa