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

**nguyenphuhiep** · 01-11-2015 20:26

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

**Bótay.com** · 14-11-2015 21:35

Dùng "lùa bò vào chuồng" bác

**Fjzer** · 13-02-2016 09:59

Để mình làm cho.

**Fjzer** · 13-02-2016 10:09

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.

**hoangbit** · 17-02-2016 09:10

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.