Форум программистов, компьютерный форум CyberForum.ru

Алгоритм сортировки - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Из одной матрицы сформировать другую http://www.cyberforum.ru/cpp-beginners/thread577361.html
Работа с массивами
C++ При нажатии на элементе этого списка в первом текстовом поле должна отражаться его цена Вот полное задание Заранее спасибо http://www.cyberforum.ru/cpp-beginners/thread577357.html
C++ Матрица
если в матрице количество нулей в столбиках возрастает, то нужно подсчитать общее количество нулей в матрице. если же наоборот, то надо найти столбик с максимальным количеством нулей. проблема в функции f1(). функция проверяет, возрастает ли количество нулей от столбика к столбику. она почему-то постоянно возвращает true, даже когда когда условие не выполняется. пробовал и закомментированым...
C++ Дан текстовый файл. Определить среднее количество слов в строке
Дан текстовый файл. Определить среднее количество слов в строке.
C++ Задача на обработку файла http://www.cyberforum.ru/cpp-beginners/thread577333.html
Записать в файл n натуральных чисел. получить в другом файле все компоненты файла f, кроме тех, которые кратны k. Вывести полученный файл на печать.
C++ Как сделать так, чтобы условие начало работать?Подскажите,пожалуйста Здравствуйте. Прошу,подскажите,пожалуйста, ступор уже. Вот прога: for(n=1;n<=100;n++) do { P0=1/(exp(r,n)); Temp=power(r,n)/factorial(n); P_otk=Temp*P0; Q=1-P_otk; подробнее

Показать сообщение отдельно
Ternsip
660 / 188 / 6
Регистрация: 10.05.2012
Сообщений: 595
17.05.2012, 11:17     Алгоритм сортировки
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Procedure QSort(l, r: integer);
Var i, j, x,temp: integer;
begin
  i := l;
  j := r;
  x := Mas[l + random(r - l)];
  While i < j do
  begin
    While Mas[i] < x do inc(i);
    While Mas[j] > x do dec(j);
    if i <= j then
    begin
      temp:=Mas[i];Mas[i]:=Mas[j];Mas[j]:=temp;
      inc(i); dec(j);
    end;
  end;
  if i < r then QSort(i, r);
  if l < j then QSort(l, j);
end;
 
 
  Qsort(0,ArrayLen-1); //сортим массив mas, нумеруется с 0 до n-1
Добавлено через 1 минуту
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure Swap(i,j:integer);
var e:integer;
begin
    e:=Mas[i];
    Mas[i]:=Mas[j];
    Mas[j]:=e;
end;
procedure DownHeap(k,p:longint);
var ch, g: longint;
begin
  g:=Mas[k];
  while k<=p/2 do
     begin
        ch:=2*k;
        if (ch<p)and(Mas[ch]<Mas[ch+1]) then inc(ch);
        if (g>=Mas[ch]) then break;
        Mas[k]:=Mas[ch];
        k:=ch;
     end;
  Mas[k]:=g;
end;
 
procedure HeapSortTime;
var i,time:integer;
begin
   for i:=trunc(ArrayLen/2) downto 1 do DownHeap(i,ArrayLen);
   for i:=ArrayLen downto 2 do
      begin
         swap(i, 1);
         DownHeap(1,i-1);
      end;
end;
Добавлено через 1 минуту
1-я быстрая сортировка, 2-я пирамидой, массив нумеруется с 0 до N-1 в обоих случаях
// longint =integer
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru