Изменение цвета сортирующихся элементов

@Johnlion · Регистрация: 11.05.2011

Студворк — интернет-сервис помощи студентам

Подскажите, пожалуйста, как при выводе на экран шагов сортировки (сортировка методом вставки с бинарным включением), изменить цвет нижнего предела, верхнего и текущего сортирующегося элемента.

Вот сама сортировка, в нее нужно добавить "подсветку":

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
type
    TRec = Record
        kl : Integer;
        inf : String[255];
    end;
 
    Table_0 = array of TRec;
 
procedure bin_f(var T : Table_0; n: Integer);
    var
        i,j, left, right, m, k, p, d : Integer;
        zap : TRec;
    begin
          for i:=1 to n-1 do
          begin
                zap:=T[i];
                left:=0;
                right:=i-1;
 
                while left <= right do
                   begin
                         m:=(left+right) div 2;
                         if zap.kl < T[m].kl then
                              right:=m-1
                         else
                              left:=m+1;
                   end;
                for j:=i-1 downto left do
                    T[j+1]:=T[j];
                T[left]:=zap;
                
                for p:=0 to n-1 do
                      write(T[p].kl, ' ');
                writeln('');
 
           end;
           writeln ('');
        writeln ('---------------------------------------');
        writeln ('|Ключи            |         Информация|');
        writeln ('---------------------------------------');
        for k:=0 to (Length(T)-1) do
        begin
          write (T[k].kl);
          writeln (T[k].inf:20);
        end;
        writeln ('---------------------------------------');
     end;

@Johnlion · 07.10.2012, 20:26 **[ТС]**

В меню заходим в пункт 2. Чтение из файла, вводим путь к файлу k.txt, который лежит в папке проекта, потом заходим в пункт 5. Сортировка методом вставки с бинарным включением.

@antikiler_ · 07.10.2012, 20:41

Сообщение от Johnlion

13 - почему тогда выделен красным элемент 15, если перемещается 12?

Красным цветом выделяется текущий элемент, который сравнивается, а не который перемещается
исходя из этого:

Сообщение от Johnlion

Мне нужно, чтоб всегда выделялись верхний и нижний пределы (синим) и элемент, который сравнивается

Вообщем, подумав, можно сделать так
1. Текущий элемент помечаем красным цветом.
2. Начальные границы помечаем синим
3. Перемещаемые элементы(если они есть) помечаем зеленым цветом, и этот цвет будет перекрывать границу или текущий элемент если они есть перемещаемые. Примерно так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 for p := 0 to n - 1 do
        if ((p = i) and bol) or ((p = left) and bol) then
          begin
            // устанавливаем зеленый цвет
            SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), 10); // TextColor(10);
            write(T[p].kl, ' ');
            // возращаем цвет
            SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), 7); // TextColor(7);
          end
        else if (p = 0) or (p = i - 1) then
          begin
            // устанавливаем синий цвет
            SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), 9); // TextColor(9);
            write(T[p].kl, ' ');
            // возращаем цвет
            SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), 7); // TextColor(7);
          end
        else if p = i then
          begin
            // устанавливаем красный цвет
            SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), 4); // TextColor(4);
            write(T[p].kl, ' ');
            // возращаем цвет
            SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), 7); // TextColor(7);
          end
        else
          write(T[p].kl, ' ');

@Johnlion · 07.10.2012, 20:50 **[ТС]**

antikiler_, схема хорошая. Спасибо. Значит я тогда чего-то не понял. Объясни, пожалуйста, что в предыдущем варианте сравнивалось с чем? Красные элементы должны сравниваться со средним значением, так и было? Можно подробнее?

@antikiler_ · 07.10.2012, 21:30

Сообщение от Johnlion

Красные элементы должны сравниваться со средним значением, так и было?

Не совсем. Красный элемент- текущий элемент(ТЭ), сравнивается с правостоящим элементом(ПЭ), и если ПЭ меньше ТЭ, то идет поиск размещения ПЭ в заданных границах(то что синим цветом) и когда находит место переносит ПЭ окрашивая зеленым цветом , а ТЭ перемещается на место ПЭ(и тоже становится зеленым). Если ТЭ меньше ПЭ, то текущим элементом становится ПЭ(становиться красным).

@Johnlion · 07.10.2012, 21:59 **[ТС]**

Сообщение от antikiler_

Не совсем. Красный элемент- текущий элемент(ТЭ), сравнивается с правостоящим элементом(ПЭ), и если ПЭ меньше ТЭ, то идет поиск размещения ПЭ в заданных границах(то что синим цветом) и когда находит место переносит ПЭ окрашивая зеленым цветом , а ТЭ перемещается на место ПЭ(и тоже становится зеленым). Если ТЭ меньше ПЭ, то текущим элементом становится ПЭ(становиться красным).

Так это пузырек какой-то. А я изначально хотел сделать сортировку методом вставки с бинарным включением. Посмотри, пожалуйста, мой исходный код. Там все правильно, только элементы цветными сделать и все, я не соображу как...

@antikiler_ · 07.10.2012, 22:02

Сообщение от Johnlion

А я изначально хотел сделать сортировку методом вставки с бинарным включением

Это оно и есть....

Сообщение от Johnlion

Там все правильно, только элементы цветными сделать и все, я не соображу как...

Я тоже не могу сообразить что нужно. Вроде код же я написал тебе...

@Johnlion · 07.10.2012, 23:50 **[ТС]**

antikiler_, все понял, но решил оставить предыдущий вариант - без зеленого. Скажи тогда еще, пожалуйста, у меня такой порядок ключей (см. картинку). Первая строчка шагов сортировки уже с перемещенными 13 и 14. Как добавить перед текущей первой строкой еще одну строчку, где красное 14 стоит в первой позиции (и стоит ли это делать)?

@antikiler_ · 08.10.2012, 00:06

Сообщение от Johnlion

Как добавить перед текущей первой строкой еще одну строчку, где красное 14 стоит в первой позиции

Ну это просто, измени цикл с нуля
было

Delphi
1
for i := 1 to n - 1 do

стало

Delphi
1
for i := 0 to n - 1 do

По поводу целесообразности..., если это демонстрационная модель то можно...

@Johnlion · 08.10.2012, 00:36 **[ТС]**

antikiler_, а оно не красным, а синим становится

@antikiler_ · 08.10.2012, 00:40

Немного поменяем местами условия

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
for p := 0 to n - 1 do
   if  p = i then
          begin
            // устанавливаем  красный цвет
            SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), 4); // TextColor(4);
            write(T[p].kl, ' ');
            // возращаем цвет
            SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), 7); // TextColor(7);
          end
        else if(p = 0) or (p = i - 1) then
          begin
            // устанавливаем  синий цвет
            SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), 9); // TextColor(9);
            write(T[p].kl, ' ');
            // возращаем цвет
            SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), 7); // TextColor(7);
          end
        else
          write(T[p].kl, ' ');

И будет красным...

Новые блоги и статьи Все статьи Все блоги /
Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .

@Johnlion 63 / 3 / 1 Регистрация: 11.05.2011 Сообщений: 666
	07.10.2012, 20:50 [ТС]
	antikiler_, схема хорошая. Спасибо. Значит я тогда чего-то не понял. Объясни, пожалуйста, что в предыдущем варианте сравнивалось с чем? Красные элементы должны сравниваться со средним значением, так и было? Можно подробнее? 0

@Johnlion 63 / 3 / 1 Регистрация: 11.05.2011 Сообщений: 666
	07.10.2012, 23:50 [ТС]
	antikiler_, все понял, но решил оставить предыдущий вариант - без зеленого. Скажи тогда еще, пожалуйста, у меня такой порядок ключей (см. картинку). Первая строчка шагов сортировки уже с перемещенными 13 и 14. Как добавить перед текущей первой строкой еще одну строчку, где красное 14 стоит в первой позиции (и стоит ли это делать)? Миниатюры 0

@Johnlion 63 / 3 / 1 Регистрация: 11.05.2011 Сообщений: 666
	08.10.2012, 00:36 [ТС]
	antikiler_, а оно не красным, а синим становится 0