Нужно отсортировать масив пузырьковым методом

@AsTeRX · Регистрация: 05.11.2009

Author24 — интернет-сервис помощи студентам

Помогите найти ошибку в програме
Нужно отсортировать масив пузырьковым методом и найти количество сравнений и перестановок...
Проблема в том што масив не совсем сортируетса, а сраввнения и перестановки щитает нормально.

Pascal

uses crt;
const n=10;
type mas=array[1..n]of word;
var i,m:word;
a:mas;
b1,b2:longint;
f,f1:text;
 
procedure readf(var a:mas; i:word);
var f:text;
begin
i:=1;
assign(f, paramstr(1));
reset(f);
while not eof(f) do begin
readln(f,a[i]);
i:=i+1;
end;
close(f);
end;
 
procedure bublik(var a:mas; var m:word; var b1,b2:longint);
var i,j,s:word;
begin
b1:=0; b2:=0;
for i:=2 to n do
for j:=n downto i do
begin b1:=b1+1;
if a[i]<a[j-1] then begin b2:=b2+1;
s:=a[j];
a[j]:=a[j-1];
a[j-1]:=s;
end;
end;
end;
 
begin
clrscr;
i:=1;
assign(f1,paramstr(2));
rewrite(f1);
readf(a,m);
bublik(a,m,b1,b2);
writeln(f1,b1);
writeln(f1,b2);
for i:=1 to n do begin
writeln(f1,a[i]);
end;
close(f1);
end.

@Snoopy · 11.03.2010, 18:32

вот вам сортировка, в программу не вникал

Pascal

for i:=1 to n do
 for j:=i to n do
  if a[i]<a[j] then
   begin
    x:=a[i];
    a[i]:=a[j];
    a[j]:=x;
   end;

	11.03.2010, 18:32