Calculadora Ntrl

Proceso sin_titulo

	Definir x como reales;
	Definir s1 como reales;
	Definir s2 como reales;
	Definir r1 como reales;
	Definir r2 como reales;
	Definir d1 como reales;
	Definir d2 como reales;
	Definir m1 como reales;
	Definir m2 como reales;

	Escribir "Hola, Seleccione una funcion";
	Escribir " [1]Sumar - [2]Restar ";
	Escribir " [3]Dividir - [4]Multlipicar ";
	Leer x;
	Segun x Hacer
		1:
			Escribir "Digite la suma";
			Leer s1;
			Escribir " + ";
			Leer s2;
			Escribir "Es igual a: ", s1 + s2;

		2:
			Escribir "Digite la Resta";
			Leer r1;
			Escribir " - ";
			Leer r2;
			Escribir "Es igual a: ", r1 - r2;

		3:
			Escribir "Digite la Divicion";
			Leer d1;
			Escribir " / ";
			Leer d2;
			Escribir "Es igual a: ", d1 / d2;

		4:
			Escribir "Digite la Multiplicacion";
			Leer m1;
			Escribir " * ";
			Leer m2;
			Escribir "Es igual a: ", m1 * m2;

		De Otro Modo:
			Escribir "Cometiste un error en alguna parte.";
	FinSegun

FinProceso