мета-данные страницы
  •  
Загрузка не удалась. Возможно, проблемы с правами доступа?

Различия

Показаны различия между двумя версиями страницы.

Ссылка на это сравнение

Предыдущая версия справа и слеваПредыдущая версия
Следующая версия		Предыдущая версия
pascal:sort [20/09/2011 14:30] – dnaumovpascal:sort [21/10/2011 12:07] (текущий) – ybezrukov
Строка 1: Строка 1:
 +===== Сортировка пузырьком =====
 +
 +<flashplayer width=320 height=260>file=http://wiki.nsunc.com/_media/sorting/bubble-sort.flv</flashplayer>
 +
 <code pascal| Сортировка пузырьком> <code pascal| Сортировка пузырьком>
 const  const 
Строка 30: Строка 34:
 </code> </code>
  
-<code pascal| Сортировка выборкой>+<code java| Сортировка пузырьком> 
 + 
 +class BubbleSort{ 
 +   static float[] sort(float[] a){ 
 +      for(int i = a.length - 1; i >= 0; i--){ 
 +         for (int j = 0; j < a.length - 1; j++){ 
 +            if (a[j] > a[j+1]){ 
 +               float tmp = a[j]; 
 +               a[j] = a[j+1]; 
 +               a[j+1] = tmp; 
 +            } 
 +         } 
 +      } 
 +      return a; 
 +   } 
 +   public static void main(String[] args) { 
 +      int N = 100; 
 +      float a[]; 
 +      a = new float[N]; 
 +      for(int i = 0; i < a.length; i++){ 
 +         a[i] = (float)Math.random() * 100; 
 +      } 
 +      a = sort(a); 
 +   } 
 +} 
 + 
 +</code> 
 + 
 +===== Сортировка выбором ===== 
 + 
 +<flashplayer width=320 height=260>file=http://wiki.nsunc.com/_media/sorting/select-sort.flv</flashplayer> 
 + 
 +<code pascal| Сортировка выбором>
 const  const 
     N = 100;     N = 100;
Строка 61: Строка 97:
 </code> </code>
  
 +===== Быстрая сортировка =====
 +
 +<flashplayer width=320 height=260>file=http://wiki.nsunc.com/_media/sorting/quick-sort.flv</flashplayer>
  
 <code pascal| Быстрая сортировка> <code pascal| Быстрая сортировка>
Строка 90: Строка 129:
       end;       end;
     until Lo > Hi;     until Lo > Hi;
-    if Hi > iLo then QSort(A, iLo, Hi); +    if Hi > iLo then QSort(iLo, Hi); 
-    if Lo < iHi then QSort(A, Lo, iHi);+    if Lo < iHi then QSort(Lo, iHi);
   end;   end;
  
Строка 97: Строка 136:
   QSort(1, N);   QSort(1, N);
 end; end;
- 
  
 begin begin
Строка 109: Строка 147:
 </code> </code>
  
 +===== Другие алгоритмы =====
  
 +[[pascal:anysort|Другие алгоритмы сортировки]]