Algoritmo – Jennifer Cortes Vazquez

Algoritmo Repetir_Hacer_While
	//Menu de opciones con repetición
	Definir Seleccion Como Caracter;
	Definir Calif1, Calif2, Calif3, Calif4, Calif5, Promedio Como Real;
	Definir base, altura, area Como Real;
	Definir Phi, radio, diametro, perimetro Como Real;
	Mientras (Seleccion <> "0") Hacer
    if
		Limpiar Pantalla;
		Escribir "+-------------------------------+";
		Escribir "|       Menú de Opciones        |"; 
		Escribir "|                               |";
		Escribir "|   1. Promedio de calificacion |";
		Escribir "|   2. Área del triangulo       |";
		Escribir "|   3. Area Perimetro Circulo   |";
		Escribir "|                               |";
		Escribir "|   0.Salir                     |";
		Escribir "|                               |";
		Escribir "+-------------------------------+";
		Escribir Sin Saltar "Opción: ";
		Leer Seleccion;
		Segun Seleccion Hacer
			Caso "1":
				Escribir "Ingresa la calificacion 1";
				Leer Calif1;
				Escribir "Ingresa la calificacion 2";
				Leer Calif2;
				Escribir "Ingresa la calificacion 3";
				Leer Calif3;
				Escribir "Ingresa la calificacion 4";
				Leer Calif4;
				Escribir "Ingresa la calificacion 5";
				Leer Calif5;
				Promedio= (Calif1+Calif2+Calif3+Calif4+Calif5) /5;
				Escribir "El promedio es: " Promedio;
			Caso "2":
				Escribir "Ingresa el valor de la base";
				Leer base;
				Escribir "Ingresa el valor de la altura";
				Leer altura;
				area = base * altura / 2;
				Escribir "El area es:", area;
			Caso "3":
				Phi <- 3.14159;
				Escribir "Ingresa el valor del diametro";
				Leer diametro;
				radio = diametro / 2;
				area = phi * radio * radio;
				perimetro = 2 * phi * radio;
				Escribir "Valor del diametro usado para los calculos ", diametro;
				Escribir "El area del circulo con ",radio, " de radio es: ", area;
				Escribir "El perimetro del circulo con ",radio, " de radio es: ", perimetro;
				
			Caso "0":
				Escribir "Saliendo del algoritmo";
			De Otro Modo:
				Escribir "Opción no valida";
		FinSegun
		Escribir "Pulsa una tecla para continuar";
		Esperar Tecla;
	FinMientras
FinAlgoritmo