Как расположить числа в подярке убывания

← →
delpher_gray (2002-10-31 19:29) [0]

Господа делферы !
Например если 3 числа:
1) 326
2) 145
3) 869
Как их расположить в порядре убывания ?
Заранее благодарен.

← →
evgeg (2002-10-31 23:01) [1]

В порядре никак нельзя.

← →
Карлсон (2002-10-31 23:04) [2]

попросту сравнить.
почитайте хелп по дельфи.

← →
_Nicola_ (2002-11-01 09:02) [3]

1) 869
2) 326
3) 145
:)))

← →
makdi (2002-11-01 09:12) [4]

Используй метод "пузырька"

← →
SuperUmnik (2002-11-01 09:15) [5]

головой подумай! а не .....
Может тебе рассказать как ложку в рот засунуть?

← →
Lord Warlock (2002-11-01 09:38) [6]

var r: array of real; T: Real; i,j: Integer; begin SetLength(r,3); r[0]:=354; r[1]:=697; r[2]:=465; for i:=Length(r)-1 downto 0 do for j:=0 to i do if r[i]>r[j] then begin T:=r[i]; r[i]:=r[j]; r[j]:=T; end; ShowMessage(format("%4.2f,%4.2f,%4.2f",[r[0],r[1],r[2]])); r:=nil;

Метод пузырька, правда далеко не самый оптимальный, что набросал

← →
Song (2002-11-01 11:14) [7]

Только не забудь за пузырьком в ларёк сбегать, а то ничего не получится

← →
han_malign (2002-11-01 11:26) [8]

Если чмсла вводятся по порядку а не забиты сразу, то однозначно дихотомия(попловинным делением), находим первый элемент которй менше введенного и вставляем перед ним (оптимальный метод для больших последовательно вводимых массивов, на этом принципе работают все сортированные динамические списки)

← →
delpher_gray (2002-11-01 11:32) [9]

Lord Warlock - Огромное спасибо !
to SupeUmnik
Незнаешь, не отвечай !!!
Я ставил конкретный вопрос, и ждал такого-же ответа.
Иди в раздел потрепаться !

← →
marcel (2002-11-01 15:38) [10]

Ни хрена себе вопросики. Интернетом пользоваться научился, а массивы сортировать не умеет. В ДЕТСКИЙ САД!!! 8[]

← →
F1 (2002-11-01 15:55) [11]

Так, по убыванию научились, теперь нада по возрастанию!!!
8o)

← →
MBo (2002-11-01 16:53) [12]

>F1
По возрастанию он уже спрашивал несколько дней назад.

← →
pasha_golub (2002-11-01 16:57) [13]

>MBo
А в шахматном порядке? :-))

← →
F1 (2002-11-01 17:08) [14]

Ну ладно, с упорядовачиванием разобрались, а что если надо взад все вернуть(разупорядочить)??? Вот это задачка!!!

← →
MMF (2002-11-01 17:10) [15]

>marcel (01.11.02 15:38)
А ведь вопрос сортировки совсем не такой простой. У меня, например, есть книжка страниц эдак на 400 по алгоритмам сортировки мелким шрифтом. И уж если тут все такие крутые, почему советуете человеку самый худший алгоритм пузырьковой сортировки?

← →
MBo (2002-11-01 17:11) [16]

> что если надо взад все вернуть(разупорядочить)??? Вот это задачка!!!
периодически бывает вопрос - как из черно-белого или серогр изображения сделать цветное

← →
F1 (2002-11-01 17:21) [17]

>MMF © (01.11.02 17:10)
>А ведь вопрос сортировки совсем не такой простой...
Так ведь вопрос был не как лучше а КАК!!!

>MBo © (01.11.02 17:11)
>периодически бывает вопрос - как из черно-белого или серогр >изображения сделать цветное
Пишу код:

for x:=0 to Image.Widtht do
for y:=0 to Image.Height do
Image.Canvas.Pixels[x,y]:=Image.Canvas.Pixels[x,y] and $FF0000;

Получается цветное!!! Для приведенного выше кода - красное!!!
Или я неправильно понял вопрос???
хе-хе-...

← →
MBo (2002-11-01 17:37) [18]

>F1
Нее, неверно ;)
Надо, чтобы цыпленок стал желтым, листья зелеными, а орхидеи с тонкими цветовыми переливами ;)

← →
Внук (2002-11-01 18:21) [19]

>>MMF © (01.11.02 17:10)
Да разве ж мы крутые :)) Мы и книжек-то не читаем.
И почему пузырковый метод - самый худший? Я могу еще хуже предложить...

← →
docyk (2002-11-01 18:44) [20]

Если нужно еффективно сделать, то используй метод Шелла (он описан в Кнуте и Страуструппе)

← →
TankMan (2002-11-01 21:09) [21]

Нет а всетаки, может тогда MMF скажет лучший способ сортировки? MMF!!ПРОСИМ! Пожалуйста поведай нам наилучший(наибыстрейший, наимениепамятизанимающий)(желательно все в одном) метод сортировки.

← →
sniknik (2002-11-01 22:12) [22]

в примерах дельфи D:\Program Files\Borland\Delphi6\Demos\Threads\thrddemo.dpr 3 (три) метода сортировки выбирай не хочу.

Как расположить числа в подярке убывания Найти похожие ветки