Viết CT Nén Xâu Kí Tự S được Nhập Từ Bàn Phím. VD

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

nguyensydung
Chưa có nhóm

Trả lời
0
Điểm
100
Cảm ơn
0

Tin Học
Lớp 11
10 điểm
nguyensydung - 11:00:08 26/03/2020

Viết CT nén xâu kí tự s được nhập từ bàn phím. VD: S='AAABBCDDDD'=>'3A2BC4D' làm ơn ạ

Hỏi chi tiết
Báo vi phạm

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

Duchuy16042006
Chưa có nhóm

Trả lời
114
Điểm
1384
Cảm ơn
55

Duchuy16042006

26/03/2020

c:=1;dem:=1;//c là chỉ số chỉ ký tự

for i:=2 to length(s) do

if s[i]=s[c] then inc(dem) else

begin

write(dem,s[c]);//xuat ra dem va ky tu (3A)

dem:=1;

c:=i;

end;

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarGửiHủy

Cảm ơn
Báo vi phạm

- Duchuy16042006
- Chưa có nhóm
- Trả lời
  114
- Điểm
  1384
- Cảm ơn
  55
nhập xuất tự làm
- Duchuy16042006
- Chưa có nhóm
- Trả lời
  114
- Điểm
  1384
- Cảm ơn
  55
nếu làm kiểu chuyển ra xâu thứ hai, báo để sửa cho
- nguyensydung
- Chưa có nhóm
- Trả lời
  0
- Điểm
  100
- Cảm ơn
  0
Mình mù tin bạn ạ😅bạn làm hoàn chỉnh giúp mình luôn đc k ạ
- Duchuy16042006
- Chưa có nhóm
- Trả lời
  114
- Điểm
  1384
- Cảm ơn
  55
mù tin cũng biết nhập xuất chứ

Đăng nhập để hỏi chi tiết avatar

ttphulhp
Chưa có nhóm

Trả lời
913
Điểm
17366
Cảm ơn
515

ttphulhp

15/01/2021

program oken;uses crt;var s:string; i,j,dem,k: longint; sl: array[1..1000000] of longint; a: array[1..1000000] of char;begin clrscr; write('Nhap xau: '); readln(s); k:=0; for i:=32 to 126 do begin dem:=0; for j:=1 to length(s) do if chr(i)=s[j] then dem:=dem+1; if dem<>0 then begin k:=k+1; a[k]:=chr(i); sl[k]:=dem; end; end; for i:=1 to k do writeln(a[i],': ',sl[i]); readln;end.

Hãy giúp mọi người biết câu trả lời này thế nào?