Nội dung bài viết

    Xem thêm

    Viết chương trình để nén và giải nén một xâu ký tự

    Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

    1 819 03/08/2023
    Trang trước
    Chia sẻ
    Trang sau  

    Viết chương trình để nén và giải nén một xâu ký tự

    Đề bài: 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'.

    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.

    Xem thêm các câu hỏi Tin học có đáp án khác:

    So sánh sự giống và khác nhau giữa rom va ram

    Firmware đề cập đến điều gì?

    Tiền đề quyết định cho sự phát triển nền kinh tế tri thức là?

    Kết quả in ra màn hình của câu lệnh Writeln(‘5+20 = ‘, 20+5); là

    Khi tạo ra 1 biểu mẫu để nhập dữ liệu thì ta bắt buộc phải

    Hãy chọn biểu diễn tên đúng trong những biểu diễn sau

    Biểu diễn nào dưới đây không phải là biểu diễn hằng trong Pascal:

    Trong thiết bị sau, thiết bị nào có tốc độ truy xuất chậm nhất

    Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n

    Viết chương trình in ra số lớn nhất trong bốn số nhập từ bàn phím

    Viết chương trình xét một tam giác có là tam giác vuông hay không

    Viết chương trình Python cho phép nhập vào 3 số nguyên a,b, c

    Viết chương trình in ra thông báo một số nguyên nhập vào từ bàn phím

    Cho đoạn chương trình sau: x:=8,y:=10; If x>y then

    Để chạy chương trình ta dùng tổ hợp phím:

    Cho đoạn chương trình sau

    Viết chương trình dịch các ngày trong tuần ra tiếng anh

    Bài viết cùng lớp mới nhất

    Xem thêm
    1 819 03/08/2023
    Trang trước
    Chia sẻ
    Trang sau  

    Xem thêm các chương trình khác: