[NEEXPOM]

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

[NumLock]

TCanvas или Device Context.

[lmikle]

NumLock, шутник, однако.
Какой алгоритм? Какую иллюстрацию препод хочет?

[NEEXPOM]

алгоритм бинарной сортировки. препод хочет чтоб в программе показывалось как переставляются числа. вообще представления не имею как это сделать

[Alegun]

Наверное можно, в цикле замены вешаете булеву переменную, её на каждой волне итерации фальсируете, а в конце через обработку кнопки опять труируите, вроде будет работать, код покажите алгоритма, будем поглядеть

[M.A.D.M.A.N.]

Код:

procedure qSort(l,r:longint);
var i,j:longint;
    w,q:real;
begin
  i := l; j := r;
  q := v[(l+r) div 2];
  repeat
    while (v[i] < q) do inc(i);
    while (q < v[j]) do dec(j);
    if (i <= j) then
    begin
      w:=v[i]; 
      v[i]:=v[j]; 
      print("заменяем v[i] (%d) на v[j] (%d)", [v[i], v[j]]) # <<<<<<<<<<<<<<<
      v[j]:=w;
      print("заменяем v[j] (%d) на w (%d)", [v[j], w]) # <<<<<<<<<<<<<<<
      inc(i); dec(j);
    end;
  until (i > j);
  if (l < j) then qSort(l,j);
  if (i < r) then qSort(i,r);
end;