Microsoft Small Basic

Program Listing: DMK933
'Esta aplicacion hace parte del curso de robotica para niƱos
'dictado en la universidad sergio arboleda
'Bogota Colombia
'visitanos en:
' www.roboticaenlasergio.wordpress.com

' Este programa prueba si un numero es par o impar
'y lo muestra en pantalla

'En este programa se muestra el empleo de la funcion if
' se presenta el objeto math y
'el manejo de la instruccion goto y las etiquetas

'Creamos una ventana de texto
TextWindow.Show()
' leemos del usuario dos numeros en las variables a y b
TextWindow.WriteLine("Este programa identifica")
TextWindow.WriteLine("los numero pares")
TextWindow.WriteLine("")
probar:
TextWindow.WriteLine("Digita el numero a probar")
numero=TextWindow.Read()
residuo = Math.Remainder(numero,2)
texto="impar"
If residuo=0 then
texto="par"
EndIf

TextWindow.WriteLine("El numero "+ numero + " es "+ texto)
TextWindow.WriteLine("Desea probar otro numero ? S/N")
mas=TextWindow.Read()
If mas="s" or mas="S" Then
TextWindow.Clear()
Goto probar
EndIf