perl | Matemáticas::BigInt->is_odd() método

Math::BigIntmódulo en Perl proporciona objetos que representan números enteros con precisión arbitraria y operadores aritméticos sobrecargados.

is_odd()El método de Math::BigIntmódulo se utiliza para verificar si un número almacenado como BigIntobjeto es un número impar o no.

Sintaxis: Math::BigInt->is_odd()

Parámetro: Ninguno

Devuelve: verdadero si el número almacenado en el objeto BigInt es un número impar; de lo contrario, devuelve falso.

Ejemplo 1: Uso del Math::BigInt->is_odd()método

#!/usr/bin/perl 
  
# Import Math::BigInt module
use Math::BigInt;
  
# Value of n
$n = '89123751682746';
  
# Create BigInt object
$x = Math::BigInt->new($n);
  
# Check if the number stored
# in BigInt object is 
# an odd number or not
$isOdd = $x->is_odd();
  
if ($isOdd)
{
    print "$n is an odd number\n";
}
  
else
{
    print "$n is not an odd number\n";
}
  
# Value of n
$n = '6348762649837957979685908708650797587783';
  
# Create BigInt object
$x = Math::BigInt->new($n);
  
# Check if the number stored
# in BigInt object is
# an odd number or not
$isOdd = $x->is_odd();
  
if ($isOdd)
{
    print "$n is an odd number\n";
}
  
else
{
    print "$n is not an odd number\n";
}
Producción:

89123751682746 is not an odd number
6348762649837957979685908708650797587783 is an odd number

Ejemplo 2: uso del Math::BigInt->is_odd()método para verificar si el número octal es un número impar en decimal o no.

#!/usr/bin/perl 
  
# Import Math::BigInt module
use Math::BigInt;
  
# Octal number represented as string
$octal = 726746425;
  
# value of octal '726746425'  is
# 123456789 in decimal number system 
  
  
# Create BigInt object
$x = Math::BigInt->from_oct($octal);
  
# Check whether the Octal 
# number stored in BigInt object
# is an odd number or not 
# using Math::BigInt->is_odd() method
$isOdd = $x->is_odd();
  
if($isOdd)
{
    print "$octal (in octal) is an odd number in decimal";
}
  
else
{
    print "$octal (in octal) is not an odd number in decimal";
}
Producción:

726746425 (in octal) is an odd number in decimal

Ejemplo 3: Uso del Math::BigInt->is_odd()método para verificar si un hexadecimal es un número impar en decimal o no.

#!/usr/bin/perl 
  
# Import Math::BigInt module
use Math::BigInt;
  
# Hexadecimal number represented as string
$hex = 'Ox112210F4B16C1CB1';
  
# Hexadecimal value '0x112210F4B16C1CB1'  is
# 1234567890987654321 in decimal number system 
  
  
# Create BigInt object
$x = Math::BigInt->new($hex);
  
# Check whether the hexadecimal
# number stored in BigInt object
# is an odd number or not 
# using Math::BigInt->is_odd() method
$isOdd = $x->is_odd();
  
if($isOdd)
{
    print "$hex (in hexadecimal) is an odd number in decimal";
}
  
else
{
    print "$hex (in hexadecimal) is not an odd number in decimal";
}
Producción:

Ox112210F4B16C1CB1 (in hexadecimal) is an odd number in decimal

Publicación traducida automáticamente

Artículo escrito por ihritik y traducido por Barcelona Geeks. The original can be accessed here. Licence: CCBY-SA

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *