{pod wyrazem Implementation należy zadeklarować odpowiednie zmienne}
var
i, j, LiczbaPol, Temp : Integer;
{teraz przechodzimy do algorytmu}
begin
{najpierw należy podać ilość pól w tablicy, u nas są to 4 pola - co widać w poprzednim przykładzie}
LiczbaPol := 4; {ilość pól dla tablicy [1..4]}
{teraz sortowanie metodą bąbelkową}
for j := 0 to LiczbaPol - 2 do
begin
for i := 0 to LiczbaPol - 2 do
begin
if Tablica[i] > Tablica[i+1] then
begin
Temp := Tablica[i];
Tablica[i] := Tablica[i+1];
Tablica[i+1] := Temp;
end;
end;
end;
end;
{należy pamiętać, że w miejsce Tablicy należy wstawić nazwę tej, która ma być posortowana}
Mamy nadzieję, że w/w kod jest jasny i zrozumiały. W przypadku niejasności prosimy o pisanie w ShoutBoxie. Postaramy się rozwiać wszystkie wątpliwości.