EVAP 7

> Pseudocódigo:

Proceso ESTRUCTURAS_SELECTIVAS

	Definir opcion como Entero;

	Escribir " ";

	Escribir "MENU";

	Escribir " ";

	Escribir " 1) CALCULAR LA CORRIENTE ELECTRICA";

	Escribir " 2) CALCULAR LA DIFERENCIA DE POTENCIAL";

	Escribir " 3) CALCULAR LA RESISTENCIA";

	Escribir " 4) CALCULAR LA CONDUCTANCIA";

	Escribir "INGRESE UNA OPCION: "

	Leer opcion;

	Segun opcion Hacer

		opcion 1:

			Definir I, V , R Como Real;

			Escribir "INGRESE EL VOLTAJE: ";

			Leer V;

			Escribir "INGRESE LA RESISTENCIA: ";

			Leer R;

			Si R<>0 Entonces

				I<-V/R;

				Escribir "LA CORRIENTE ELECTRICA ES: ", I;

			Sino

				Escribir "LA RESISTENCIA TIENE QUE SER DIFERENTE DE CERO, EN OTRO CASO LA OPERACIÓN ES INDETERMINADA";

			Fin Si

		opcion 2:

			Definir V, I , R Como Real;

			Escribir "INGRESE LA CORRIENTE ELECTRICA: ";

			Leer I;

			Escribir "INGRESE LA RESISTENCIA: ";

			Leer R;

			Si (I<>0) y (R<>0) Entonces

				V<-I*R;

				Escribir "EL VOLTAJE ES: ", V;

			Sino

				Escribir "FUERA DE RANGO";

			Fin Si

		opcion 3:

			Definir R, I , V Como Real;

			Escribir "INGRESE EL VOLTAJE: ";

			Leer V;

			Escribir "INGRESE LA CORRIENTE ELECTRICA: ";

			Leer I;

			Si I<>0 Entonces

				Si I>0 Entonces

					Si V>0 Entonces

						R<-V/I;

						Escribir "LA RESISTENCIA ES: ", R;

					Sino

						Escribir "EL VOLTAJE DEBE SER POSITIVO, EL VALOR DE UNA RESISTENCIA JAMAS ES NEGATIVO";

					Fin Si

				Sino

					Escribir "LA CORRIENTE ELECTRICA TIENE QUE SER MAYOR QUE CERO, NO SIENDO ESTE EL CASO LA OPERACION NO PUEDE EFECTUARSE DEBIDO A QUE EL VALOR DE UNA RESISTENCIA JAMAS ES NEGATIVO";

				Fin Si

			Sino

				Escribir "LA CORRIENTE ELECTRICA TIENE QUE SER DIFERENTE DE CERO, EN OTRO CASO LA OPERACIÓN ES INDETERMINADA";

			Fin Si

		opcion 4:

			Definir G, R Como Real;

			Escribir "INGRESE LA RESISTENCIA: ";

			Leer R;

			Si R<>0 Entonces

				G<-1/R

				Escribir "LA CONDUCTANCIA ES: ", G;

			Sino

				Escribir "LA RESISTENCIA TIENE QUE SER DIFERENTE DE CERO, EN OTRO CASO LA OPERACIÓN ES INDETERMINADA";

			Fin Si

		De Otro Modo:

			Escribir "POR FAVOR INSERTE UNA OPCION VALIDA";

		Fin Segun

FinProceso

> Diagrama de Flujo: