SAIL - SortList (sortowanie list)

Wszelkie pytania na temat SAIL'a i modowania OW.
Post Reply
User avatar
Serpent
Soldier level 10
Soldier level 10
Estonia
Posts: 4175
Joined: Tue Jul 07, 2009 9:13 pm
Location: Polska - EuroStan ZSRE
Contact:

SAIL - SortList (sortowanie list)

Post by Serpent »

Napisałem funkcje które umożliwiają sortowanie list rosnąco i malejąco.


Sortowanie rosnące (od minimum do maksimum)
Spoiler:

Code: Select all

Export Function SortListAsc(list);
var i, j, sort_list, add;
begin
sort_list := [];

for i = 1 to list do
    begin
    if i = 1 then
       sort_list := sort_list ^ list[i]
    else
     begin
     for j = 1 to sort_list do
         begin
         add := false;

         if list[i] < sort_list[j] then
            begin
            sort_list := Insert(sort_list, j, list[i]);
            add := true;
            break;
            end;
         end;
     
     if not add then
        sort_list := sort_list ^ list[i];

     end;
    end;

result := sort_list;
End;
Sortowanie malejące (od maksimum do minimum)
Spoiler:

Code: Select all

Export Function SortListDesc(list);
var i, j, sort_list, add;
begin
sort_list := [];

for i = 1 to list do
    begin
    if i = 1 then
       sort_list := sort_list ^ list[i]
    else
     begin
     for j = 1 to sort_list do
         begin
         add := false;

         if list[i] > sort_list[j] then
            begin
            sort_list := Insert(sort_list, j, list[i]);
            add := true;
            break;
            end;
         end;

     if not add then
        sort_list := sort_list ^ list[i];

     end;
    end;

result := sort_list;
End;
Przykład użycia:

Code: Select all

Export Function Tablica;
var tab1, tab2, tab3;
begin
tab1 := [9, 24, 1, 0, 12];
tab2 := SortListDesc(tab1);
tab3 := SortListAsc(tab1);
display_strings := tab2;
Wait(0$03);
display_strings := tab3;
end;
// tab2 = [24, 12, 9, 1, 0]
// tab3 = [0, 1, 9, 12, 24]
Epickie teksty:
Marek1906: jak zrobic aby sail był zielony?
Kvantovy: Wszystko normalne, wszystko w koło było dziwne
Kvantovy:: To jest fajne, że to nie jest takie głupie
Kvantovy:: remove sos from kanapeczka
Kvantovy:: zdarzają się rzezy które sie filozofom nie śniły
Cenwen: problemem jest gejostwo
"Taki z niego fizyk jak ze mnie baletnica" - Profesor Scholtze o Kvantovym.
JAKBYŁ BYM CZECHEM TO BYM ROZŁOŻYŁ NAMIOT ~Kvanciak
Post Reply