火星人(martian.pas/c/cpp)

 火星人

(martian.pas/c/cpp)

 

【问题描述】

 

人类终于登上了火星的土地并且见到了神秘的火星人。人类和火星人都无法理解对方的语言，但是我们的科学家发明了一种用数字交流的方法。这种交流方法是这样的，首先，火星人把一个非常大的数字告诉人类科学家，科学家破解这个数字的含义后，再把一个很小的数字加到这个大数上面，把结果告诉火星人，作为人类的回答。

火星人用一种非常简单的方式来表示数字——掰手指。火星人只有一只手，但这只手上有成千上万的手指，这些手指排成一列，分别编号为1，2，3……。火星人的任意两根手指都能随意交换位置，他们就是通过这方法计数的。

一个火星人用一个人类的手演示了如何用手指计数。如果把五根手指——拇指、食指、中指、无名指和小指分别编号为1，2，3，4和5，当它们按正常顺序排列时，形成了5位数12345，当你交换无名指和小指的位置时，会形成5位数12354，当你把五个手指的顺序完全颠倒时，会形成54321，在所有能够形成的120个5位数中，12345最小，它表示1；12354第二小，它表示2；54321最大，它表示120。下表展示了只有3根手指时能够形成的6个3位数和它们代表的数字：

 

三进制数	123	132	213	231	312	321
代表的数字	1	2	3	4	5	6

 

现在你有幸成为了第一个和火星人交流的地球人。一个火星人会让你看他的手指，科学家会告诉你要加上去的很小的数。你的任务是，把火星人用手指表示的数与科学家告诉你的数相加，并根据相加的结果改变火星人手指的排列顺序。输入数据保证这个结果不会超出火星人手指能表示的范围。

 

【输入文件】

 

输入文件martian.in包括三行，第一行有一个正整数N，表示火星人手指的数目（1 <= N <= 10000）。第二行是一个正整数M，表示要加上去的小整数（1 <= M <= 100）。下一行是1到N这N个整数的一个排列，用空格隔开，表示火星人手指的排列顺序。

 

【输出文件】

 

输出文件martian.out只有一行，这一行含有N个整数，表示改变后的火星人手指的排列顺序。每两个相邻的数中间用一个空格分开，不能有多余的空格。

 

【样例输入】

 

5

3

1 2 3 4 5

 

 【样例输出】

 

1 2 4 5 3

 

【数据规模】

 

对于30%的数据，N<=15；

对于60%的数据，N<=50；

对于全部的数据，N<=10000；

=======================

自己要构造出一个排序

1.指针从后面移向前面到第一个左边的数大于右边的数的位置

   记录右边的位置为k

2.从k位置到n位置寻找到一个大于k-1位置且最小的数

   交换

3.将k+1位置到n位置之间的数，按从小到大排序

4.重复1-3过程M-1次.

5.输出

==============================================

var
  n,m:longint;
  a:array[0..10000]of longint;
procedure init;
begin
  assign(input,'p1045.in');
  assign(output,'p1045.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

procedure main;
var
  i,i1,j,j1,tem:longint;
  k:longint;
begin
  readln(n);
  readln(m);
  for i:=1 to n do
    read(a[i]);
  a[0]:=-maxlongint;
  for i:=1 to m do
    begin
      k:=n;
      while a[k-1]>a[k] do dec(k);               //找到第一个左边小于右边的
      j1:=k;
      for j:=k+1 to n do
        if a[j]>a[k-1] then if a[j]<a[j1] then j1:=j;
      tem:=a[k-1]; a[k-1]:=a[j1]; a[j1]:=tem;          //找到右边最小的一个，交换
      for i1:=k to n-1 do
        for j1:=i1+1 to n do
          if a[i1]>a[j1] then
            begin
              tem:=a[i1];
              a[i1]:=a[j1];
              a[j1]:=tem;
            end;
    end;
  for i:=1 to n do
    write(a[i],' ');
end;

begin
  init;
  main;
  terminate;
end.