Programa para cálculo de diagonais e ângulos de polígonos regulares

Vista previa del material en texto

Proceso Practica1
	
	escribir "Programa para saber las diagonales y angulos de un poligono regulares "
	escribir "Cuantos lados tiene su poligono?"
	leer N
	
	Si N>=3 && N<=20 Entonces
		D1=N-3;
		D=N*D1/2;
		Escribir "La diagonales de su poligono son:",D
		Sum=(N-2)*180
		escribir "Su angulo interno es:",Sum
		Ext=(N*360)-Sum
		escribir "Su angulo externo es:",Ext	
	SiNo
		Mientras N<3 Hacer
			Escribir "No existe un poligono con ese numero de lados: "
			Escribir "Vuelva a intentarlo: "
			escribir "Cuantos lados tiene su poligono?"
			leer N
		Fin Mientras
	Fin Si
	
	
	Segun N Hacer
		opcion 1:	
			Escribir "No existe un poligono con ese numero de lados: "
		opcion 2:	
			Escribir "No existe un poligono con ese numero de lados: "
		opcion 3:
			Escribir "Su poligono es un triangulo"
		opcion 4:
			Escribir "Su poligono es un cuadrado "
		opcion 5:
			Escribir "Su poligono es un pentagono "
		opcion 6:
			Escribir "Su poligono es un hexagono "
		opcion 7:
			Escribir "Su poligono es un heptagono "
		opcion 8:
			Escribir "Su poligono es un octagono "
		opcion 9:
			Escribir "Su poligono es un eneagono "
		opcion 10:
			Escribir "Su poligono es un decagono "
		opcion 11:
			Escribir "Su poligono es un endecagono "
		opcion 12:
			Escribir "Su poligono es un dodecagono"
		opcion 13:
			Escribir "Su poligono es un tridecagono "
		opcion 14:
			Escribir "Su poligono es un tetradecagono "
		opcion 15:
			Escribir "Su poligono es un pentedecagono "
		opcion 16:
		 Escribir "Su poligono es un hexadecagono "
		opcion 17:
			Escribir "Su poligono es un heptadecagono "
		opcion 18:
			Escribir "Su poligono es un octadecagono "
		opcion 19:
			Escribir "Su poligono es un eneadecagono "
		opcion 20:
		 Escribir "Su poligono es un icosagono "
		Fin Segun
	
	
FinProceso