Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];

Вниз

сортировка   Найти похожие ветки 

← →
werr   (2002-11-04 14:45) [0]

как сделать сортироку по массиву (masiv1 : array [1..100] of integer) и сохранить отсортированный массив другой (masiv2)?

---

← →
Lord Warlock   (2002-11-04 15:00) [1]

Терпеливо отвечу во 2-раз

var r,r1: array of real;
T: Real;
i,j: Integer;
begin
SetLength(r1,100);
SetLength(r,100);
//Заполнение массива r1 зделай сам
for i:=0 to Length(r1) do
r[i]:=r1[i];
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;
r1:=nil;
r:=nil;

Прямо детский сад.... :)

---

← →
OxOTHuK   (2002-11-04 15:02) [2]

извините за флейм.
2 werr: действительно детский сад, здесь не занмимаются ТАКИМИ алгоритмами.
но с другой стороны почему-бы не помочь человку. хотя во второй раз!

---

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

Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c