Question

pascal语言:输入一串字符,比较出现最多的数字,如果两个数字次数一样一样,就从小到大换行输出。

字符串内容只能是1、2、3、4、5、6、7、8、9。越简单越好。

Answer 1

type
  dt=record
    data:longint;
    number:integer;
  end;
var
  i:longint;
  s:ansistring;
  a,b:array[1..9] of ^dt;

procedure qucik_sort(x,y:longint);
var
  i,j:longint;
  temp:^dt;
begin
  j:=x;
  for i:=x to y-1 do
    if a[i]^.data<a[y]^.data then
      begin
        temp:=a[i];
        a[i]:=a[j];
        a[j]:=temp;
      end;
  temp:=a[y];
  a[y]:=a[j];
  a[j]:=temp;
  if x+1>= y
    then exit();
  qucik_sort(x,j-1);
  qucik_sort(j+1,y);
end;

begin
  readln(s);
  fillchar(a,sizeof(a),0);
  for i:=1 to 9 do
    a[i]^.number:=i;
  for i:=1 to length(s) do
    inc(a[ ord(s[i])-48 ]^.data);
  qucik_sort(1,9);
  for i:=1 to 9 do
    write(a[i]^.number);
  readln
end.

Answer 2

var
s:string;
a:array['1'..'9']of integer;
i,d:char;
max,j:integer;
begin
fillchar(a,sizeof(a),0);
read(s);
for j:=1 to length(s) do
a[s[j]]:=a[s[j]]+1;
max:=-1;
repeat
max:=0;
for i:='1' to '9' do
if a[i]>max then begin max:=a[i];d:=i;end;
if max<>0 then writeln(d,' ',max);
a[d]:=0;
until max=0;
end.

Answer 3

楼主您好！
var
s:string;
i,j,x,l:longint;
a,w:array[1..9] of longint;
begin
readln(s);
for i:=1 to length(s) do
begin
val(s[i],x);
a[x]:=a[x]+1;
end;
for i:=1 to 9 do
w[i]:=i;
for i:=1 to 8 do
for j:=i+1 to 9 do
if a[i]<a[j] then
begin
l:=a[i];
a[i]:=a[j];
a[j]:=l;
l:=w[i];
w[i]:=w[j];
w[j]:=l;
end;
for i:=2 to 9 do
if a[i]<>a[1] then begin x:=i-1; break; end else x:=i;
for i:=1 to x-1 do
for j:=i+1 to x do
if w[i]>w[j] then
begin
l:=w[i];
w[i]:=w[j];
w[j]:=l;
end;
for i:=1 to x do
writeln(w[i]);
end.
不懂欢迎追问！