Αποκτήστε δεδομένων πίνακα από το κυρίως πρόγραμμα . Μια άλλη σειρά " new_array " θα περιέχει αντιστραφεί δεδομένα . 2
Αφαιρέστε το τελευταίο στοιχείο από την αρχική σειρά , χρησιμοποιώντας το "pop " λειτουργία.
Εικόνων 3
Προσθέστε ότι . στοιχείο όπως το πρώτο με το νέο πίνακα με λειτουργία " στροφή "
Η
4 Επαναλάβετε τα βήματα 2 και 3 έως ότου η αρχική διάταξη αδειάσει ? όλα τα στοιχεία του να μεταφερθεί στο νέο με την αντίστροφη σειρά .
5
Το πρόγραμμα εργασίας Perl είναι κάτω # πρόγραμμα startsmy $ array = [ qw ( 1 2 6 7.4 25 12.6 9 2 6 ) ] ? # Παράδειγμα arraymy $ new_array = [ ] ? print " $ @ σειρά \\ n " ? reverse_array ( $ array , $ new_array ) ? print" @ $ new_array \\ n " ? # η εκτύπωση του νέου arrayexit ?
υπο reverse_array { μου ( $ array , $ new_array ) = @ _ ? # Βήμα 1 . Διαβάστε την αρχική arraywhile ( @ $ array) { $ μου εισόδου = pop ( @ $ array ) ? # Βήμα 2 . αφαιρέσετε το τελευταίο στοιχείο της αρχικής arraypush @ $ new_array , $ εισόδου ? # Βήμα 3 . Προσθέστε αυτό το στοιχείο στη νέα σειρά ως το πρώτο } }
Η 6
Η έξοδος του προγράμματος είναι η ακολούθως1 2 6 7.4 25 12.6 9 2 6 <--- αρχική array6 2 12.6 9 7.4 25 6 2 1 <--- νέα σειρά arrayThe αντιστρέφεται .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα