社区讨论

大神进来，菜鸟拜拜

AAnCcat
P1177【模板】排序参与者 6已保存回复 7

讨论操作

快速查看讨论及其快照的属性，并进行相关操作。

当前回复
7 条
当前快照
1 份
快照标识符
@mi5i2htc
此快照首次捕获于
2025/11/19 12:26
4 个月前
此快照最后确认于
2025/11/19 12:26
4 个月前
查看原帖
CPP
var a:array[1..100000]of longint;
procedure Kp(i,j:longint);
var
x,ii,jj,y:longint;
begin
if i>j then exit;
x:=a[i];
ii:=i;
jj:=j;
while j>i do
 begin
 while (a[j]>=x)and(j>i) do
  j:=j-1;
 while (a[i]<=x)and(j>i) do
  i:=i+1;
if i<j then begin
             y:=a[i];
             a[i]:=a[j];
             a[j]:=y;
            end;
 end;
a[ii]:=a[i];
a[i]:=x;
Kp(ii,i-1);
Kp(i+1,jj);
end;
var
n,i:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
Kp(1,n);
for i:=1 to n do write(a[i],' ');
end.
//错了吗？为什么40

回复

共 7 条回复，欢迎继续交流。

正在加载回复...