Сортировка по цвету

10001011

Доброго времени суток, нужна ваша помощь. Вводим текстовую инфу в колонки, а одна из колонок цвет Каким образом можно сортировать весь ряд по цвету ? (Просто чтобы элементы с одинаковым цветом стояли рядом) Заранее спасибо !
4 ответа

10001011

Вводим текстовую инфу в колонки
Пример нужен. Что-то типа такого?
Тип Имя Цвет
Корова Мурка Рыжий
Кошка Муся Белый


10001011

Если задан массив записей, одним из полей которых есть цвет, то просто отсортировать массив по возрастанию или убыванию цвета. Кстати как он задан?


10001011

Тип Имя Цвет Корова Мурка Рыжий Кошка Муся Белый Собака Шарик Рыжий Должно получится Корова Мурка Рыжий Собака Шарик Рыжий Кошка Муся БелыйКак отсортировать по возрастанию или убыванию цвета ?


10001011

type zap=record
              vid,name,cvet:string;
             end;
var a:array[1..10] of zap;
      n,i,j:integer;
      x:zap;
begin
//вводим количество записей n
//вводим значения полей записей
//сортируем
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].cvet>a[j].cvet then
 begin
   x:=a[i];
   a[i];=a[j];
   a[j]:=x;
 end;