
Conversor de grados Centigrados a Farenheit
Perl
Publicado el 10 de Julio del 2013 por Xavi (548 códigos)
4.797 visualizaciones desde el 10 de Julio del 2013
Simple conversor de grados Centigrados a Farenheit.
#!/usr/bin/perl
use strict;
use warnings;
print "Entra la temperatura en grados Centigrados: ";
my $temp = <STDIN>;
chomp($temp);
if($temp =~ /^-?\d+\.?\d*$/)
{
my $fah;
$fah = (9 * $temp/5) + 32;
print "$temp grados Centigrados son $fah grados Fahrenheit\n";
}else{
print "Error: Introduce un numero\n";
}
Comentarios sobre la versión: Versión 1 (0)
No hay comentarios