Witam, mam za zadania zrobić graficzna wizualizacje różnych sortowań. Tak wygląda mój kod dla sortowania bąbelkowego:
procedure babelkowe(var tab: array of Integer);{sortowanie babaelkowe}
var
i,j,k,temp:integer;
bat: array [1..maxtab] of Integer; {tablica pomocnicza}
begin
for i:=1 to maxtab-1 do
begin
for j:=i+1 to maxtab do
begin
if (tab[i]>tab[j]) then
begin
Temp:=tab[i];
tab[i]:=tab[j];
tab[j]:=Temp;
end;
{tutaj wlasnie bedzie "wizualizacja" tego sortowania}
for k:=1 to maxtab do
begin
if(tab[k]=bat[k]) then
write(' ', tab[k])
else
begin
textcolor(4);
write(' ', tab[k]);
end;
end;{tutaj do drugiej tablicy przypisuje elementy pierwszej}
for k:=1 to maxtab do bat[k]:=tab[k];
writeln;
end;
end;
end;
Jak widać chodzi mi o to, że do drugiej tablicy przy każdym powtórzeniu pętli przypisuje elementy pierwszej. I jeśli one się powtarzają, to wtedy mają biały kolor, zaś jeśli się różnią, to zmieniają kolor na czerwony. problem polega na tym, że kolor się zawsze zmienia na czerwony. Mógłby ktoś doradzić jak to naprawić?