algorytm.org

Implementacja w Perl



Baza Wiedzy
wersja offline serwisu przeznaczona na urządzenia z systemem Android
Darowizny
darowiznaWspomóż rozwój serwisu
Nagłówki RSS
Artykuły
Implementacje
Komentarze
Forum
Bookmarki






Sonda
Implementacji w jakim języku programowania poszukujesz?

Sortowanie przez wstawianie (insertionsort) - Implementacja w Perl
Ocena użytkownikóww: *****  / 0
SłabyŚwietny
Nadesłany przez Dominik Goździuk, 26 marca 2012 01:11
Kod przedstawiony poniżej przedstawia główną część rozwiązania problemu.
Pobierz pełne rozwiązanie.

insertionsort.pl:
#!/usr/bin/perl

#Sortowanie przez wstawianie (insertionsort)
#Dominik Gozdziuk
#www.algorytm.org

print "Ile liczb chcesz posortowac: ";
$n = <STDIN>;
chomp($n);

@tab = ();

for ($i = 0; $i < $n; $i++) {

        #pobierz liczbe od uzytkownika
        print "Podaj liczbe: ";
        $liczba = <STDIN>;
        chomp($liczba);

        #wstaw w odpowiednie miejsce w tablicy
        $j = $#tab+1;
        while ($j > 0 && $tab[$j-1] > $liczba) {
                $tab[$j] = $tab[$j-1];
                $j--;
        }
        $tab[$j] = $liczba;
}

print "Tablica posortowana: ";
foreach $zmienna (@tab) {
        print "$zmienna  ";
}
print "\n";



Dodaj komentarz