Clase 5 Ejercicio 4.1.2

/*Escribir un procedimiento ProcesarTecla, que dado un numero
codificando a una tecla que fue presionada en algun tipo de interfase, determine
la accion a seguir. 119-Acelerar(), 97-Frenar(), 115-GirarIzquierda(), 100-GirarDerecha(), 32-Disparar(), 27-Terminar(), -MostrarError()*/

procedure ProcesarTecla(codigo)
{
case (codigo) of
119 -> {Acelerar()}
97 -> {Frenar()}
115 -> {GirarIzquierda()}
100 -> {GirarDerecha()}
32 -> {Disparar()}
27 -> {Terminar()}
- -> {MoestrarError()}
}

procedure ProcesarTecla(codigo){

if(codigo == 119){
Acelerar()
}else{

if(codigo == 97){
Frenar()
}else{

if(codigo == 115){
GirarIzquierda()
}else{

if(codigo == 100){
GirarDerecha()
}else{

if(codigo==32){
Disparar()
}else {

if(codigo==27){
Terminar()
}