| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
сортировка [D5]
werr © (2002-11-04 14:45:00)как сделать сортироку по массиву (masiv1 : array [1..100] of integer) и сохранить отсортированный массив другой (masiv2)?
OxOTHuK (2002-11-04 15:02:00) [1]извините за флейм.
2 werr: действительно детский сад, здесь не занмимаются ТАКИМИ алгоритмами.
но с другой стороны почему-бы не помочь человку. хотя во второй раз!
Lord Warlock (2002-11-04 15:00:00) [2]Терпеливо отвечу во 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;
Прямо детский сад.... :)
| |
