Задача. Сортировка массива + графика Опции

[kant]

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

С упорядочиванием проблем нет, ввожу одномерный массив из 20 чисел и упорядочиваю их по возрастанию, а вот графику осилить не получается . Помогите пожалуйста...

[volvo]

Вот тут была процедура построения гистограммы: Файлы и графика... Используй ее (выводи гистограмму после каждого шага, Delay(), и уничтожай рисунок)...

[kant]

Пытаюсь к своей части подцепить данную Вами процедуру, не совмещается. Графику подключил, gpaph.tpu есть...
Может быть надо делать не через массив...

[volvo]

Покажи, КАК пытаешься совместить... (Лучше - присоедини всю программу в аттач)

[Гость]

Вот программа сортировки:

Код

for i:=1 to n do
   readln(x[i]);
   repeat
      flag:=true;
      for i:=1 to n-1 do
       if x[i]>0 then
        for j:=i+1 to n do
         if (x[j]>0)and(x[j]<x[i]) then
          begin
             temp:=x[i];
             x[i]:=x[j];
             x[j]:=temp;
             flag:=false;
         end;
   until flag;
   writeln;
   for i:=1 to n do
   writeln(x[i]); <---- вот это как надо скорее всего убрать?

Вот непосредственно та часть процедуры которую мне, как я понял, надо использовать.

Код

Uses Graph;
Const
  amount = 10;
  Procedure DrawGistogram(place: Integer;
  arr: Array of Integer; Color: Integer);
  Var
    i, size_x, Top: Integer;
    left, right: integer;
    start, range:
      Record
        x, y: Integer;
      End;
    s: string;

    numGeneral: integer;
  Begin
    Start.X := 1;
    Start.Y := GetMaxY;

    SetColor(White);
    SetBkColor(Black);
    Range.X := GetMaxX div 2;
    Range.Y := GetMaxY div 2;

    numGeneral := 0;
    for i := 0 to pred(amount) do
      inc(numGeneral, arr[i]);

    Line(Start.X, Start.Y, Start.X, Start.Y);

    size_x := Range.X div amount;
    SetFillStyle(SolidFill, Color);
    For i := 0 To Pred(amount) Do
      Begin
        left := Start.X + i * size_x;
        right := left + size_x;
        top := Start.Y - Trunc( Range.Y * arr[i] / NumGeneral );
        bar3d(left + 1, top + 1, right - 1, Start.Y - 1, 15, true);

        str(arr[i], s);
        outtextxy( left, Start.Y + 3, s );
      End;
  End;

И еще вопрос: упорядоченные числа же надо как то выводить, но как это сделать в графическом режиме...

[volvo]

Вот так попробуй:

Uses Graph;

const
  n = 10;
  amount = n;

(* Draws the gistogram of the given sequence on the screen *)
Procedure DrawGistogram(place: Integer;
          arr: Array of Integer; Color: Integer);
  Var
    i, size_x, Top: Integer;
    left, right: integer;
    start, range:
      Record
        x, y: Integer;
      End;
    s: string;

    numGeneral: integer;
  Begin
    Start.X := 1;
    Start.Y := GetMaxY - 20;

    SetColor(White);
    SetBkColor(Black);
    Range.X := GetMaxX div 2;
    Range.Y := GetMaxY div 2;

    numGeneral := 0;
    for i := 0 to pred(amount) do
      inc(numGeneral, arr[i]);

    Line(Start.X, Start.Y, Start.X, Start.Y);

    size_x := Range.X div amount;
    SetFillStyle(SolidFill, Color);
    For i := 0 To Pred(amount) Do
      Begin
        left := Start.X + i * size_x;
        right := left + size_x;
        top := Start.Y - Trunc( Range.Y * arr[i] / NumGeneral );
        bar3d(left + 1, top + 1, right - 1, Start.Y - 1, 15, true);

        str(arr[i], s);
        outtextxy( left, Start.Y + 3, s );
      End;
  End;

var
  Temp, i, j: integer;
  flag: boolean;

const
  x: array[1 .. n] of integer =
    (2, 6, 12, 8, 4, 9, 5, 10, 11, 3);

var
  grDriver: Integer;
  grMode: Integer;
  ErrCode: Integer;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');
  ErrCode := GraphResult;
  if ErrCode <> grOk then
    begin
      writeln('error: ', grapherrormsg(errcode));
      readln; halt(100)
    end;

  repeat
    DrawGistogram(0, x, Blue); ReadLn;
    ClearDevice;

    flag:=true;
    for i:=1 to n-1 do
      if x[i]>0 then
        for j:=i+1 to n do
          if (x[j]>0)and(x[j]<x[i]) then begin
            temp:=x[i];
            x[i]:=x[j];
            x[j]:=temp;
            flag:=false;
          end;
    DrawGistogram(0, x, Red); ReadLn;
    ClearDevice;
  until flag;
  closegraph;
end.

Здесь массив X изначально занесен в константу, но если тебе надо вводить его с клавиатуры - можешь делать это ДО инициализации графики. Синим цветом отобращается гистограмма ПЕРЕД очередным этапом сортировки, красным - ПОСЛЕ него...

[Гость]

Сделал ввод массива с клавиатуры. Вроде все OK, только вот у меня получается что гистограмма меняется не постепенно: тоесть ввел числа не попорядку увидел гистрограмму, затем сразу уже упорядоченную...А в задаче: По ходу выполнения программы получать на каждом шаге сортировки диаграмму...или я просто не правильно понял смысл...

[volvo]

Синим цветом ПЕРЕД сортировкой ты не видишь НЕупорядоченную гистограмму? А она должна быть... Тогда запусти программу так, как я ее привел, ВООБЩЕ без изменений (для проверки)... Значит, что-то еще изменил или удалил, чего не надо было трогать...

Кстати, а ты в текстовом режиме пробовал проходить? Как там изменяется массив, видел? После первого же прохода он у тебя упорядочен...