クイックソート後の出力(pascal)

質問

20個の整数データをクイックソートして出力せよ、という課題が出ました。クイックソートまでは出来た（コンパイルできたのでおそらく）のですが、その順に出力する方法がわかりません。どなたかお教えください。

program sort(input,output);
const n = 20;
type
index = 1..n;
var A : array[1..n] of integer;
i,x,a : integer;
p,j,k : index;

function PIVOT(i,j : index):integer;
var k:index;
begin
k:=i+1;
while (A[i]=A[k]) and (k<=j) do k:=k+1;
if k>j then PIVOT:=0
else if A[i]>=A[k] then PIVOT:=i
else PIVOT:=k
end;

procedure SWAP(var x,y:integer);
var
temp:integer;
begin
temp:=x; x:=y; y:=temp
end;

procedure PARTITION(i,j:index; a:integer; var k:index);
var l,r:index;
begin
l:=i; r:=j;
while A[l]<a do l:=l+1;
while A[r]>=a do r:=r-1;
while l<=r do
begin
SWAP(A[l],A[r]);
l:=l+1; r:=r-1;
while A[l]<a do l:=l+1;
while A[r]>=a do r:=r-1;
end;
k:=l
end;

procedure QUICKSORT(i,j:index);
var a:integer; p:index; k:index;
begin
p:=PIVOT(i,j);
if p<>0 then
begin
a:=A[p];
PARTITION(i,j,a,k);
QUICKSORT(i,k-1);
QUICKSORT(k,j)
end
end;

begin
i:=0;
i:=1+1;
for i:= 1 to n do
begin
A[i]:=0;
end;
i:=0;
i:=i+1;
for i:= 1 to n do
begin
readln(x);
A[i]:=x
end;
a:=PIVOT(p,j);
PARTITION(p,j,A[a],k);
QUICKSORT(p,j)
end.

QUICKSORT(p,j)とend.　の間に出力方法を書き込みたいのです。

回答No.2

sakusaker7 · ベストアンサー

んー、自分の手元では
質問にあるソースでは配列名の A と 通常変数名の aとが
衝突するのでコンパイルできないし、
名前を変えて衝突しないようにすると、コンパイルは通るのだけど

$a < lll
a: value out of range (error #300 at 4015e8)

と実行時エラーになります。

使ったPascalコンパイラは gpc (GNU Pascal)です。

どうも partitionがうまくできてないような気がするんだけどなあ。
#時間がないので追いかけてないです

ソートがきちんとできていれば
>for i := 1 to n do writeln(A[i])　と最初考えたのですが
でいいはずで、
元の内容と同じものが出たというのは元からソート済みのデータでもなければ
プログラムがどっかおかしいということだと思います。

お礼

ありがとうございます。出力は↑のでいいのですか・・・他も、いろいろ確認します。(関数はほぼ教科書に載ってたとおりに書いたのになぁ・・・

回答No.1

sakusaker7

本当にコンパイルできてます?

> var A : array[1..n] of integer;
> i,x,a : integer;

Pascalは大小文字を区別しないから、ここで変数の宣言が重複するはずなんだけど。

出力は writelnなりwriteでなにかもんだいがあるんでしょうか?

補足

確かにコンパイルは出来たのですが・・・明日確認してみます。

for i := 1 to n do writeln(A[i])　と最初考えたのですが、それだと始めの入力と同じものが出てきたので、並べ替えた順に出力するのはどうしたらいいのかな、と思ったのです。