program hxr;

var

x,m,i,j,temp,e,temp_:integer;

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

begin

readln(x);readln(m);

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

a[10001]:=10002;

for i:=1 to m do

begin

j:=x-1;

while a[j+1]a[e])and(a[j]

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

哎，这NOIP不知该怎办...

就是求一个数的后K个排列

var a:array[0..20001] of word;

i,k,j,n,t,l,tmp:longint;

begin

readln(n); readln(t);

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

for l:=1 to t do

begin

i:=n;

while (a[i]

Flag Accepted

题号 　　P1115

类型(?) 　　其它

通过 　　1602人

提交 　　3417次

通过率 　　47%

难度 　　2

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

var a:array[1..10000] of integer;

n,m,i:integer;

procedure init;

var i:integer;

begin

readln(n);

readln(m);

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

readln;

end;

procedure swap(var x,y:integer);

var t:integer;

begin

t:=x;x:=y;y:=t;

end;

procedure work;

var min,i,j,k,l,r:integer;

begin

for k:= 1 to m do

begin

for i:= n downto 1 do if a[i]a[i]) then break ;

swap(a[i],a[j]);

l:=i+1;r:=n;

while l

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

var a:array[1..10000]of integer;

t,m,n,i,j,k,min,minj:integer;

r:array[1..10000]of integer;

procedure swap(var a,b:integer);

begin

a:=a+b;

b:=a-b;

a:=a-b;

end;

begin

readln(n);

readln(m);

for i:=1 to n do

read(a[i]);

for i:=1 to m do

begin

for j:=n downto 1 do

if a[j]>a[j-1] then

break;

min:=n+1;

for k:=n downto j do

if (a[k]>a[j-1])and(a[k]

(#‵′)凸

冏。。全排列。。

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

水题一道

BS 下

(#‵′)凸

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

一次AC,太完美了...........在RQNOJ上有效耗时1000ms+...............

最外面循环m次,里面每一次都从最后一位开始循环,找到自己比后面的数小的第一位,再从最后一位开始循环,找出比这个数大的最小的数,然后交换,后面的数再快排

Vijos测评机境界差距太大!!!

同样的程序...同样的评测机(Lora Temper)

第一次

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：运行超时...

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：90 有效耗时：0ms

第二次

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

【两次提交间隔49秒】

差太多了吧！...

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

康托展开

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

#include

int m,k,n,x,y,i,j;

int a[10001];

int main(){

scanf("%d%d",&n,&m);

for (i=1;i

编译未通过...

├ 测试数据 01：答案正确... 1000ms

├ 测试数据 02：答案正确... 1000ms

├ 测试数据 03：答案正确... 1000ms

├ 测试数据 04：答案正确... 1000ms

├ 测试数据 05：答案正确... 1000ms

├ 测试数据 06：答案正确... 1000ms

├ 测试数据 07：答案正确... 1000ms

├ 测试数据 08：答案正确... 1000ms

├ 测试数据 09：答案正确... 1000ms

├ 测试数据 10：答案正确... 1000ms

-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-

Accepted 有效得分：101 有效耗时：10000ms

你可以在这里写上你的解题思路或者解题方法等

但规定要求不能贴出任何有关于此题的程序代码

Flag 　　Don't know o(∩_∩)o...

题号 　　P1115

类型 　　其它

通过 　　3023人

提交 　　3022次

通过率 　　101%

难度 　　-1

55 / 94 (59%) 　 首页 站务 公告　|　题库/分类/原题 记录 比赛 团队 交流 讨论　|　U-Space 搜索 换肤　|　登出

公告 News >> 　　New! CSC WorkGroup 邀请赛II 按原计划原时间举行 (2008-9-4 14:39:42) 　　New! 热烈庆祝Vijos总评测记录突破80万条 (2008-9-2 6:33:35) 　　New! Vijos 交流板块开放 (2008-8-30 22:29:55) 　　New! CSC WorkGroup 邀请赛II (2008-8-30 0:12:12) 　　New! 简单的生活模拟赛 评测结束 (2008-8-30 0:10:00)

---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|--

跳转 Goto >> 　第 1 2 3 4 5 页　我来添加题目　查看评测总记录　题库分类筛选 快速转入:题号 模拟 动态规划 字符串处理 搜索 数论 / 数值 计算几何 图结构 树结构

匹配 并查集 贪心 最短路 博弈论 高级数据结构 网络流 其它

Flag 题号 标题 通过 提交 通过率 难度

P1100

加分二叉树 1692人 2916次 58% 2

P1101

传染病防治 361人 1469次 25% 3

Accepted P1102

陶陶摘苹果 MySol. 6073人 9648次 63% 1

Accepted P1103

校门外的树 MySol. 4349人 8707次 50% 1

Accepted P1104

采药 MySol. 3867人 8722次 44% 2

P1105

神经网络 811人 2589次 31% 2

P1106

侦探推理 268人 681次 39% 2

P1107

环游大同80天 153人 736次 21% 2

P1108

小胖超市 17人 196次 9% 2

P1110

小胖邮递员 18人 77次 23% 4

P1112

小胖的奇偶 271人 1431次 19% 3

Accepted P1113

不高兴的津津 MySol. 4927人 8311次 59% 1

P1114

FBI树 1704人 3204次 53% 2

P1115

火星人 1345人 2966次 45% 2

P1116

一元三次方程求解 2242人 4835次 46% 1

Accepted P1117

数的划分 MySol. 2468人 4632次 53% 2

P1118

统计单词个数 773人 2476次 31% 3

P1119

Car的旅行路线 543人 1370次 40% 3

P1120

花生采摘 1389人 3451次 40% 2

P1121

马拦过河卒 2936人 7124次 41% 1

P1122

出栈序列统计 1990人 2922次 68% 2

Accepted P1123

均分纸牌 MySol. 2962人 6224次 48% 1

P1124

字串变换 531人 2497次 21% 3

P1125

自由落体 1271人 3058次 42% 1

P1126

矩形覆盖 278人 603次 46% 3

Accepted P1127

级数求和 MySol. 4116人 7895次 52% 1

Accepted P1128

选数 MySol. 1928人 3540次 54% 2

P1129

产生数 713人 3246次 22% 2

Accepted P1130

数的计数 MySol. 3029人 5046次 60% 1

P1131

最小公倍数和最大公约数问题 2063人 4880次 42% 1

Accepted P1132

求二叉树的先序序列 MySol. 2126人 3339次 64% 1

Accepted P1133

装箱问题 MySol. 3165人 7547次 42% 2

P1134

24点游戏 621人 2531次 25% 3

P1136

数的计数(加强版) 129人 1459次 9% 2

P1137

组合数 344人 1092次 32% 3

P1138

冗余依赖 54人 150次 36% 3

Unaccepted P1139

小胖办证 890人 5161次 17% 1

P1140

24点游戏狂想曲 92人 609次 15% 3

Accepted P1141

最小非负值 MySol. 1934人 5942次 33% 1

P1142

HXOS 13人 65次 20% 3

P1143

三取方格数 799人 1866次 43% 2

P1144

小胖守皇宫 353人 1611次 22% 3

P1145

小胖吃巧克力 8人 189次 4% 3

Accepted P1146

宿舍里的故事之五子棋 MySol. 1367人 2426次 56% 1

P1147

移动公司 8人 89次 9% 2

P1148

单向双轨道 37人 274次 14% 2

P1149

驾车旅游 122人 384次 32% 2

P1150

关路灯 452人 1157次 39% 3

P1151

失落的成绩单 218人 520次 42% 2

Accepted P1152

肥猫的游戏 MySol. 661人 1574次 42% 1

P1153

猫狗大战 866人 4591次 19% 2

P1154

买蛋糕 148人 620次 24% 3

P1155

集合位置 265人 1050次 25% 2

P1156

猩猩散步 134人 459次 29% 4

P1157

分梨子 114人 1037次 11% 5

P1158

小三学算术 61人 201次 30% 3

P1159

岳麓山上打水 117人 883次 13% 3

P1161

机器人搬重物 68人 217次 31% 3

P1162

波浪数 98人 720次 14% 2

P1164

曹冲养猪 850人 4800次 18% 0

Accepted P1165

火烧赤壁 MySol. 681人 2535次 27% 0

P1166

木牛流马 250人 575次 43% 0

P1167

南蛮图腾 192人 539次 36% 0

P1168

公路巡逻 6人 50次 12% 4

P1169

丘比特的烦恼 66人 276次 24% 4

P1170

快乐的蜜月 36人 136次 26% 5

P1171

采矿 10人 56次 18% 4

P1172

反质数 290人 672次 43% 3

P1173

物流运输 57人 159次 36% 4

P1175

胜利大逃亡 67人 487次 14% 3

P1176

奇怪的数列 805人 1483次 54% 2

P1177

三角形最值 7人 34次 21% 3

P1178

圆环套圆环 314人 866次 36% 3

P1179

邮票面值设计 400人 2763次 14% 2

P1180

选课 556人 1407次 40% 2

Accepted P1181

CoVH之密码破解 MySol. 782人 2130次 37% 2

Accepted P1182

星际青蛙(弱弱版) MySol. 1635人 2137次 77% 2

P1183

Fish && kitty 37人 230次 16% 2

P1184

CoVH之华丽的IP伪装 34人 327次 10% 2

P1185

Endless Traveling 54人 146次 37% 2

P1187

兵分N路 780人 2586次 30% 1

P1189

栅栏 79人 239次 33% 2

Accepted P1190

繁忙的都市 MySol. 220人 527次 42% 3

P1191

最大子矩阵 70人 299次 23% 3

Accepted P1192

星际青蛙(木木版) MySol. 344人 916次 38% 3

P1193

扫雷 209人 651次 32% 2

P1194

Domino 115人 462次 25% 1

P1195

“非常男女”计划 842人 2902次 29% 2

P1196

吃糖果游戏 1149人 2385次 48% 1

P1197

费解的开关 288人 941次 31% 3

P1198

最佳课题选择 881人 2860次 31% 2

P1199

核弹危机 1393人 2518次 55% 2

跳转 Goto >> 　第 1 2 3 4 5 页　我来添加题目　查看评测总记录　题库分类筛选

伙子5該曬伱嘅程序啊,幫左個大忙...thank you

program p1115;

var

m,k:byte;

n,x,y,i,j:integer;

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

begin

readln(n);

readln(m);

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

for k:=1 to m do

begin

x:=n-1;

while a[x]>a[x+1] do dec(x);

y:=n;

while a[y]a[j] then

begin

y:=a[i]; a[i]:=a[j]; a[j]:=y;

end;

end;

for i:=1 to n-1 do write(a[i],' ');

writeln(a[n]);

end.