Jejeje, ¡¡¡2000 decimales!!!, tampoco tanto jejeje
Ahí va el código para calcular algunos volúmenes:
Using perl Syntax Highlighting
#!/usr/bin/perl -w
use strict
;
print "Las figuras disponibles para calcular su volumen son: \n";
print "-Esfera \n";
print "-Cubo \n";
print "-Cilindro \n";
print "-Cono \n";
print "-Piramide \n";
print "Introduce el nombr
e de la figura de la que quieres calcular su volumen: ";
my $pi = 3.141592654;
my $eleccion = <STDIN>;
chomp($eleccion);
if ($eleccion =~ /^Esfera/i) {
#Volumen de la esfera.
print "Introduce el radio de la esfera: ";
my $radio_esfera = <STDIN>;
chomp($radio_esfera);
my $v_esfera = (4
/3
) * $pi * ($radio_esfera ** 3
);
print "El volumen de la esfera es: " ,$v_esfera;
}
elsif ($eleccion =~ /^Cubo/i) {
#Volumen cubo.
print "Introduce el lado del cubo: ";
my $lado_cubo = <STDIN>;
chomp($lado_cubo);
my $v_cubo = $lado_cubo ** 3;
print "El volumen del cubo es: " ,$v_cubo;
}
elsif ($eleccion =~ /^Cilindro/i) {
#Volumen Cilindro.
print "Introduce el radio del cilindro: ";
my $radio_cilindro = <STDIN>;
chomp($radio_cilindro);
print "Introduce la altura del cilindro: ";
my $altura_cilindro = <STDIN>;
chomp($altura_cilindro);
my $v_cilindro = $pi * ($radio_cilindro ** 2
) * $altura_cilindro;
print "El volumen del cilindro es: ", $v_cilindro;
}
elsif ($eleccion =~ /^Cono/i) {
#Volumen del cono.
print "Introduce el radio del cono: ";
my $radio_cono = <STDIN>;
chomp($radio_cono);
print "Introduce la altura del cono: ";
my $altura_cono = <STDIN>;
chomp($altura_cono);
my $v_cono = ($pi * ($radio_cono ** 2
) * $altura_cono) * (1
/3
);
print "El volumen del cono es :" , $v_cono;
}
elsif ($eleccion =~ /^Cono/i) {
#Volumen de la piramide.
print "Introduce el area de la base de la piramide: ";
my $area_base_piramide = <STDIN>;
chomp($area_base_piramide);
print "Introduce la altura de la piramide: ";
my $altura_piamide = <STDIN>;
chomp($altura_piamide);
my $v_piramide = 1
/3
* $area_base_piramide * $altura_piamide;
print "El volumen de la piramide es: " , $v_piramide;
}
else {
print $eleccion , " no es una figura valida";
}Coloreado en 0.002 segundos, usando
GeSHi 1.0.8.4
Aclararé que en los if y en los elsif uso una expresión regular, en concreto "=~ /^Esfera/i" porque si usaba "eq Esfera" pues tiene que ser esfera con mayúscula y con la expresión regular sirve tanto "esfera" como "Esfera" a la hora de introducir el nombre, y así en las demás figuras.
Explico un poco que hace esa expresión regular =~ /^Esfera/i
=~ eso se pone para que la cadena de texto contenga lo que queremos buscar (en este caso es Esfera). Le pongo el modificador ^ para que busque "SÓLO" al principio de la cadena y le añado el "i" al final para que encuentre tanto "Esfera" como "esfera" (otros valores como "EsFeRa" también servirían) , es decir para que no haga distinción entre mayúsculas y minúsculas.
El siguiente ejercicio es:
8) Buscar ángulos con ley de seno/coseno ( con radianes y grados ) Bueno.... que ángulos buscar....mmm... supongo que te referirás a buscar ángulos por ejemplo en un triángulo y dar sus valores tanto en grados como en radianes.