Ocena użytkownikóww: ***** / 0
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";