Форум: "Прочее";
Текущий архив: 2006.07.23;
Скачать: [xml.tar.bz2];
ВнизВизуальное моделирование внутренней сортировки Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.52 MB
Время: 0.012 c