Conversor de grados Centigrados a Kelvin
Perl
Publicado el 10 de Julio del 2013 por Xavi (548 códigos)
4.380 visualizaciones desde el 10 de Julio del 2013
Simple conversor de grados Centigrados a Kelvin.
Iniciar sesiónCrear cuenta
Crear cuentaCrear cuenta#!/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 = ($temp +273.15);
print "$temp grados Centigrados son $fah grados Kelvin\n";}else{
print "Error: Introduce un numero\n";}
Comentarios sobre la versión: Versión 1 (0)
No hay comentarios