Seperti yang di Perl mendapatkan nomor acak dari N hingga M

Tugas. Di Perl, program ini kebutuhan untuk memperoleh bilangan bulat acak angka antara N dan M. Misalnya, anda perlu untuk mendapatkan jumlah dari 1 untuk 6 seolah-olah melempar dadu.

Dalam rangka untuk melakukan ini, anda perlu menggunakan fungsi rand().

Berikut ini adalah contoh kode yang menampilkan nomor acak antara 1(inklusif) untuk 6 (juga termasuk):

▶ Run
#!/usr/bin/perl

my $number = 1 + int(rand(6));

print $number;
  • rand(6) akan kembali sejumlah pecahan dari 0 (inklusif) untuk 6 (tetapi tidak termasuk jumlah 6).
  • int(rand(6)) akan kembali integer dari 0 untuk 5
  • karena kita ingin mendapatkan nilai integer mulai dari 1 untuk hasil int(rand(6)) perlu menambahkan 1

Dalam kasus Umum, jika kita ingin mendapatkan sebuah bilangan bulat random antara $n untuk $m, maka yang anda butuhkan menulis:

▶ Run
#!/usr/bin/perl

my $n = 1;
my $m = 6;

my $number = $n + int(rand( $m - $n + 1 ));
print $number;

Topik terkait

Artikel lainnya