Il pacchetto base di Perl contiene diverse funzioni matematiche di base, tra cui radice quadrata . Il Perl sqrt ( ) funzione prende la radice quadrata di un numero dato come argomento . Se l'argomento non è incluso , il sqrt ( ) funzione opera con la variabile $ _
$ risultato = sqrt ( $ un_numero ) . Print $ risultato ;
numeri complessi
Per impostazione predefinita , prendendo una radice quadrata di un numero negativo, verrà restituito un errore in Perl . Tuttavia, se è stato incluso il "Math :: Complex " pacchetto , tutte le operazioni matematiche possono essere eseguite su numeri complessi . I pacchetti sono inseriti nei file Perl utilizzando il comando uso
uso Math :: Complex , . $ My_root = sqrt ( -144 ) ; # ritorna 12iprint $ my_root ;
altri Roots
una radice è equivalente ad un numero elevato a esponente frazionario . Per prendere una radice diversa da una radice quadrata in Perl , utilizzare l'operatore "**" esponenziale con esponente frazionario . Ad esempio, per prendere la radice cubica di un numero , utilizzare il seguente codice
$ radice_cubica = $ my_num ** ( 1/3) ; . Print $ radice_cubica ;
Campione programma
Per eseguire completamente un programma di esempio in Perl per la radice quadrata o altro , eseguire il seguente programma .
# ! /usr /bin /local /perl
$ my_num = 64; $ my_root = 3;
printf ' La radice quadrata di % 1 % d è % 2 % f \\ n '. , $ my_num , sqrt ( $ my_num ) ; printf ' . % 1 % radice d di% 2 % d è % 3 % f \\ n' , $ my_root , $ my_num , ( $ my_num ** ( 1 /$ my_root ) ) ;
Programmazione © www.354353.com