Cilindro

// Area y perimetro de materiales
Proceso AyPdMatriales
	Escribir "Bienvenido este programa le facilitara la construcciòn de un cilindro con tapa"
	Escribir ""
	Escribir "Para comenzar presione ENTER"
	Esperar Tecla
	Limpiar Pantalla
	//Definición del tipo de variable
	Definir material Como Caracter;
	Definir cantidad Como Entero;
	//Inicio de bucle
	Repetir
		Escribir "Antes de que demos inicio a la construcciòn, nos gustaria saber de que material lo quiere hacer y de que color"
		Escribir ""
		Leer material;
		Escribir Sin Saltar "De que color? "; Leer colorC;
		Escribir " "
		Escribir Sin Saltar "¿De que altura quiere su cilindro?"; Leer alturaC;
		Escribir " "
		Escribir sin saltar "Medida centimetros / metros / kilometros"; leer unidadC;
		Escribir " "
		Escribir Sin Saltar "¿Que tan ancho quiere su cilindro? "; Leer longitudC;
		Escribir Sin Saltar "¿Con que medida?"; Leer unidadL
		Escribir " "
		Escribir " "
		//Inicio de operaciones
		radio = longitudC / 2
		volumen = PI*radio^2*alturaC
		tapa=longitudC + 2
		Limpiar Pantalla
		Escribir " "
		Escribir "--------------------------------------------------------- "
		Escribir "El cilindro tiene una altura de " alturaC " y un ancho de " longitudC
		Escribir "El cilindro tiene un volumen de: " volumen " " unidadC "^3 Cubicos"; Escribir "Esta hecho con " material " de color " colorC
		Escribir ""
		Escribir " "
		areaTapa = PI*radio^2
		Escribir "La tapa que se requiere tiene una medida de " tapa " y un radio de " radio+1 " con un area de " areaTapa
		Escribir " "
		Escribir "---------------------------------------------------------"
		Escribir "¿Quiere continuar con otro cilindro? Si / No"; Leer salir;
		si salir = "No" o salir = "no" o salir = "NO" Entonces
			salirC = 1;
		FinSi
	Hasta Que salirC = 1;
FinProceso