martes, 15 de marzo de 2011

neobook

If  "[GrupoOpciones1]" "=" "Área del rectángulo"
InputBox "introduce un número " "introduce la base " "[X]"
InputBox "Introduce un número"  "introduce la altura" "[Y]"
Math "[X] * [Y]" "2" "[resultado]"
else
EndIf
If  "[GrupoOpciones1]" "=" "Área del pentágono"
InputBox "introduce un número" "introduce un lado "  "[X]"
InputBox "introduce un número" "introduce el apotéma" "[Y]"
Math "([X] * 5) * [Y] /2" "2" "[resultado]"
else
EndIf
If  "[GrupoOpciones1]" "=" "Área del rombo"
InputBox "introduce un número " "introducir la diagonal mayor "  "[X]"
InputBox "Introduce un número"  "introducir la diagonal menos""[Y]"
Math "[X] * [Y]"  "/2"  "[resultado]"
else
EndIf

neobook

If  "[GrupoOpciones1]" "=" "Área del rectángulo"
InputBox "introduce un número " "introduce la base " "[X]"
InputBox "Introduce un número"  "introduce la altura" "[Y]"
Math "[X] * [Y]" "2" "[resultado]"
else
EndIf
If  "[GrupoOpciones1]" "=" "Área del pentágono"
InputBox "introduce un número" "introduce un lado "  "[X]"
InputBox "introduce un número" "introduce el apotéma" "[Y]"
Math "([X] * 5) * [Y] /2" "2" "[resultado]"
else
EndIf
If  "[GrupoOpciones1]" "=" "Área del rombo"
InputBox "introduce un número " "introducir la diagonal mayor "  "[X]"
InputBox "Introduce un número"  "introducir la diagonal menos""[Y]"
Math "[X] * [Y]"  "/2"  "[resultado]"
else
EndIf

sfgs

If  "[GrupoOpciones1]" "=" "Área del rectángulo"
InputBox "introduce un número " "introduce la base " "[X]"
InputBox "Introduce un número"  "introduce la altura" "[Y]"
Math "[X] * [Y]" "2" "[resultado]"
else
EndIf
If  "[GrupoOpciones1]" "=" "Área del pentágono"
InputBox "introduce un número" "introduce un lado "  "[X]"
InputBox "introduce un número" "introduce el apotéma" "[Y]"
Math "([X] * 5) * [Y] /2" "2" "[resultado]"
else
EndIf
If  "[GrupoOpciones1]" "=" "Área del rombo"
InputBox "introduce un número " "introducir la diagonal mayor "  "[X]"
InputBox "Introduce un número"  "introducir la diagonal menos""[Y]"
Math "[X] * [Y]"  "/2"  "[resultado]"
else
EndIf