Fungsi sqrt() di Perl

Dalam bahasa pemrograman Perl memiliki fungsi built-in sqrt(). Fungsi ini mengembalikan akar kuadrat dari argumen.

Berikut ini sebuah contoh:

▶ Run
#!/usr/bin/perl

print( sqrt(2) );

Program ini akan menampilkan jumlah 1.4142135623731.

Argumen

my $value = sqrt($number);

Jika fungsi sqrt() untuk lulus satu argumen, fungsi akan beroperasi pada itu.

Jika anda tidak lulus setiap argumen, fungsi akan bekerja dengan default variabel $_. Berikut adalah contoh (program menampilkan jumlah 2):

▶ Run
#!/usr/bin/perl

$_ = 4;

print( sqrt() );

Jika fungsi sqrt() lulus lebih dari satu argumen, maka akan error:

Too many arguments for sqrt at script.pl line 3, near "2) "
Execution of script.pl aborted due to compilation errors.

Nilai kembali

Jika program ini tidak digunakan Perl modul Math::Complex, hasil dari fungsi sqrt() selalu nomor.

Tapi jika program ini memiliki modul Math::Complex, maka hasilnya dapat berupa sebuah string karakter terakhir yang surat 'i', misalnya '1.73205080756888i'.

Dalam kasus negatif nilai dari argumen

Jika program ini tidak digunakan Perl modul Math::Complex dan fungsi sqrt() lulus nilai negatif pengecualian akan dibuang dan program berakhir:

▶ Run
#!/usr/bin/perl

print( sqrt(-9) );
Can't take sqrt of -9 at script.pl line 3.

Ketika menggunakan modul Math::Complex fungsi sqrt() bekerja dengan nilai-nilai negatif. Berikut ini adalah contoh program yang menampilkan teks 3i.

▶ Run
#!/usr/bin/perl

use Math::Complex;

print( sqrt(-9) );

Dokumentasi resmi

Berikut ini adalah output dari perintah perldoc -f sqrt:

       sqrt EXPR
       sqrt    Return the positive square root of EXPR.  If EXPR is omitted,
               uses $_.  Works only for non-negative operands unless you've
               loaded the "Math::Complex" module.

                   use Math::Complex;
                   print sqrt(-4);    # prints 2i

Artikel lainnya