Capitulo 14 Small Basic. Guia de ejercicios. Parte 2

Diario de un programador.- Dia 46

12.- Escriba un programa que reciba como entrada dos números, y los muestre ordenados de menor a mayor:

TextWindow.WriteLine("ordena 2 numeros")

TextWindow.Write("Ingresa un numero ")

a[1] = TextWindow.ReadNumber()

TextWindow.Write("Ingresa otro numero ")

a[2] = TextWindow.ReadNumber()

If a[1] < a[2] Then

  b[1] = a[1]

  b[2] = a[2]

Else

  b[1] = a[2]

  b[2] = a[1]

EndIf

TextWindow.WriteLine(b[1] + "," + b[2])

 

13.- escriba otro programa que haga lo mismo con tres números:

TextWindow.WriteLine("Ordenar 3 numeros... metodo burbuja")

For i = 1 To 3

  TextWindow.Write("Ingresa numero ")

  a[i] = TextWindow.ReadNumber()

EndFor

For i = 1 To 3

  For j = 0 To 3 - i

    If a[j] > a[j + 1] Then

      aux = a[j]

      a[j] = a[j + 1]

      a[j + 1] = aux

    EndIf

  EndFor

EndFor

 

TextWindow.WriteLine(a[1] + "," + a[2] + "," + a[3])

14.- Escriba un programa que determine si un caracter ingresado es letra, número, o signo

TextWindow.WriteLine("Numero, letra o signo")

TextWindow.Write("Ingresa un caracter ")

caracter = TextWindow.Read()

codigo = Text.GetCharacterCode(caracter)

If codigo <= 47 Then

  TextWindow.WriteLine("Es un signo")

EndIf

 

If codigo >= 58 And codigo <= 64 Then

  TextWindow.WriteLine("Es un signo")

EndIf

If codigo >= 91 And codigo <= 96 Then

  TextWindow.WriteLine("Es un signo")

EndIf

If codigo >= 123 And codigo <= 192 Then

  TextWindow.WriteLine("Es un signo")

EndIf

If codigo >= 65 And codigo <= 90 Then

  TextWindow.WriteLine("Es una letra")

EndIf

If codigo >= 97 And codigo <= 122 Then

  TextWindow.WriteLine("Es una letra")

EndIf 

If codigo >= 48 And codigo <= 57 Then

  TextWindow.WriteLine("Es un numero")

EndIf

If codigo = 193 Or codigo = 201 Or codigo = 205 Or codigo = 211 Or codigo = 218 Then

  TextWindow.WriteLine("Es una letra")

EndIf

If codigo = 225 Or codigo = 233 Or codigo = 237 Or codigo = 243 Or codigo = 250 Then

  TextWindow.WriteLine("Es una letra")

EndIf 

If codigo = 241 Then

  TextWindow.WriteLine("Es una letra")

EndIf

Diario de un programador.- Dia 48

15.- Escriba un programa que solicite la fecha de nacimiento y calcule su edad
Ej:

Ingrese su fecha de nacimiento.

Dia: 14

Mes: 6

Anyo: 1948

Tu edad es de 62 años

diaActual = Clock.Day

mesActual = Clock.Month

anyoActual = Clock.Year

TextWindow.WriteLine("Fecha de nacimiento")

TextWindow.Write("Ingresa el dia ")

diaNacimiento = TextWindow.ReadNumber()

TextWindow.Write("Ingresa el mes ")

mesNacimiento = TextWindow.ReadNumber()

TextWindow.Write("Ingresa el año ")

anyoNacimiento = TextWindow.ReadNumber()

edad = anyoActual - anyoNacimiento

If mesNacimiento < mesActual Then

  TextWindow.WriteLine("Tu edad es de " + edad + " años" )

EndIf

If mesNacimiento = mesActual And diaNacimiento < diaActual Then

  TextWindow.WriteLine("Tu edad es de " + (edad - 1) + " años" )

EndIf

If mesNacimiento = mesActual And diaNacimiento = diaActual Then

  TextWindow.WriteLine("Tu edad es de " + edad + " años" )

EndIf

If mesNacimiento = mesActual And diaNacimiento > diaActual Then

  TextWindow.WriteLine("Tu edad es de " + edad + " años" )

EndIf

If mesNacimiento > mesActual Then

  TextWindow.WriteLine("Tu edad es de " + (edad - 1) + " años" )

EndIf

Diario de un programador.- Dia 49

16.- Los tres lados a, b y c de un triángulo deben satisfacer la desigualdad triangular: cada uno de los lados no puede ser más largo que la suma de los otros dos.

Escriba un programa que reciba como entrada los tres lados de un triángulo, e indique si el triángulo es válido y  si lo es, a que tipo corresponde. Ej:

Ingrese lado1: 2

Ingrese lado2: 3

Ingrese lado3: 7

No es un triangulo valido.

Ingrese a: 3

Ingrese b: 2

Ingrese c: 2

El triángulo es isósceles.

Sub tipo

  If lado1 = lado2 And lado1 = lado3 Then

    TextWindow.WriteLine("Es equilatero")

  EndIf

  If lado1 = lado2 And lado1 <> lado3 Or lado1 = lado3 And lado1 <> lado2 Or lado2 = lado3 And lado2 <> lado1 Then

    TextWindow.WriteLine("Es isosceles")

  EndIf

  If lado1 <> lado2 And lado1 <> lado3 And lado2 <> lado3 Then

    TextWindow.WriteLine("Es escaleno") 

  EndIf

EndSub

desigual = 0

TextWindow.WriteLine("Desigualdad triangular")

TextWindow.Write("Ingresa el lado 1: ")

lado1 = TextWindow.ReadNumber()

TextWindow.Write("Ingresa el lado 2: ")

lado2 = TextWindow.ReadNumber()

TextWindow.Write("Ingresa el lado 3: ")

lado3 = TextWindow.ReadNumber()

If lado1 + lado2 < lado3 Then

  desigual = desigual + 1

EndIf

If lado1 + lado3 < lado2 Then

  desigual = desigual + 1

EndIf 

If lado2 + lado3 < lado1 Then

  desigual = desigual + 1

EndIf 

If desigual > 0 Then

  TextWindow.WriteLine("No es un triangulo valido")

Else

  tipo()

EndIf

Diario de un programador.- Dia 50

 

17.- Escriba un programa que muestre la tabla de multiplicar del 1 al 10 del número ingresado por el usuario:

Sub tabla

  For i = 1 To 10

    TextWindow.WriteLine(numero + " x " + i + " = " + numero * i)

  EndFor

EndSub

TextWindow.WriteLine("Tabla de multiplicar")

TextWindow.Write("Ingresa un numero ")

numero = TextWindow.ReadNumber()

tabla()

18.- Escriba un programa que genere todas las potencias de 2, desde 1 hasta la ingresada por el usuario:

Ej: Si el usuario escribe 4, el programa responde:

1^2 = 1

2^2 = 4

3^2 = 9

4^2 = 16

Sub potencia

  For i = 1 To numero

    TextWindow.WriteLine(i + " ^ 2 " + " = " + Math.Power(i,2))

  EndFor

EndSub

TextWindow.WriteLine("Potencia de 2")

TextWindow.Write("Ingresa un numero ")

numero = TextWindow.ReadNumber()

potencia()

19.- Escriba un programa que pida al usuario dos números enteros, y luego entregue la suma de todos los números que están entre ellos. Por ejemplo, si los números son 1 y 7, debe entregar como resultado 2 + 3 + 4 + 5 + 6 = 20.

TextWindow.WriteLine("Sumatoria entre dos numeros")

aux = 0

TextWindow.Write("Ingresa un numero ")

num1 = TextWindow.ReadNumber()

TextWindow.Write("Ingresa otro numero ")

num2 = TextWindow.ReadNumber()

For i = (num1 + 1) To (num2 - 1)

  aux = aux + i

EndFor

For j = (num1 + 1) To (num2 - 1)

  If j = (num2 - 1) Then

    TextWindow.Write(j + " = ")

  Else

    TextWindow.Write(j + " + ")

  EndIf

EndFor

TextWindow.WriteLine(aux)

20.- Escriba un programa que muestre una tabla de multiplicar como la siguiente:

 1     2    3    4     5    6     7    8    9  10

 2     4    6    8   10  12  14  16  18  20

 3     6    9   12  15  18  21  24  27  30

 4     8  12  16  20   24  28  32  36  40

 5   10  15  20  25   30  35  40  45  50

 6   12  18  24  30   36  42  48  54  60

 7   14  21  28  35   42  49  56  63  70

 8   16  24  32  40   48  56  64  72  80

 9   18  27  36  45   54  63  72  81  90

10  20  30  40  50   60  70  80  90 100

TextWindow.WriteLine("Tabla de multiplicar como matriz")

For a = 1 To 10

  For b = 1 To 10

    If a * b < 10 Then

      TextWindow.Write(a * b + "  ")

    Else

      TextWindow.Write(a * b + " ")

    EndIf

    If b = 10 Then

      TextWindow.WriteLine("")

    EndIf

  EndFor

EndFor

21.- Escriba un programa que entregue  los divisores del número entero ingresado. Ej:

Si el usuario ingresa un 20, el programa responde:

20, 10, 5, 4, 2

Se omite el 1 ya que todos los número son divisibles por 1 y a pesar de que todos los números son divisibles por sí mismo, debe ser agregado de igual forma.

TextWindow.WriteLine("Divisores")

TextWindow.Write("Ingresa un numero ")

numero = TextWindow.ReadNumber()

divisor = 0

If Math.Remainder(numero,2) = 0 Then

  iterar = numero / 2

Else

  iterar = (numero - 1) / 2

EndIf

For i = 1 To iterar

  If Math.Remainder(numero,i) = 0 Then

    aux = numero / i

    If aux <> divisor then

      divisor = aux  

    EndIf

    If i = iterar Then

      TextWindow.WriteLine(divisor)

    Else

      TextWindow.Write(divisor  + ",")

    EndIf

  EndIf

EndFor

22 Escriba un programa que pida al usuario ingresar la altura y el ancho de un rectángulo y lo dibuje utilizando asteriscos:

Alto: 3

Ancho: 4

****

****

****

TextWindow.WriteLine("Rectangulo")

TextWindow.Write("Alto: ")

alto = TextWindow.ReadNumber()

TextWindow.Write("Ancho: ")

ancho = TextWindow.ReadNumber()

For a = 1 To alto

  For b = 1 To ancho

    TextWindow.Write("*")

    If b = ancho Then

      TextWindow.WriteLine("")   

    EndIf

  EndFor

EndFor