Покажите, что у Вас есть, будем допиливать.

Покажите, что у Вас есть, будем допиливать.

Вот до чего додумалась:

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

Простите долго не отвечал.
Все очень даже хорошо у Вас всё написано, мои маленькие изменения увидите.


У Вас есть два варианта решения:
1)чистить окно- недостаток пропадает выводимые данные этапов сортировки(есть в коде //ClearWindow;//);
2)чистить выводимый столбец цветом фона, т.е. белым - предупреждение, если ширина кисти совпадает с шириной выводимого столбика, может появляться ореол, поэтому нужно будет менять ширину кисти на больший;
Добавлена ещё функция задержки, чтобы можно было любоваться работой программы и калибровка выводимых данных-если разница большая, то может быть построен неравномерный график.


[code lang=pascal h=300]uses GRAPHABC;
const
N=5;
type
array1 = array[1..N] of integer;
var
arr: array1;
procedure gist(var arr: array1;arr_max,arr_min:integer);
var w,h: integer;
begin
//ClearWindow;//
w:=windowwidth div 2;
h:=windowheight div 2;
for i:integer:=1 to n do
begin
write(arr[i],' ');
Pen.Width := 15;//
Pen.Color := clWhite;//
line(w+i*20-2,h,w+i*20-2,0);//
Pen.Width := 10;
Pen.Color := clRandom;
line(w+i*20,h,w+i*20,h-round((h div 2)*arr[i]/(arr_max-arr_min)));
end;
writeln;
end;

procedure sortirovka(var arr: array1);
var
index_max, max,imax,imin: integer;
begin
imax:=arr[1];
imin:=arr[1];
for var i:=1 to n do
if imax<arr[i] then imax:=arr[i]
else if imin>arr[i]then imin:=arr[i];
for i:integer:=n downto 1 do
begin
index_max:=i;
max:=arr[i];
for j:integer:=1 to i-1 do
if arr[j] > max then
begin
index_max:=j;
max:=arr[index_max];
end;
if index_max <> i then
begin
arr[index_max]:=arr[i];
arr[i]:=max;
end;
gist(arr,imax,imin);
sleep(2000);
end;
end;
begin
Window.Title := 'Сортировка массива';
setwindowsize(600,300);
writeln('Элементы массива: ');
for i:integer:=1 to n do
read(arr[i]);
sortirovka(arr);
writeln;
end.[/code]

Удачи!

Спасибо за ответ!
Результат работы эффектный , я не подумала, что графику можно не тиражировать в одном окне)))
Я глянула код по быстрому, вроде понятно, но прошу Вас не закрывать пока консультацию, я вечером подробней посмотрю, вдруг вопросы интересные возникнут, а завтра отпишусь в любом случае, возникнут вопросы или нет , можно так?

Состояние: Консультация активна (до закрытия: 3 сут. 04 час. 38 мин.)

Консультация автоматически закроется см. выше, мини-форум, остается активным в любом случае.

Вопросов не возникло !

Удачи в программировании!

спасибо!