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

@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, ' ');

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

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.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