Vehiculos_Perl
1234567891011121314151617181920212223
use strict;
use warnings;
print "\n Vehículos \n";
print "\n Ingrese el valor de velocidad del primer vehículo \n";
my $vel_1 = <STDIN>;
print "\n Ingrese el valor de velocidad del segundo vehículo \n";
my $vel_2 = <STDIN>;
print "\n Ingrese la distancia entre los vehículos \n"; #Kilometros
my $dis = <STDIN>;
for my $minutos($dis){
my $resultado = 60 * $dis / $vel_2 - $vel_1;
print "\nEl tiempo de alcance es de: ";
print "$resultado minutos";
}
print "\n";
exit
Perl
INFO