Tin học Tần số chữ số

02-07-2019. · 23 Tháng mười một 2019

Mã:

var a:array[1..1000000] of int64;
    f:array[1..26] of int64;
    s:string;
    n,i,j:longint;max:int64;
Procedure QS(d,c:int64);
Var
     i,j,g:longint;tg:int64;
Begin
       i:=d;j:=c;g:=a[(i+j) div 2];
     Repeat
       While a[i]<g do inc(i);
       While a[j]>g do dec(j);
         If i<=j then
            Begin
              tg:=a[i];a[i]:=a[j];a[j]:=tg;
              inc(i);dec(j);
            End;
     Until i>=j;
      If i<c then qs(i,c);
      If d<j then qs(d,j);
End;
Begin
        Assign(input,'freq.inp');reset(input);
        Assign(output,'freq.out');rewrite(output);
          Read(s);
            For i:=1 to 26 do
               f[i]:=0;
             For i:=1 to length(s) do
                Begin
                  If (s[i]='a') or (s[i]='A') then inc(f[1]);
                  If (s[i]='b') or (s[i]='B') then inc(f[2]);
                  If (s[i]='c') or (s[i]='C') then inc(f[3]);
                  If (s[i]='d') or (s[i]='D') then inc(f[4]);
                  If (s[i]='e') or (s[i]='E') then inc(f[5]);
                  If (s[i]='f') or (s[i]='F') then inc(f[6]);
                  If (s[i]='g') or (s[i]='G') then inc(f[7]);
                  If (s[i]='h') or (s[i]='H') then inc(f[8]);
                  If (s[i]='i') or (s[i]='I') then inc(f[9]);
                  If (s[i]='j') or (s[i]='J') then inc(f[10]);
                  If (s[i]='k') or (s[i]='K') then inc(f[11]);
                  If (s[i]='l') or (s[i]='L') then inc(f[12]);
                  If (s[i]='m') or (s[i]='M') then inc(f[13]);
                  If (s[i]='n') or (s[i]='N') then inc(f[14]);
                  If (s[i]='o') or (s[i]='O') then inc(f[15]);
                  If (s[i]='p') or (s[i]='P') then inc(f[16]);
                  If (s[i]='q') or (s[i]='Q') then inc(f[17]);
                  If (s[i]='r') or (s[i]='R') then inc(f[18]);
                  If (s[i]='s') or (s[i]='S') then inc(f[19]);
                  If (s[i]='t') or (s[i]='T') then inc(f[20]);
                  If (s[i]='u') or (s[i]='U') then inc(f[21]);
                  If (s[i]='v') or (s[i]='V') then inc(f[22]);
                  If (s[i]='w') or (s[i]='W') then inc(f[23]);
                  If (s[i]='x') or (s[i]='X') then inc(f[24]);
                  If (s[i]='y') or (s[i]='Y') then inc(f[25]);
                  If (s[i]='z') or (s[i]='Z') then inc(f[26]);
          qs(1,26);
       End;
       Write(f[26]);
End.

Mọi người giúp em qs mảng f với ạ!
Đề : Cho 1 xâu s. Tìm tần số lớn nhất của s trong xâu s.
VD : abndhnbsnnbaoooooooooo
out: 10
Em cảm ơn!

Hải Ham Học · 24 Tháng mười một 2019

nếu tần số đây là ký tự xuất hiện nhiều nhất thì cộng dồn lại thôi, đề bài không bắt in ra chữ cái xuất hiện nhiều nhất nên bạn không cần if nhiều vậy đâu, mà nếu có thì gắn 1 biến (thuộc kiểu sâu ký tự) cho chữ số xuất hiện nhiều nhất cho nó gọn, code dài cũng rối lắm
-----------------------------------

Mã:

var i,j,d,max:integer;
       a:array[1..100000] of longint;
       s:string;
       tg:char;
begin
 readln(s);
 for i:=1 to length(s) do
  begin
    tg:=s[i];
    for j:=1 to length(s) do  
        if tg=s[j] then d:=d+1;
    if max<d then max:=d;
   end;
writeln(max);
readln;
end.

bạn tự ráp vô file nha

Nhật Hạ ! · 25 Tháng mười một 2019

Hải Ham Học said:
nếu tần số đây là ký tự xuất hiện nhiều nhất thì cộng dồn lại thôi, đề bài không bắt in ra chữ cái xuất hiện nhiều nhất nên bạn không cần if nhiều vậy đâu, mà nếu có thì gắn 1 biến (thuộc kiểu sâu ký tự) cho chữ số xuất hiện nhiều nhất cho nó gọn, code dài cũng rối lắm
-----------------------------------

Mã:

var i,j,d,max:integer; a:array[1..100000] of longint; s:string; tg:char; begin readln(s); for i:=1 to length(s) do begin tg:=s[i]; for j:=1 to length(s) do if tg=s[j] then d:=d+1; if max<d then max:=d; end; writeln(max); readln; end.

bạn tự ráp vô file nha

Phải gán d:=0 lại sau mỗi lần xét thì mới được nha bạn, với lại cũng không cần biến a

Mã:

begin
   d:=0;
    tg:=s[i];
    for j:=1 to length(s) do
        if tg=s[j] then d:=d+1;
    if max<d then max:=d;
   end;

Hải Ham Học · 26 Tháng mười một 2019

Nhật Hạ ! said:
Phải gán d:=0 lại sau mỗi lần xét thì mới được nha bạn, với lại cũng không cần biến a

Mã:

begin d:=0; tg:=s[i]; for j:=1 to length(s) do if tg=s[j] then d:=d+1; if max<d then max:=d; end;

:>> xin lỗi nhé, tại mình viết code trên phần mềm rồi qua đây quên sửa á mà

Tìm kiếm

Tìm kiếm

Tin học Tần số chữ số

02-07-2019.

Học sinh tiến bộ

Hải Ham Học

Học sinh

Nhật Hạ !

Học sinh chăm học

Hải Ham Học

Học sinh