haihongyuan.com
海量文库 文档专家
全站搜索:
您现在的位置:首页 > 初中教育 > 学科竞赛学科竞赛

车厢重组

发布时间:2013-12-18 11:35:56  

车厢重组

[问题描述]:

在一个旧式的火车站旁边有一座桥,其桥面可以绕河中心的桥墩水平旋转。一个车站的职工发现桥的长度最多能容纳两节车厢,如果将桥旋转180度,则可以把相邻两节车厢的位置交换,用这种方法可以重新排列车厢的顺序。于是他就负责用这座桥将进站的车厢按车厢号从小到大排列。他退休后,火车站决定将这一工作自动化,其中一项重要的工作是编一个程序,输入初始的车厢顺序,计算最少用多少步就能将车厢排序。

[输入]:

输入文件有两行数据,第一行是车厢总数N(不大于10000),第二行是N个不同的数表示初始的车厢顺序。

[输出]:

一个数据,是最少的旋转次数。

[样例]:

carry .in

4

4 3 2 1

carry .out

6

参考程序:

var n,i,j,k:integer;

num:longint;

a:array[1..1000] of integer;

t:boolean;

begin

assign(input,'carry.in'); assign(output,'carry.out');

reset(input); readln(n);

for i:=1 to n do read(a[i]);

close(input);

k:=n;

repeat

t:=true;

for i:=1 to k-1 do

if a[i]>a[i+1] then

begin

j:=a[i];a[i]:=a[i+1];a[i+1]:=j;

num:=num+1;t:=false;

end;

k:=k-1;

until t;

rewrite(output);writeln(num);close(output);

end.

上一篇:数字排列列问题
下一篇:回文数
网站首页网站地图 站长统计
All rights reserved Powered by 海文库
copyright ©right 2010-2011。
文档资料库内容来自网络,如有侵犯请联系客服。zhit326@126.com