Текущий архив: 2006.07.23;
Скачать: CL | DM;

Вниз

Визуальное моделирование внутренней сортировки   Найти похожие ветки 

← →
Lexmark ©   (2006-06-04 20:07) [40]


>  SetLength(Arr, 10);
>  for K := 0 to 99 do
>  begin
>    {Заполняем случ. числами.}
>    for I := Low(Arr) to High(Arr) do
>      Arr[I] := Random(10);
begin
for I:= 2 to 20 do
        FOR j:=20 DOWNTO i DO
       IF arr[j-1]>arr[j] THEN
               BEGIN
                x:=arr[j-1];
                arr[j-1]:=arr[j];
                arr[j]:=x;
                END;
end;      
>    {Рисуем на форме.}
>    DrawArray(Arr, Canvas);


Ну вот вставил сортировку, но ничего революционного не происходит((

---

← →
Lexmark ©   (2006-06-04 20:08) [41]

Выложи полный код

---

← →
ALexGK1   (2006-06-22 02:07) [42]

Сам недавно писал такую программу не Делфи. Вот ссылка:
http://www.freeware.ru/program_prog_id_9269.html
Могу подсказать, что да как. Все вопросы на мыло:
desoft@bk.ru

---

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

Текущий архив: 2006.07.23;
Скачать: CL | DM;

Наверх

Память: 0.53 MB
Время: 0.048 c