HALLAR CALOR DE CORRIENTE
1.- inicio:
2.- declaración:
inicial, final, C,A,Tc, Tf, L, H, inicial, final <- real
3.- asignación:
leer (C, A, Tf )
4.-proceso:
inicial <- 100
final <- 800
Tc <- inicial
inicial 1 <- 5
final 1 <- 10
L <- inicial 1
para Tc=inicial hasta Tc <=final hacer Tc=Tc + 10
para L = inicial 1 hasta L <=final 1 hasta L = L + 0.1
H <= C* A (Tc-Tf)/L
5.-imprimir (H)
Fin_para
Fin_para
6.-FIN
HALLAR LA POTENCIA REACTIVA
1.- inicio:
2.- declaración:
Pr, Pa, Pi <- real
3.- asignación:
leer (Pr, Pi )
4.-proceso:
inicial <- 5000
final <- 10 000
Pa <- inicial 1
para Pa = inicial hasta Pa <= finalhacer Pa = Pa + 100
Pr <=Rc (Pa -Pi)
5.- imprimir (Pr)
Fin_para
6.-FIN
HALLAR TENSIÓN SUPERFICIAL
1.- inicio:
2.- declaración:
Ts, Tso, Tf ,TC , n<- real
3.- asignación:
leer (Tc)
leer (n)
4.-proceso:
inicial <- 4
final <- 30
inicial 1 <- 400
final 1 <- 800
para Tso=inicial hasta Tso <=final hacer Tso=Tso + 2
para Tf= inicial 1 hasta Tf <=final 1 hacer Tf = Tf + 0.1
Ts <= Tso* (1- Tf/Tc )^ n
5.-imprimir (H)
Fin_para
Fin_para
6.-FIN