Блок схема алгоритма быстрой сортировки...

← →
Vulko © (2004-10-11 22:43) [0]

Народ, поделитесь плиз, у кого есть...

← →
Rouse_ © (2004-10-11 22:58) [1]

Пузырьком?

← →
Vulko © (2004-10-11 23:03) [2]

Да нет! Быстрая сортровка.

← →
Vulko © (2004-10-11 23:04) [3]

Rouse, пузырёк это отнюдь не быстрая сортировка!

← →
Rouse_ © (2004-10-11 23:05) [4]

Что-то давно видать я учился... а это что медленная?

← →
Fedia © (2004-10-11 23:09) [5]

Здесь массив записей сортируется по полю dt. Работает быстро. Схемы нет, поэтому привожу код.
procedure SortDate(L, R: Integer); var i,j,p: Integer; temp: TZon; begin repeat I:= L; J:=R; P:=(L+R)shr 1; repeat while(TCKZon[I].dt<TCKZon[P].dt)do Inc(I); while(TCKZon[J].dt>TCKZon[P].dt)do Dec(J); if I<=J then begin temp:=TCKZon[I]; TCKZon[I]:=TCKZon[J]; TCKZon[J]:=temp; if P=I then P:=J else if P=J then P:=I; Inc(I); Dec(J); end; until I>J; if L<J then SortDate(L,J); L:=I; until I>=R; end;

← →
Fedia © (2004-10-11 23:11) [6]

Rouse_ © (11.10.04 23:05) [4]
Пузырьковый метод довольно медленный.

← →
Vulko © (2004-10-11 23:11) [7]

Оу май гад... )))

Да есть у меня код. Пишу дурацкий отчёт, по дурацкой лабе... ну лень мне рисовать блок схему! Вот и прошу помощи. А коды все давно написал уже...

И именно блок схема БЫСТРОЙ СОРТИРОВКИ!

← →
Rouse_ © (2004-10-11 23:15) [8]

> [7] Vulko © (11.10.04 23:11)
Только не смейся, но попробуй Автосхему от Дмитрия Олеговича, чем черт не шутит, может и нарисуется (я серьезно :)

← →
Fedia © (2004-10-11 23:18) [9]

Vulko © (11.10.04 23:11) [7]
Понятно.
http://bars.neman.by/docs/lang/c/c/169-10.html
А вообще тебе прямая дорога в yandex.

← →
Vulko © (2004-10-11 23:22) [10]

Rouse_, что за автосхема? Не юзал я эту, судя по вему прогу...

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

← →
Gero © (2004-10-11 23:26) [11]

> Vulko © (11.10.04 23:22)

http://www.dmitriyo.narod.ru/
Если у тебя что-то все-таки получится с помощью этого детища, обязательно скажи.

← →
Rouse_ © (2004-10-11 23:36) [12]

> [10] Vulko © (11.10.04 23:22)
Да, действительно, если она всеже сделает то, что ей и было задумано, то отпиши плз...
Нужно же хоть раз найти применение детищу Дмитрия Олеговича :) А это как раз такой случай... (без шуток...)

← →
Rouse_ © (2004-10-11 23:39) [13]

ЗЫ: я даж сам волнуюсь ;)

← →
Vulko © (2004-10-11 23:41) [14]

Чего-то получилось... Правда:
схема сама по себе страшная... я об оформлении. Особенно в цветном варианте. Да и слишком странно она как-то оформлена... линии и стрелки пересекаются. Где-то обрываются... где-то не понятно откуда появляются...

← →
Adder © (2004-10-11 23:55) [15]

Попробуйте редактор блок-схем с http://alglib.manual.ru/aboutbls.php

← →
Rouse_ © (2004-10-12 00:19) [16]

> [15] Adder © (11.10.04 23:55)
Эх, Марин - Марин, как же так, нашего Дмитрия Олеговича конкурентам на заклание передать, это же как серпом, по детали отсутсвующей в оптической мышке :)

← →
Gero © (2004-10-12 08:07) [17]

> Чего-то получилось... Правда:

Wow!

> схема сама по себе страшная... я об оформлении. Особенно
> в цветном варианте. Да и слишком странно она как-то оформлена...
> линии и стрелки пересекаются. Где-то обрываются... где-то
> не понятно откуда появляются...

Я не удивлен :)

← →
Dmitriy O. © (2004-10-12 08:17) [18]

> схема сама по себе страшная...

Это потому что код такой страшный и нечитаемый
Расставте нормально begin и end. И все построит
Также желательно писать операторы на отдельных строка а не в одну строку
> then P:=I; Inc(I); Dec(J);

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

← →
Gero © (2004-10-12 08:55) [19]

> Dmitriy O. © (12.10.04 08:17)

Полный ЛОЛ!

> Gero © (12.10.04 08:55) [19]

Сам ты LOL. Когда я начал писать данную прогу. То о программировании в т.ч. и о том как мона писать код знал оч мало. Например я даже не знал что одностроч условия мона писать без begin end;
Сечас конечно я написал бы ее на неизмеримо более высоком уровне. Но нет времени и желания.

> Dmitriy O. © (12.10.04 09:01) [20]

[offtopic]
Ну так бы сразу и сказал, когда тебе указывали на ошибки. Ты же начал раздувать щёки, выпячивать пузо и говорит что ты пупер-программер и ты сам лучше всех всё знаешь и посторонние советы тебе не нужны. Вот теперь терпи последствия.
[/offtopic]

> Да есть у меня код.

Автошемой его, автошемой ...

← →
ALEIIIKA (2004-10-12 15:57) [23]

procedure Sort(var A: array of TMas); procedure QuickSort(var A: array of TMas; iLo, iHi: Integer); var Lo, Hi, Mid: Integer; t : TMas; begin Lo := iLo; Hi := iHi; Mid := A[(Lo + Hi) div 2].i; repeat while A[Lo].i < Mid do Inc(Lo); while A[Hi].i > Mid do Dec(Hi); if Lo <= Hi then begin T := A[Lo]; A[Lo] := A[Hi]; A[Hi] := T; Inc(Lo); Dec(Hi); end; until Lo > Hi; if Hi > iLo then QuickSort(A, iLo, Hi); if Lo < iHi then QuickSort(A, Lo, iHi); end; begin QuickSort(A, Low(A), High(A)); end;
слегка переработанный пример брал из примеров поставляемых с Delphi.

Методы сортировки
http://articles.org.ru/docum/sort.php

Dmitriy O., респект за Вашу прогу. Только вот править код... зачем? :)
Мне проще и быстрее самому сделать эту схему...

Кстати, проблема заключается в процедуре, и её рекурсивном вызове. Ну по крайней мере мне так показалось...

И ещё жутко бесит, что указатели стрелочек слишком большие... Ну непонятно всё становится...

ALEIIIKA, читать научимся когда-нибудь? Не надо мне кода! Есть он у меня! Блок схема нужна!

www.yandex.ru
Запрос "Блок схема алгоритма быстрой сортировки"
Первая ссылка:
http://www.zsu.zp.ua/lab/MathDep/ApMath/SWPCII/SOURCE/L9.pdf

В чём проблема?

← →
ALEIIIKA (2004-10-13 10:07) [28]

программа есть - составь блок-схему, или работать тоже не хотим. Вот люди похли все им готовое подавай.

Блок схема алгоритма быстрой сортировки... Найти похожие ветки