Jueves 29 de noviembre
Inicio
Declaracion
Campo [14] <- real
i, inicio, final <- real
Asignacion
L=2.5
final=8
leer(I, N, u)
Mientras (L<=final) hacer
campo[i] <- (u*I*N)/L
i=i+1
L=L+0.5
Fin_mientras
campo()
Fin_algoritmo
​
Sub proceso suma
suma=0
para<i=inicial>hasta<final>, i=i+1
suma<-suma+campo[i]
Escribir " suma es:" , suma;
Fin_para
Fin_subproceso
​
​
​
POTENCIA (P)
​
Inicio
Declaracion
ANG, potencia[120] <- real
i, inicio, final, pi, rad <- reales
Asignacion
ANG=60
final=120
pi=3.1415
leer(v, I)
Mientras (ANG<=final) hacer
rad <- (2*pi*ANG)/360
leer potencia[i] <- v*I*cos(rad)
i=i+1
ANG=ANG+1
Fin_mientras
potencia()
Fin_algoritmo
​
sub proceso
i=1
MAX <- potencia[i]
repetir
si (potencia[1]>MAX)
MAX<-potencia[i]
caso contrario
MAX<-MAX
Fin_si
hasta (i<=final)
Escribir (MAX)
fin_subproceso