Algoritmios

ceso sin_titulo

Escribir 'CALCULAR LAS COMPONENTES DE LOS VECTORES, VECTOR RESULTANTE Y SU MAGNITUD'

Escribir 'Digite la cantidad de vectores'

Leer C

Si C=1 Entonces

Escribir 'Digite la magnitud del vector'

Leer M

Escribir 'Digite el angulo del vector'

Leer A1

A1R<-(PI/180)*A1

PX<-M*cos(A1R)

PY<-M*sen(A1R)

Escribir 'La componente del vector en el eje x es ',PX

Escribir 'La componente del vector en el eje y es ',PY

S<-C

Escribir 'La magnitud del vector resultante es ',M

Escribir 'El vector resultante en el eje x es ',PX

Escribir 'El vector resultante en el eje y es ',PY

Sino

Si C=2 Entonces

Escribir 'Digite la magnitud del vector 1 y 2'

Leer M1

Leer M2

Escribir 'Digite los angulo de del vector 1 y 2'

Leer A1

Leer A2

A1R<-(PI/180)*A1

A2R<-(PI/180)*A2

PX1<-M1*cos(A1R)

PY1<-M1*sen(A1R)

Escribir 'La componente del vector 1 en el eje x es ',PX1

Escribir 'La componente del vector 1 en el eje y es',PY1

PX2<-M2*cos(A2R)

PY2<-M2*sen(A2R)

Escribir 'La componente del vector 2 en el eje x es ',PX2

Escribir 'La componente del vector 2 en el eje y es ',PY2

PX<-PX1+PX2

PY<-PY1+PY2

Escribir 'El vector resultante en el eje x es ',PX

Escribir 'El vector resultante en el eje y es ',PY

MG<-rc((PX)^2+(PY)^2)

Escribir 'La magnitud del vector resultante es ',MG

Sino

Si C=3 Entonces

Escribir 'Digite la magnitud del vector 1,2 y 3'

Leer M1,M2,M3

Escribir 'Digite el angulo del vector 1,2 y 3'

Leer A1,A2,A3

A1R<-(PI/180)*A1

A2R<-(PI/180)*A2

A3R<-(PI/180)*A3

PX1<-M1*cos(A1R)

PY1<-M1*sen(A1R)

Escribir 'La componente del vector 1 en el eje x es ',PX1

Escribir 'La componente del vector 1 en el eje y es ',PY1

PX2<-M2*cos(A2R)

PY2<-M2*sen(A2R)

Escribir 'La componente del vecor 2 en el eje x es ',PX2

...