П'ятниця, 29.03.2024, 11:49
Гость

Мішатронік

Мобільна версія | Додати у вибране  | Мій профіль | Вихід | RSS |
Меню сайту
Наше опитування
Чи знаєте ви, що таке спортивне програмування?
Всього відповідей: 0
Статистика

Онлайн всього: 1
Гостей: 1
Користувачів: 0


{быстрая сортировка}
const
  maxn = 100000;
Type
  DataType = extended;
var
  i,n:longint;
  buf,X:DataType;
  a:array[1..maxn]of DataType;

procedure Sort(L,R:Longint);
var
  j:longint;

begin
  i:=L; j:=R; X:=a[(i+j)shr 1];
  repeat
    while a[i]<X do inc(i);
    while a[j]>X do dec(j);
    if i<=j then begin
      buf:=a[i]; a[i]:=a[j]; a[j]:=buf;
      inc(i); dec(j);
    end;
  until i>j;
  if i<R then Sort(i,R);
  if j>L then Sort(L,j);
end;

begin
end.

 

Форма входа
Пошук
Друзі сайту
Календар
«  Березень 2024  »
ПнВтСрЧтПтСбНд
    123
45678910
11121314151617
18192021222324
25262728293031

Єдина Країна! Единая Страна!