Dibujar las caras laterales, altura y apotema
Escribir en Entrada:
A=(0,0,0)
B=(0,0,h)
f=Segmento(A,B) Ocultar el vector u
g=Elemento(l2,1)
C=PuntoMedio(g)
i=Segmento(A,C)
l1'=Traslada(l1,u)
l3=Secuencia(Polígono(Elemento(l1, k), Elemento(l1, k + 1), Elemento(l1', k + 1), Elemento(l1', k)), k, 1, n)
Agregar el texto:
Lado=g
Apotema=i
Altura=h
Numero de lados= n
g, i, h, n se toman de la lista de Objetos
En Entrada escribir: a=Prisma(pol1,h)