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