Bucles Finitos
Ejercicio 1:
Proceso Bucle
Escribir ("FORMULA DEL AREA DEL TRIANGULO")
Definir INICIAL, FINAL, b, h Como Entero
Definir A Como Real
Leer h
INICIAL = 0
FINAL = 10
b = INICIAL
Para INICIAL <- b hasta 10 hacer b = b + 10
A <- (b*h)/2
Escribir ("El resultado es: "), A
FinPara
FinProceso
Diagrama de flujo
Ejercicio 2:
Proceso Bucles_Finitos
Escribir (" CORRIENTE DE CALOR ")
Escribir ("--------------------")
Escribir ("C: conductividad")
Escribir ("A: area")
Escribir ("Tc: t. caliente")
Escribir ("Tf: t. fria")
Escribir ("L: longitud")
Escribir ("Ingrese C:")
Leer C
Escribir ("Ingrese A:")
Leer A
Escribir ("Ingrese Tf:")
Leer Tf
definir INICIAL, INICIAL2, FINAL, FINAL2, Tc, L como entero
definir H como real
INICIAL = 100
FINAL = 800
Tc = INICIAL
INICIAL2 = 5
FINAL2 = 10
L = INICIAL2
Para INICIAL2 <- L hasta 10 con paso 0.1 hacer L=L+10
Para INICIAL <- Tc hasta 800 con paso 10 Hacer Tc=Tc+800
H <- C*A*(Tc-Tf)/L
Escribir ("El resultado es: "), H
FinPara
FinPara
FinProceso
Diagrama de flujo
Ejercicio 3:
Proceso Bucles_Finitos
Escribir (" P. reactiva")
definir Pr, Pa, Pi como real
Leer Pr
Leer Pi
INICIAL = 5000
FINAL = 10000
Pa = INICIAL
Para INICIAL <- Pa hasta Pa <= FINAL hacer Pa=Pa+100
Pa <- Rc(Pa-Pi)
Escribir ("El resultado es: "), Pa
FinPara
FinProceso
