Dziwnym jest, że wciąż w szkołach uczą tego języka. Dla mnie jest on średnio zrozumiały, a zarazem nie jest w ogóle ciekawy. Cóż… Niebawem mam zaliczenie z programowania, a bacząc na to, że jednym z tematów jest „sortowanie tablicy „x” elementowej metodą bąbelkową” postanowiłem się co nieco wziąć za napisanie takiego programu. Bynajmniej nie chciałem szukać w sieci rozwiązań, bo nie zrozumiałbym zawartych treści (programistycznego bełkotu). Przysiadłem kilka dni, nagłowiłem się sporo i… napisałem w końcu program sortujący tablicę „x” elementową.
Potomnym się może nie przydać, ale choćby dla ludzi z mojego roku – tak ;). Może da się to prościej napisać, może… moja wiedza nie pozwala jednak na bardziej zawiłe/krótsze rozwiązania. Mam nadzieję (ja to wiem), że w następnym semestrze z C++ będzie ciekawiej i prościej niż z tym Pascalem. Nie dość, że to bezużyteczny przeżytek… to nadal każą się tego uczyć, eh, eh, eh…
Co musimy wiedzieć nim zaczniemy?
Pascal nie potrafi sam z siebie posortować talicy, trzeba go zmusić do tego deklarując kilka zmiennych. Niezbędne nam będzie zadeklarowanie pewnej stałej, oraz trzech zmiennych. Dwie ze zmiennych są potrzebne do przechowania elementów, a trzecia jest pomocnicza, ale również niezbędna. Sortowanie elementów odbywa się na zasadzie porównania elementów (instrukcja warunkowa) N-1 razy. Jeśli element A jest mniejszy od B, przechowuje go w pamięci, potem patrzy, czy B < C, itd. Porównanie elementów odbywa się o jeden raz mniej niż tablica ma elementów, co można przyuważyć sortując tablicę np. 3 elementową.
A<B – tak. Pisz A.
B<C – nie. Pisz C.
Brak więcej elementów do porównania. Pisz B.
Kod programu
Jest to wersja bez żadnych bajerów, robi po prostu, co ma robić i na tym jej działanie się kończy :). Na końcu wpisu do pobrania jest troszkę odpicowana przeze mnie wersja, jednakże bez kodu źródłowego.
{ Autor: Filip "inzaghi89" Cierpich www: http://keepmind.eu Licencja: GPL } program babelki; uses crt; const n=10; var tab : array[1..n] of integer; i,j,pom : integer; begin clrscr; randomize; write(' Wyswietlam ',n,' wylosowanych liczb: '); for i:=1 to n do begin tab[i]:=random(100)+1; write(tab[i],' '); end; for i:=2 to n do begin j:=i; repeat if (tab[j]<tab[j-1]) then begin pom:=tab[j]; tab[j]:=tab[j-1]; tab[j-1]:=pom; end; dec(j); until(j=1); end; writeln;writeln; write(' Wyswietlam posortowane liczby: '); for i:=1 to n do begin write(tab[i],' '); end; repeat until keypressed; end.
Pobierz gotowy program: Kliknij, by pobrać!
Dodaj komentarz