Скачать: CL | DM;

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

← →
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 (три) метода сортировки выбирай не хочу.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.49 MB
Время: 0.012 c