Clase 5 Ejercicio 4.2.2

/*Rehacer el ejercicio 2.4.12 para generalizar el tama˜no de la base
del triangulo. Observar que se requiere como precondicion
que el tama˜no de la base sea un numero impar.
Completar la precondicion con la cantidad de celdas
que debe haber disponibles para el dibujo.*/

procedure PrepararTablero()
{
VaciarTablero()
IrAlOrigen()
}
procedure PonerNVerde(color,dir,cant){
{Poner(color)}
Mover(dir)
}
procedure PonerNLado(color,dir,dir1,cant){
{Poner(color)}
Mover(dir)
Mover(dir1)
}
procedure DibujarLineaBaseVerde(n){
repeatWith i in 1..n
{PonerNVerde(Verde,Este,i)}
}
procedure DibujarLineaDerecha(m){
repeatWith i in 1..m
{PonerNLado(Verde,Norte,Oeste,1)}
}

procedure DibujarLineaIzquierda(m){
repeatWith i in 1..m
{PonerNLado(Verde,Sur,Oeste,1)}
}
procedure Main(){
PrepararTablero()
DibujarLineaBaseVerde(6)
DibujarLineaDerecha(3)
DibujarLineaIzquierda(3)
}