Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
získať údaje o pole z hlavného programu . Ďalšie pole " new_array " bude obsahovať zvrátiť údaje .
2
Vyberte posledný prvok z počiatočného poľa pomocou funkcie " pop " .
3
Dodávam , že . prvok ako prvý do nového poľa s funkciou " shift "
4
Opakujte kroky 2 a 3 , kým sa pôvodné pole sa vyprázdni , všetky jeho prvky sa prenesie do nového v obrátenom poradí .
5
pracovného programu v Perlu je pod # Program startsmy $ pole = [ QW ( 1 2 6 7,4 25 9 12,6 2 6 ) ] ; # Príklad arraymy $ new_array = [ ] ; print " @ $ pole \\ n " ; reverse_array ( $ array , $ new_array ) ; print " @ $ new_array \\ n " ; # Tlač novú arrayexit ;
sub reverse_array { my ( $ array , $ new_array ) = @ _ ; Stupeň 1 : . Prečítajte si úvodnú arraywhile ( @ $ pole ) { my $ vstup = pop ( @ $ array ) ; # Krok 2. odstrániť posledný prvok počiatočné arraypush @ $ new_array , $ vstup ; # Krok 3. Pridať tento prvok do nového poľa ako prvý } }
6
výstupom programu je follows1 2 6 7,4 25 9 12,6 2 6 < --- počiatočné array6 2 12,6 9 25 7,4 6 2 1 < --- nový arrayThe poľa je obrátený .