This repository has been archived by the owner on Apr 27, 2022. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 1
/
temp_perl.pl
155 lines (153 loc) · 5.63 KB
/
temp_perl.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
use warnings;
my $celsius = "Celsius";
my $fahrenheit = "Fahrenheit";
my $kelvin = "Kelvin";
my $rankine = "Rankine";
print "Programa para convertir temperaturas en Celsius, Fahrenheit, Kelvin y Rankine\n";
print "Ingresar la escala inicial de temperatura empezando con mayúscula";
$escala_inicial=<STDIN>;
chomp ($escala_inicial);
if ($escala_inicial eq $celsius)
{
print "Ingresar la temperatura inicial en grados";
$temp_inicial=<STDIN>;
chomp ($temp_inicial);
if ($temp_inicial > -274)
{
print "Ingresar el nombre completo de la escala a convertir empezando con mayúscula";
$escala_final=<STDIN>;
chomp ($escala_final);
if($escala_final eq $fahrenheit)
{
$temp_final = ($temp_inicial *1.8) +32;
print "La temperatura en " . $escala_final . " es " . $temp_final;
}
elsif($escala_final eq $kelvin)
{
$temp_final=($temp_inicial + 273.15);
print "La temperatura en " . $escala_final . " es " . $temp_final;
}
elsif($escala_final eq $rankine)
{
$temp_final= ($temp_inicial + 273.15) *1.8;
print "La temperatura en " . $escala_final . " es " . $temp_final;
}
else
{
print "Ingresar una escala valida";
}
}
else
{
print "Ingresar una temperatura valida";
}
}
elsif ($escala_inicial eq $fahrenheit)
{
print "Ingresar la temperatura inicial en grados";
$temp_inicial=<STDIN>;
chomp ($temp_inicial);
if($temp_inicial > -459.67)
{
print "Ingresar el nombre completo de la escala a convertir empezando con mayúscula";
$escala_final=<STDIN>;
chomp($escala_final);
if ($escala_final eq $celsius)
{
$temp_final = ($temp_inicial -32) *0.555;
print "La temperatura en " . $escala_final . "es " . $temp_final;
}
elsif($escala_final eq $kelvin)
{
$temp_final = ($temp_inicial +459.67) *0.555;
print "La temperatura en " . $escala_final . "es " . $temp_final;
}
elsif ($escala_final eq $rankine)
{
$temp_final = ($temp_inicial +459.67);
print "La temperatura en " . $escala_final . "es " . $temp_final;
}
else
{
print "Ingresar una escala valida";
}
}
else
{
print "Ingresar una temperatura valida";
}
}
elsif ($escala_inicial eq "Kelvin")
{
print "Ingresar la temperatura inicial en grados";
$temp_inicial=<STDIN>;
chomp ($temp_inicial);
if($temp_inicial > -1)
{
print "Ingresar el nombre completo de la escala a convertir empezando con mayúscula";
$escala_final=<STDIN>;
chomp ($escala_final);
if ($escala_final eq $celsius)
{
$temp_final = ($temp_inicial -273.15);
print "La temperatura en " . $escala_final . "es " . $temp_final;
}
elsif ($escala_inicial eq $fahrenheit)
{
$temp_final = ($temp_inicial * 1.8) -459.67;
print "La temperatura en " . $escala_final . "es " . $temp_final;
}
elsif ($escala_final eq $rankine)
{
$temp_final = ($temp_inicial *1.8);
print "La temperatura en " . $escala_final . "es " . $temp_final;
}
else
{
print "Ingresar una escala valida";
}
}
else
{
print "Ingresar una temperatura valida"
}
}
elsif ($escala_inicial eq "Rankine")
{
print "Ingresar la temperatura inicial en grados";
$temp_inicial=<STDIN>;
chomp ($temp_inicial);
if($temp_inicial > -1)
{
print "Ingresar el nombre completo de la escala a convertir empezando con mayúscula";
$escala_final=<STDIN>;
chomp ($escala_final);
if ($escala_final eq $celsius)
{
$temp_final = ($temp_inicial -491.67) /1.8;
print "La temperatura en " . $escala_final . "es " . $temp_final;
}
elsif ($escala_inicial eq $fahrenheit)
{
$temp_final = ($temp_inicial - 459.67);
print "La temperatura en " . $escala_final . "es " . $temp_final;
}
elsif ($escala_final eq $kelvin)
{
$temp_final = ($temp_inicial /1.8);
print "La temperatura en " . $escala_final . "es " . $temp_final;
}
else
{
print "Ingresar una escala valida";
}
}
else
{
print "Ingresar una temperatura valida"
}
}
else
{
print "Ingresar una escala valida"
}