-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Generar una serie de N temperaturas aleatoriamente expresada en °K. Imprimir su equivalencia en °C y °F. Determinar el estado:
- Sólido < 0°C
- Líquido > 0 < 100 °C
- Gaseoso >100 °C
- Promedio, mayor y menor temperatura.
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
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
Proceso TemperaturasEnK
mayor <- 0;
menor <- 0;
promedio <- 0;
Escribir Sin Saltar "Ingresa el valor de n:";
Leer n;
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "PROCESO ", i;
grados_kelvin <- 1.0*AZAR(600)-200+AZAR(100)/100;
grados_celsius <- grados_kelvin-273.15;
grados_fahrenheit <- 1.8*(grados_kelvin-273.15)+32;
promedio <- promedio+grados_kelvin;
Si i = 1 Y menor>grados_kelvin Entonces
menor <- grados_kelvin;
FinSi
Si i = 1 Y mayor<grados_kelvin Entonces
mayor <- grados_kelvin;
FinSi
Si grados_celsius<=0 Entonces
Escribir "Sólido";
FinSi
Si grados_celsius>0 Y grados_celsius<100 Entonces
Escribir "Líquido";
FinSi
Si grados_celsius>=100 Entonces
Escribir "Gaseoso";
FinSi
Escribir "Valor de grados celsius: ", grados_celsius;
Escribir "Valor de grados fahrenheit: ", grados_fahrenheit;
Escribir "Valor de grados kelvin: ", grados_kelvin;
Escribir "";
FinPara
Si n = 0 Entonces
promedio <- 0;
SiNo
promedio <- promedio/n;
FinSi
Escribir "Valor de mayor: ", mayor;
Escribir "Valor de menor: ", menor;
Escribir "Valor de promedio: ", promedio;
FinProceso
mayor <- 0;
menor <- 0;
promedio <- 0;
Escribir Sin Saltar "Ingresa el valor de n:";
Leer n;
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "PROCESO ", i;
grados_kelvin <- 1.0*AZAR(600)-200+AZAR(100)/100;
grados_celsius <- grados_kelvin-273.15;
grados_fahrenheit <- 1.8*(grados_kelvin-273.15)+32;
promedio <- promedio+grados_kelvin;
Si i = 1 Y menor>grados_kelvin Entonces
menor <- grados_kelvin;
FinSi
Si i = 1 Y mayor<grados_kelvin Entonces
mayor <- grados_kelvin;
FinSi
Si grados_celsius<=0 Entonces
Escribir "Sólido";
FinSi
Si grados_celsius>0 Y grados_celsius<100 Entonces
Escribir "Líquido";
FinSi
Si grados_celsius>=100 Entonces
Escribir "Gaseoso";
FinSi
Escribir "Valor de grados celsius: ", grados_celsius;
Escribir "Valor de grados fahrenheit: ", grados_fahrenheit;
Escribir "Valor de grados kelvin: ", grados_kelvin;
Escribir "";
FinPara
Si n = 0 Entonces
promedio <- 0;
SiNo
promedio <- promedio/n;
FinSi
Escribir "Valor de mayor: ", mayor;
Escribir "Valor de menor: ", menor;
Escribir "Valor de promedio: ", promedio;
FinProceso