Datos personales

martes, 10 de marzo de 2015

small-basic: Calculadora con las 4 operaciones básicas, debe tener una pregunta por si se desea realizar más de una operación

luna:
TextWindow.WriteLine("1. suma")
TextWindow.WriteLine("2. resta")
TextWindow.WriteLine("3. multiplicacion")
TextWindow.WriteLine("4. division")
TextWindow.WriteLine("elige uno")
f=TextWindow.ReadNumber()
If f=1 Then
  TextWindow.WriteLine("escribe el primer valor")
  a= TextWindow.ReadNumber()
  TextWindow.WriteLine("escribe el segundo valor")
  m= TextWindow.ReadNumber()
  TextWindow.WriteLine("el resultado es:"+ a+m)
  TextWindow.WriteLine("desea realizar otra operacion")
  estrella= TextWindow.Read()
  If estrella="si" Then
    Goto luna
    Else
    EndIf
Else
  If f=2Then
  TextWindow.WriteLine("escribe el primer valor")
  s=TextWindow.ReadNumber()
  TextWindow.WriteLine("escribe el segundo valor")
  k=TextWindow.ReadNumber()
  TextWindow.WriteLine("el resultado es:"+ s-k)
  TextWindow.WriteLine("desea realizar otra operacion")
  estrella= TextWindow.Read()
  If estrella="si" Then
    Goto luna
    Else
    EndIf
  Else
  If f=3 Then
  TextWindow.WriteLine("escribe el primer valor")
  g=TextWindow.ReadNumber()
  TextWindow.WriteLine("escribe el segundo valor")
  j=TextWindow.ReadNumber()
  TextWindow.WriteLine("el resultado es:"+ g*j)
  TextWindow.WriteLine("desea realizar otra operacion")
  estrella= TextWindow.Read()
  If estrella="si" Then
    Goto luna
    Else
    EndIf
Else
  If f=4Then
  TextWindow.WriteLine("escribe el primer valor")
  w=TextWindow.ReadNumber()
  TextWindow.WriteLine("escribe el segundo valor")
  t=TextWindow.ReadNumber()
  TextWindow.WriteLine("el resultado es:"+ w/t)
  TextWindow.WriteLine("desea realizar otra operacion")
  estrella= TextWindow.Read()
  If estrella="si" Then
  Goto luna

No hay comentarios:

Publicar un comentario