-
Lenguaje
Pascal
-
Descripción
Un departamento de climatología ha realizado recientemente su conversión al sistema métrico.
Diseñar un algoritmo para realizar las siguientes conversiones:
a. Leer la temperatura dada en la escala Celsius e imprimir en su equivalente Fahrenheit (la fórmula de conversión es "F=9/5 ºC+32").
b. Leer la cantidad de agua en pulgadas e imprimir su equivalente en milímetros (25.5 mm = 1 pulgada).
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program DepartamentoDeClimatologia;
uses crt;
var cantidad_en_milimetros, cantidad_en_pulgadas, temperatura_en_celsius, temperatura_en_fahrenheit : real;
begin
write ('Ingresa el valor de cantidad en pulgadas: ');
readln (cantidad_en_pulgadas);
write ('Ingresa el valor de temperatura en celsius: ');
readln (temperatura_en_celsius);
temperatura_en_fahrenheit := 9.0*temperatura_en_celsius/0.5+32;
cantidad_en_milimetros := cantidad_en_pulgadas*25.5;
writeln ('Valor de cantidad en milimetros: ', cantidad_en_milimetros:0:6);
writeln ('Valor de temperatura en fahrenheit: ', temperatura_en_fahrenheit:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cantidad_en_milimetros, cantidad_en_pulgadas, temperatura_en_celsius, temperatura_en_fahrenheit : real;
begin
write ('Ingresa el valor de cantidad en pulgadas: ');
readln (cantidad_en_pulgadas);
write ('Ingresa el valor de temperatura en celsius: ');
readln (temperatura_en_celsius);
temperatura_en_fahrenheit := 9.0*temperatura_en_celsius/0.5+32;
cantidad_en_milimetros := cantidad_en_pulgadas*25.5;
writeln ('Valor de cantidad en milimetros: ', cantidad_en_milimetros:0:6);
writeln ('Valor de temperatura en fahrenheit: ', temperatura_en_fahrenheit:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.