【寒假任务】洛谷1781 宇宙总统

最新推荐文章于 2024-08-16 22:11:22 发布

原创最新推荐文章于 2024-08-16 22:11:22 发布 · 451 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#排序 #pascal

寒假任务同时被 2 个专栏收录

15 篇文章

订阅专栏

排序

15 篇文章

订阅专栏

本文介绍了一种使用字符串处理和快速排序算法解决大数投票统计问题的方法。针对候选人票数可能超过常规数值类型所能表示范围的情况，通过字符串进行票数的存储与比较，并实现了高效的排序算法来找出得票最多的候选人。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

问题描述
给出每个总统候选人票数，找出票数最大的候选人，输出其号数及票数。注意票数可能会到100位。
样例输入
5
98765
12365
87954
1022356
985678
样例输出
4
1022356
算法讨论
用字符串来排序，因为票数过大，整型储存不下，实型过大会用科学计数法输出，所以选择字符串。不过在不同位数的数比较时会出错，像9>100这种错误，所以我找出了长度最长的字符串，记录每个字符串的长度，然后再非最大长度字符串前补零，这样就可以了。时间复杂度O(n log n)。

const
  maxn=20;
var
  a:array[1..maxn] of string;
  b,l:array[1..maxn] of longint;
  i,j,n,max:longint;
  st:string;

procedure qsort(l,r:longint);
var
  i,j,t1:longint;
  m,t:string;
begin
  i:=l; j:=r;
  m:=a[(l+r) div 2];
  repeat
    while a[i]>m do
      inc(i);
    while a[j]<m do
      dec(j);
    if i<=j
      then begin
             t:=a[i]; a[i]:=a[j]; a[j]:=t;
             t1:=b[i]; b[i]:=b[j]; b[j]:=t1;
             inc(i); dec(j);
           end;
  until i>j;
  if l<j
    then qsort(l,j);
  if i<r
    then qsort(i,r)
end;

begin
  readln(n);
  for i:=1 to n do
    begin
      readln(a[i]);
      l[i]:=length(a[i]);
      if l[i]>max
        then max:=l[i];
      b[i]:=i
    end;
  for i:=1 to n do
    for j:=1 to max-l[i] do
      a[i]:='0'+a[i];
  qsort(1,n);
  writeln(b[1]);
  writeln(a[1])
end.