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 提高组的主要内容,如果未能解决你的问题,请参考以下文章

洛谷P1012 [NOIP1998 提高组] 拼数

洛谷P1012 [NOIP1998 提高组] 拼数

[NOIP1998]拼数

洛谷-拼数-NOIP1998提高组复赛

卢斯加法表 Noip1998提高组-3

P1012 [NOIP1998 提高组] 拼数