MATRICES (JUEVES 29/11/18)

​

1.- Campo Magnético

Algoritmo:

​

1.- INICIO

2.- DECLARACIÓN

corriente, n, u <- real  

campo (11) <- real

inicial, final, i, x <- real

3.- ASIGNACIÓN

x = 2.5

final = 8

Leer (corriente, n, u);

4.- PROCESO

Mientras (x <= final) Hacer

Leer campo [i] <- (u * corriente * n) /x;

i <- i + 1;

x <- x + 0.5;

FinMientras

FinProceso

SubProceso suma ()

Definir suma () como real

Suma = 0

Para <i = inicial> hacer <final>, i <- i + 1;

Suma <- suma + campo [i];

FinPara

Escribir (suma);

FinSubProceso

2.- Potencia

Algoritmo:

​

​​

​

​

POTENCIA 

​

​

1.- INICIO

2.- DECLARACIÓN

Pi, v, corriente <- real

Alpha, potencia (120) <- real

Rad, inicial, final, i <- real

3.- ASIGNACIÓN

Alpha = 60

Final = 120

Pi = 3.1415

Leer (v, corriente)

4.- PROCESO

Mientras (Alpha <= final) Hacer

Rad <- (2*Pi*Alpha) / 360;

Leer potencia [i] <- v*corriente*cos(Rad);

I <- i + 1

Alpha <- Alpha + 5

FinMientras

FinProceso

SubProceso Maximo ()

i = 1

Maximo <- Potencia ()

Si Potencia [i] > Maximo Entonces

Maximo <- Potencia [i];

Sino

Maximo <- Maximo;

FinSi

Escribir (Maximo);

FinSubProceso