NOIP1998 提高组
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了NOIP1998 提高组相关的知识,希望对你有一定的参考价值。
[NOIP2002] 提高组
T2.联接数
算法:贪心+字符串处理
[问题分析]:
按整数对应的字符串大到小连接,因为题目的例子都符合,但是不难找到反例:12 121 应该组成12121而非12112,那么是不是相互包含的时候就从小到大呢?也不一定,如:12 123 就是12312而非12123,那么情况就多了。比较的标准应该是这样的:如果a后接b比b后接a大,就说"a>b"。直接输出排序结果。 详见课件的例9
1 var 2 s:array[1..100] of string; 3 s1:string; 4 n,m,i,j:longint; 5 begin 6 assign(input,‘quee.in‘);reset(input); 7 assign(output,‘quee.out‘);rewrite(output); 8 readln(n); 9 for i:=1 to n do 10 begin 11 read(m); 12 str(m,s[i]); 13 end; 14 for i:=1 to n-1 do 15 for j:=i+1 to n do 16 if s[i]+s[j]<s[j]+s[i] then 17 begin 18 s1:=s[i]; 19 s[i]:=s[j]; 20 s[j]:=s1; 21 end; 22 for i:=1 to n do write(s[i]); 23 writeln; 24 close(input);close(output); 25 end.
以上是关于NOIP1998 提高组的主要内容,如果未能解决你的问题,请参考以下文章