Perl & Square Root Λειτουργίες

Perl , ή Πρακτική Εξόρυξη και Γλώσσα Έκθεση , είναι μια γλώσσα δέσμης ενεργειών υπολογιστή βελτιστοποιηθεί για εργασίες σε μεγάλες ποσότητες δεδομένων με σχέδια . Όμως, η Perl μπορεί επίσης να χειριστεί τις περισσότερες κανονικές μαθηματικούς υπολογισμούς , όπως η τετραγωνική ρίζα . Με τη χρήση των εξωτερικών συσκευασιών , η λειτουργία Perl τετραγωνική ρίζα μπορεί να λειτουργήσει σε οποιαδήποτε μορφή των αριθμητικών δεδομένων που διατίθενται σε Perl . Τετραγωνική ρίζα
Η

Το βασικό πακέτο Perl περιέχει αρκετές βασικές μαθηματικές λειτουργίες , συμπεριλαμβανομένης της τετραγωνικής ρίζας . Η sqrt λειτουργία Perl () παίρνει την τετραγωνική ρίζα οποιουδήποτε αριθμού που δίνεται σαν όρισμα . Αν το επιχείρημα αυτό δεν περιλαμβάνεται , η sqrt () συνάρτηση λειτουργεί με μεταβλητή $ _

$ result = sqrt ( $ some_number ) ? . Print $ αποτέλεσμα?
Εικόνων μιγαδικών αριθμών

από προεπιλογή , λαμβάνοντας μια τετραγωνική ρίζα ενός αρνητικού αριθμού , θα επιστρέψει ένα μήνυμα σφάλματος σε Perl . Ωστόσο , αν έχετε συμπεριλάβει την « Μαθηματικά Complex :: « πακέτο , όλες οι μαθηματικές λειτουργίες μπορούν να εκτελεστούν σε μιγαδικών αριθμών . Τα πακέτα συμπεριλαμβάνονται στα αρχεία Perl , χρησιμοποιώντας την εντολή χρήσης

χρησιμοποιούν Math :: Complex ? . $ My_root = sqrt ( -144 ) ? # Αποδόσεις 12iprint $ my_root ?

Η Άλλες ρίζες
Η

μια ρίζα είναι ισοδύναμη με έναν αριθμό υψωμένο σε κλασματική εκθέτη . Για να τραβήξετε μια ρίζα , εκτός από μια τετραγωνική ρίζα σε Perl , χρησιμοποιήστε την εκθετική φορέα " ** " κλασματικό εκθέτη . Για παράδειγμα , για να λάβει την κυβική ρίζα ενός αριθμού , χρησιμοποιήστε τον ακόλουθο κώδικα

$ cube_root = $ my_num ** ( 1/3) ? . Print $ cube_root ?
Εικόνων Δείγμα πρόγραμμα
Η

Για να εκτελέσετε πλήρως ένα πρόγραμμα δείγμα σε Perl να πάρει την τετραγωνική ρίζα ή άλλο , εκτελέστε το παρακάτω πρόγραμμα .

# ! /usr /bin /local /perl

$ my_num = 64 ? $ my_root = 3 ?

printf » . Η τετραγωνική ρίζα του 1 % % d είναι % 2 % f \\ n " , $ my_num , sqrt ( $ my_num ) ? printf « Το % 1 % d ρίζα του 2 % % d είναι % 3 % f \\ n ". , $ my_root , $ my_num , ( $ my_num ** ( 1 /$ my_root ) ) ?
Η
εικόνων