Perl , of Practische Extractie en Reportage Taal , is een computer scripttaal geoptimaliseerd voor operaties op grote hoeveelheden data patroon . Echter , Perl kan ook overweg met de meeste normale wiskundige berekeningen , zoals vierkantswortel . Door het gebruik van externe pakketten , kan het Perl vierkantswortelfunctie werken op elke vorm van numerieke gegevens beschikbaar zijn in Perl . Vierkantswortel
De Perl basispakket
bevat enkele fundamentele wiskundige functies , waaronder vierkantswortel . De Perl sqrt ( ) functie neemt de vierkantswortel van een getal gegeven als een argument . Als het argument niet is opgenomen , de sqrt ( ) -functie werkt op de variabele $ _ $ resultaat
= sqrt ( $ some_number ) ; . Afdruk $ resultaat ;
complexe getallen < br >
standaard , het nemen van een vierkantswortel van een negatief getal wordt een fout in Perl terugkeren . Echter , als je hebt opgenomen van de " Math :: Complex " -pakket , alle wiskundige bewerkingen kunnen worden uitgevoerd op complexe getallen . Pakketten worden opgenomen in Perl bestanden met behulp van het commando gebruik gebruik Math :: Complex
; . $ My_root = sqrt ( -144 ) ; # rendement 12iprint $ my_root ;
andere Wortels
een wortel is gelijk aan een getal verheven tot een fractionele exponent . Naar een andere dan een wortel in Perl wortel te schieten , gebruik de exponentiële operator " ** " met een fractionele exponent . Bijvoorbeeld , om de kubus wortel van een getal te nemen , gebruikt u de volgende code
$ cube_root = $ my_num ** ( 1/3 ) ; . Afdruk $ cube_root ;
Sample programma
Om een voorbeeld programma volledig mee kunnen draaien in Perl aan het plein of andere wortel te schieten , voer het volgende programma .
# ! /usr /bin /local /perl
$ my_num = 64 ; $ my_root = 3 ;
printf ' De vierkantswortel van % 1 % d is % 2 % f \\ n . ' , $ my_num , sqrt ( $ my_num ) ; printf ' . De % 1 % d wortel van % 2 % d is % 3 % f \\ n " , $ my_root , $ my_num , ( $ my_num ** ( 1 /$ my_root ) ) ;
|
