паскаль(цвета)

[masterlomaster]

Допустим выполняется сортировка массива, и нужно вывести пошагово результат. Можно ли как-то раскрасить числа т.е показать как бы один шаг?

21536
12536
12356

[Delphi_ProGer]

uses crt;
...
textcolor(цвет); //кажется так, например textcolor(green);

[masterlomaster]

Тут намного все сложнее

[Delphi_ProGer]

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

Тут намного все сложнее

почему????

[Stilet]

Тут намного все сложнее

Да что ты?? Неужели?
Ану ка покажи как ты сортируешь.

[masterlomaster]

Допустим метод пузырька.

  for j:=1 to k-1 do begin {сортировка}
            for i:=1 to k-j do
             if A[i]>A[i+1] then
              begin
               x:=A[i];
               A[i]:=A[i+1];
               A[i+1]:=x;
               for i1:=1 to k do {вывод пошагово}
                write(a[i1]:4);

Если добавить texcolor

  for j:=1 to k-1 do begin {сортировка}
            for i:=1 to k-j do
             if A[i]>A[i+1] then
              begin
               x:=A[i];
               A[i]:=A[i+1];
               A[i+1]:=x;
               for i1:=1 to k do {вывод пошагово}
                texcolor(green) {цвет}
                write(a[i1]:4);

не то получается.

[Obey-Kun]

Ты после каждого этапа сортировки выводи цифры до изменённых (чёрным), изменённые (не чёрным) и после изменённых (чёрным).

[Stilet]

Вот именно:

program Project1;

{APPTYPE CONSOLE}

uses
  crt;

const m=6; n=3;
var
 r:integer; a:array [1..m] of integer;k,i,j:integer;
begin
 randomize;
 for i:=1 to m do begin
   a[i]:=1+random(100);
 end;

 for i:=1 to m do begin
  for j:=1 to m do begin
   if a[i]>a[j] then begin
     r:=a[i];a[i]:=a[j];a[j]:=r;
     for k:=1 to m do begin
      if k=i then textcolor(red) else
       if k=j then textcolor(green) else textcolor(white);
      write(a[k]:5)
     end;writeln;delay(100);
   end;
  end;
 end;

readln;
end.

[Obey-Kun]

Лишние вызовы textcolor будут :/. Достаточно менять цвет 4 раза. Перед первой изменённой цифрой, перед второй изменённой цифрой, после второй изменённой цифры и в конце.

[Stilet]

Ну это уже автору решать )