1 Ανοίξτε ένα αρχείο προγράμματος Perl . Πληκτρολογήστε τον ακόλουθο κώδικα :
υπο μέση {
@ που μου = @ _ ?
$ Total = 0 ?
Αυτό ορίζει μια νέα λειτουργία που ονομάζεται " σημαίνει " και στη συνέχεια δημιουργεί μια σειρά που ονομάζεται "@ set" που παίρνει την λίστα παραμέτρων που δίνετε στη συνάρτηση . Επίσης, δημιουργεί μια μεταβλητή που ονομάζεται " $ συνολικά » και προετοιμάζει το μηδέν 2
Πληκτρολογήστε τον ακόλουθο κώδικα :
για ( $ i = 0 ? $ I <@ σετ . ? $ i + + ) {
δολάρια συνολικά $ = σύνολο + @ που [ $ i ] ? }
Αυτό το " για το βρόχο " η εντολή δημιουργεί μια μεταβλητή μέτρησης που ονομάζεται " $ i " και το χρησιμοποιεί για να τον κύκλο μέσα από όλους τους αριθμούς του " @ set "συστοιχίες και τα προσθέτει μεταξύ τους , εξοικονομώντας το αποτέλεσμα στο« μεταβλητή $ συνολικά " .
εικόνων 3
Πληκτρολογήστε το ακόλουθο κώδικα :
print " Σύνολο Αριθμών : " . @ οριστεί . " \\ n" ?
print " Sum : " . δολάρια συνολικά . " \\ n" ?
εκτύπωσης " Mean : " . $ συνόλου /set @ ?
print " \\ n \\ n" ?
}
Αυτές οι γραμμές μορφοποιήσετε την έξοδο και να δείξει στο χρήστη σε πόσα αριθμοί ήταν στο χώρο του δείγματος , η συνολική αξία τους και η μέση . Στη συνέχεια εκτυπώνει δύο κενές γραμμές για πιο εύκολη ανάγνωση , και κλείνει τη μέση λειτουργία
Η
4 Πληκτρολογήστε τον ακόλουθο κώδικα : .
Μέση ( 1,2,3 ) ?
μέση ( 6,11,7 ) ?
σημαίνει ( 5,2,5,2,66,4,2,26,64,23 ) ?
οι γραμμές αυτές η δοκιμή σημαίνει τη λειτουργία . Η πρώτη πρόσκληση υποβολής προτάσεων έχει τρεις συνολικούς αριθμούς που προσθέτουν έως και έξι και έχουν μέση τιμή δύο . Η δεύτερη πρόσκληση έχει και πάλι τρεις συνολικούς αριθμούς που προσθέτουν έως και 24 και έχουν μέση οκτώ . Η τρίτη πρόσκληση έχει 10 συνολικά αριθμούς που προσθέτουν έως και 199 και έχουν μέση τιμή 19.9 .
5
Αποθηκεύστε το πρόγραμμα Perl .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα