Giải Nén Xâu GNEN - Thầy Quách Văn Lượm

Thứ Ba, 9 tháng 7, 2019

Giải nén xâu GNEN

Đề thi tin học trẻ bảng C tỉnh Quảng Bình năm 2009 Trong máy tính, để tiết kiệm bộ nhớ, người ta thường tìm cách nén dữ liệu. Trong việc nén văn bản, ta sử dụng một phương pháp đơn giản được mô tả thông qua ví dụ sau: Ví dụ: · Với xâu ký tự: ‘aaaabbb’ sẽ được nén lại thành xâu ‘4a3b’. · Với xâu ký tự ‘aaab’ sẽ được nén lại thành xâu ‘3ab’. Cho một xâu ký tự St1 gồm các ký tự thuộc tập 'a'..'z'. Gọi St là xâu nén của xâu St1 theo phương pháp được mô tả như trên. Xâu St gồm N (1 ≤ N ≤ 255) ký tự thuộc tập các ký tự: 'a'..'z', '0'..'9' Yêu cầu: Hãy giải nén xâu St để được xâu gốc St1. Dữ liệu vào: xâu ký tự St. Dữ liệu ra: Ghi xâu St1 là xâu sau khi đã được giải nén. Ví dụ: GNEN.INPGNEN.OUT 3a5bc aaabbbbbc

12 nhận xét:

  1. Trần Trung Nguyễnlúc 15:17 9 tháng 9, 2019

    program p;uses crt;var s,ss:string; i,j,a:integer;beginclrscr;readln(s); ss:='';for i:=1 to length(s) do if (s[i] in ['0'..'9']) and (ss='') then ss:=ss+s[i] else if(not(s[i] in ['0'..'9'])) and (ss<>'') then begin val(ss,a); for j:=1 to a do write(s[i]); ss:=''; end;readln;end.

    Trả lờiXóaTrả lời
    1. Unknownlúc 14:34 17 tháng 4, 2021

      chuong trinh nay chay ko duoc

      XóaTrả lời
        Trả lời
    2. Unknownlúc 14:36 17 tháng 4, 2021

      a!duoc r

      XóaTrả lời
        Trả lời
    3. Unknownlúc 07:21 10 tháng 9, 2021

      bai nay chay sai nha! vi du cho 2b3cv thi ket qua bai se ra bbccc thoi!!

      XóaTrả lời
        Trả lời
    4. Trả lời
  2. Nhật Anhlúc 17:33 29 tháng 9, 2019

    Uses crt;Var St,St1,x:string;i,j,k,l:longint;Beginreadln(St);For i:=1 to length(St) doIf (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) doBeginIf St[i] in ['0'..'9'] thenFor j:=i+1 to length(St) doIf St[j] in ['a'..'z'] then break;x:=copy(St,i,j-i);Val(x,k);For l:=1 to k doSt1:=St1+St[j];end;Write(St1);readln;end.

    Trả lờiXóaTrả lời
      Trả lời
  3. Trần Trung Nguyễnlúc 16:52 2 tháng 1, 2020

    program n;uses crt;var s,so,st1,ss:string; i,k,j:integer;beginclrscr;readln(s);for i:=1 to length(s) do begin if s[i] in ['0'..'9'] then begin so:=so+s[i]; val(so,k); end; if not(s[i] in ['0'..'9']) then st1:=st1+s[i]; if st1<>'' then begin for j:=1 to k do ss:=ss+st1; so:=''; st1:=''; k:=1; end; end;write(ss);readln;end.

    Trả lờiXóaTrả lời
      Trả lời
  4. Unknownlúc 20:49 26 tháng 8, 2020

    uses crt;var f:text;s,so,st1,ss:string;n,i,k,j,code:integer;beginassign(f,'nen.inp');reset(f);readln(f,s);close(f);assign(f,'nen.out');rewrite(f);for i:=1 to length(s) dobeginif s[i] in ['0'..'9'] thenbeginso:=so+s[i];val(so,k);end;if (s[i-1] in ['A'..'Z']) or (s[i-1] in['a'..'z']) thenfor j:=1 to k do ss:=ss+s[i-1];k:=1;so:='';st1:='';end;write(f,ss);close(f);end.

    Trả lờiXóaTrả lời
    1. mailúc 10:28 17 tháng 1, 2021

      cam ơn lời giải, bạn có thể giải nén xâu sau giúp mình không a1b5d15 thành abbbbbddddddddddddddd

      XóaTrả lời
        Trả lời
    2. Trả lời
  5. ProNooblúc 08:59 11 tháng 10, 2020

    sai hết

    Trả lờiXóaTrả lời
    1. Unknownlúc 08:48 9 tháng 3, 2021

      chuẩn mịa lun

      XóaTrả lời
        Trả lời
    2. Trả lời
  6. Unknownlúc 23:00 13 tháng 11, 2020

    Program GiaiNen;cONST FI='Bai4.inp'; fo='Bai4.out';var s:string;Procedure tach(x:string); var p,c:longint; f,u:qword; r:string; begin if length(x)=0 then exit; for p:=1 to length(x) do begin if (x[p] in ['A'..'Z']) then begin write(x[p]); delete(x,p,1); break; end else if (x[p] in ['0'..'9']) and (x[p+1] in ['A'..'Z']) then begin r:=copy(x,1,p); if length(r)>17 then begin f:=0; while f<100000000000000000 do begin write(x[p+1]); f:=f+1; end; end else begin val(r,u); f:=0; while f<u do begin write(x[p+1]); f:=f+1; end; end; delete(x,1,length(r)+1); break; end; end; tach(x); end;BEGIN assign(input,fi); reset(input); assign(output,fo); rewrite(output); read(s); tach(s); close(input); close(output);END.

    Trả lờiXóaTrả lời
      Trả lời
  7. Unknownlúc 11:55 26 tháng 11, 2021

    uses crt;var st,r:string;a,i,t:integer;beginclrscr;write('nhap xau st: ');readln(st);r:='';a:=0;for i:=1 to length(st) doif st[i] in ['0'..'9'] then begin val(st[i],a); for t:=1 to a do write(st[i+1]); endelse if (i=1) or (st[i-1] in ['a'..'z']) then write(st[i]);readlnend.

    Trả lờiXóaTrả lời
      Trả lời
Thêm nhận xétTải thêm...

Dùng nick gmail để bình luận. Nếu lần đầu tiên bạn làm điều này thì hệ thống sẽ chuyển bạn sang trang blogger và hỏi bạn chọn tên hiển thị là gì. Bạn hãy nhập tên hiển thị rồi ok là được. Những lần bình luận sau hệ thống sẽ không hỏi nữa. Cảm ơn!

Bài đăng Mới hơn Bài đăng Cũ hơn Trang chủ Đăng ký: Đăng Nhận xét (Atom)

Bài được xem nhiều nhất

  • Cặp số CAPSO Cho dãy n số nguyên dương a1, a2, …, an và số nguyên dương S. Hãy đếm xem có bao nhiêu cặp phần tử (ai, aj) (i <> j) thỏa mãn ai + aj ...
  • Đếm kí tự khác nhau KTKHAC Nhập xâu s chỉ chứa các chữ cái viết hoa. Đếm xem s có bao nhiêu kí tự khác nhau. Input · Dòng 1: số test t · t dòng sau: mỗi dòng 1 xâu ...
  • Kiểm tra ngoặc đơn đúng NGOAC Xét xâu S chỉ bao gồm các kí tự ngoặc mở ‘(‘ và ngoặc đóng ‘)’. Xâu S xác định một cách đặt ngoặc đúng, nếu thỏa mãn các điều kiện: · Tổng ...
  • Đếm số nguyên tố cùng nhau Cho trước số nguyên dương n. Viết chương trình kiểm tra xem có bao nhiêu số nguyên dương nhỏ hơn hoặc bằng n nguyên tố cùng nhau với n (nghĩ...
  • Phân tích một số thành tổng ít nhất các số Fibonaci Phân tích số nguyên dương thành tổng các số hạng của dãy Fibonaci sao cho ít số hạng nhất (các số hạng không được trùng nhau). Xem clip hư...
  • Giải nén xâu GNEN Đề thi tin học trẻ bảng C tỉnh Quảng Bình năm 2009 Trong máy tính, để tiết kiệm bộ nhớ, người ta thường tìm cách nén dữ liệu. T...
  • Số âm lớn nhất SOAM (Tuyến sinh phổ thông năng khiếu 2007) Yêu cầu: Hãy tìm số âm lớn nhất X trong dãy.Cho một dãy gồm N số nguyên a1, a2, …, aN, mỗi số có gi...
  • Số đảo ngược SODAO Tìm số đảo ngược Y của một số X, biết Y gồm các chữ số của X và viết theo thứ tự ngược lại. Xuất ra kết quả là số Y mod 19 Input Output ...
  • Tối giản phân số PHANSO Một chuỗi được gọi là có dạng phân số nếu nó có dạng như sau: Tử_số/Mẫu_số. Ví dụ: chuỗi ‘123/456’ biểu diễn cho phân số chuỗi ‘1/12’ biể...
  • Đồng hồ CLOCK Bảng của đồng hồ điện tử gồm một dãy ba số h, p và s thể hiện tương ứng giờ, phút và giây của thời điểm hiện tại. Cứ sau mỗi giây giá t...

Tìm kiếm Blog này

Menu

  • Trang chủ
  • Đôi nét về bản thân
  • Lớp học miễn phí
  • Học online và bán online
  • Bài tập giải thuật nhập môn
  • Hệ thống bài tập qvluom
  • Download tài liệu
  • Liên lạc

Thống kê truy cập

Từ khóa » Bài Toán Nén Xâu Trong Pascal