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

[сергей1893]

Составить программу, которая для массива, заполненного случайными целыми числами, проводит сортировку по невозрастанию методом обмена («пузырька»). Подсчитать количество присваиваний и количество сравнений при сортировке.

[spein]

for i:=1 to 9 do
  for k:=2 to 10 do begin
    if(a[i]<a[k]) then begin
      buf:=a[k];
      a[k]:=a[i];
      a[i]:=buf;
  end;

[BDA]

//n - количество элементов массива
//sr - количество сравнений
//pr - количество присваиваний


sr:=0;
pr:=0;
for i:=1 to n-1 do
  for j:=i+1 to n do
  begin
	sr:=sr+1;
        if(a[i]<a[j]) then 
	begin
          tmp:=a[j];
          a[j]:=a[i];
          a[i]:=tmp;
	  pr:=pr+3;
	end;
  end;
writeln('Colichestvo prisvaivani: ',pr);
writeln('Colichestvo sravneni: ',sr);

[TinMan]

Мужики, все это очень здорово, и оно работает, но только это не пузырек.. Оно даже чем-то похоже на пузырек, но все же не он.
В пузырьковой сортировке сравниваются и переставляются _соседние_ элементы.

[Sna1L]

Ну и сравнивайте соседние эл-ты, в чем проблема?
Никто не обязан за Вас это делать, могли бы и постараться

[Sna1L]

TinMan, простите, думал, что Вы - тс.

[spein]

Ув., TinMan, если Вы не верите мне, так поверьте википедии:
http://ru.wikipedia.org/wiki/%D0%A1%...BA%D0%BE%D0%BC

[Sna1L]

spein, я тоже всегда думал, что сравниваются и свопятся соседние эл-ты.
Имхо, Ваши алгоритмы больше напоминают прямой обмен, но намного более медленый.
А пузырек можно очень неплохо оптимизировать(самый лучший вариант, вроде шейкер называется)

[spein]

Я показал простейшую сортировку обменом. Есть еще и оптимизированная. Где вместе с обменом идет и идентификатор отсортировки массива. Значительно ускоряет сортировку в полу отсортированном массиве.

[Sna1L]

2spein,Если не ошибаюсь, ТС требовался конкретно пузырек... Под обменом, имелся в виду тип к которому относится сортировка. Пузырь и прямой обмен относятся к типу обменных сортировок(прошу прощения за неверное определение).
Я в разделе "Помощь студентам" выложил варианты сортировок нескольких простых, там есть и обмен и пузырек(в т.ч. улучшенный)