Hiển thị kết quả từ 1 đến 10 / 10
  1. #1
    Tham gia
    04-10-2015
    Bài viết
    5
    Like
    0
    Thanked 0 Times in 0 Posts

    Dễ lắm ,xâu kí tự

    Nhập xâu,viết chương trình tìm số giá trị xuất hiện nhiều nhất trong sâu và in ra số lượng của chúng
    vd:1a2bceeffaka
    xuất ra a__3
    Quote Quote

  2. #2
    Tham gia
    30-07-2012
    Location
    VuaTenMien.Com - Mua bán Tên Miền
    Bài viết
    3,766
    Like
    161
    Thanked 254 Times in 229 Posts
    Dùng "lùa bò vào chuồng" bác
    www.VuaTenMien.Com, Mobi & Zalo:O9121Chín1357

  3. #3
    Tham gia
    27-01-2016
    Location
    THCS Phan Đăng Lưu
    Bài viết
    57
    Like
    1
    Thanked 92 Times in 39 Posts
    Để mình làm cho.

  4. 5 thành viên Like bài viết này:


  5. #4
    Tham gia
    27-01-2016
    Location
    THCS Phan Đăng Lưu
    Bài viết
    57
    Like
    1
    Thanked 92 Times in 39 Posts
    program xau;
    uses crt;
    var s,st,s1,th,sp:string;
    d:array[1..100] of integer;
    i,n,j,k,l,t,tg:integer;
    begin
    clrscr;
    write('Nhap xau:');readln(s);
    for i:=1 to length(s) do
    d[i]:=1;
    for i:=1 to length(s)-1 do
    begin
    j:=i+1;
    while j<=length(s) do
    if s[i]=s[j] then
    begin
    d[i]:=d[i]+1;
    delete(s,j,1);
    end else j:=j+1;
    end;
    sp:='';
    for i:=1 to length(s) do
    sp:=sp+s[i];
    for i:=1 to length(s)-1 do
    for j:=i+1 to length(s) do
    if d[i]<d[j] then
    begin
    tg:=d[i];
    d[i]:=d[j];
    d[j]:=tg;
    th:=sp[i];
    sp[i]:=sp[j];
    sp[j]:=th;
    end;
    for i:=1 to length(s) do
    if d[i]=d[1] then
    writeln(sp[i],'___',d[i]);
    readln
    end.
    Được sửa bởi Fjzer lúc 19:18 ngày 17-02-2016

  6. 5 thành viên Like bài viết này:


  7. #5
    Tham gia
    15-02-2016
    Bài viết
    62
    Like
    49
    Thanked 0 Times in 0 Posts

    mình nghĩ thế này khả thi với text lớn

    program tanso;
    uses crt;
    const fi='tanso.inp';
    fo='tanso.out';
    var f,g:text;
    procedure motep;
    begin
    assign(f,fi);reset(f);
    assign(g,fo);rewrite(g);
    end;
    procedure dongtep;
    begin
    close(f);close(g);
    end;
    procedure xuli;
    var i,j,l,max1,max2,max:integer;
    d,csm1,csm2,v,csm:char;
    s:string;
    dem:array['a'..'z'] of integer;
    demso:array['0'..'9'] of integer;
    begin
    readln(f,s);
    l:=length(s);
    fillchar(dem,sizeof(dem),0);
    fillchar(demso,sizeof(demso),0);
    for i:=1 to l do
    begin
    for v:='0' to '9' do
    if s[i]=v then inc(demso[v]);
    for d:='a' to 'z' do
    if (upcase(d)=s[i])or(s[i]=d) then inc(dem[d]);
    end;
    max1:=0;max2:=0;csm2:='0';csm1:='a';
    for d:='a' to 'z' do
    for v:='0' to '9' do
    if dem[d]>0 then
    begin
    if dem[d]>max1 then
    begin
    max1:=dem[d];
    csm1:=d;
    end;
    end;
    if demso[v]>0 then
    begin
    if demso[v]>max2 then
    begin
    max2:=demso[v];
    csm2:=v;
    end;
    end;
    if max1>max2 then
    begin
    max:=max1;
    csm:=csm1;
    end
    else
    begin
    max:=max2;
    csm:=csm2;
    end;
    writeln(g,csm,' ',max);
    end;
    BEGIN
    motep;
    xuli;
    dongtep;
    END.

  8. #6
    Tham gia
    27-01-2016
    Location
    THCS Phan Đăng Lưu
    Bài viết
    57
    Like
    1
    Thanked 92 Times in 39 Posts
    Mình không biết bạn làm thế nào nhưng bài mình làm thì chắc chắn đúng.

    - - - Updated - - -

    Nếu bạn thấy có gì không đúng thì alo lại nhé !!!

  9. #7
    Tham gia
    27-01-2016
    Location
    THCS Phan Đăng Lưu
    Bài viết
    57
    Like
    1
    Thanked 92 Times in 39 Posts
    À mà mình thấy code của bạn có vẻ dài ....

  10. #8
    Tham gia
    29-02-2016
    Bài viết
    6
    Like
    1
    Thanked 0 Times in 0 Posts
    Quote Được gửi bởi nguyenphuhiep View Post
    Nhập xâu,viết chương trình tìm số giá trị xuất hiện nhiều nhất trong sâu và in ra số lượng của chúng
    vd:1a2bceeffaka
    xuất ra a__3
    chuye sang ma askii = ham ord roi sap xep = dem phan phoi,sau do tim max roi dung ham chr de tim ra ki tu xuat hien nhieu nhat

  11. #9
    Tham gia
    27-01-2016
    Location
    THCS Phan Đăng Lưu
    Bài viết
    57
    Like
    1
    Thanked 92 Times in 39 Posts
    Lạc đề rồi bạn.

  12. #10
    Tham gia
    01-07-2012
    Bài viết
    123
    Like
    10
    Thanked 27 Times in 26 Posts
    Quote Được gửi bởi Fjzer View Post
    Lạc đề rồi bạn.
    Làm vậy là chuẩn rồi.

Bookmarks

Quy định

  • Bạn không thể tạo chủ đề mới
  • Bạn không thể trả lời bài viết
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
  •