Capitulo 14 Small Basic. Guia de ejercicios. Parte 3

23 Escriba un programa que dibuje el triángulo del tamaño indicado por el usuario de acuerdo al ejemplo:

Altura: 5

*

**

***

****

*****

TextWindow.WriteLine("Triangulo")

TextWindow.Write("Alto: ")

alto=TextWindow.ReadNumber()

For x = 1 To alto

  For g = 1 To alto

    If g<= x Then

      TextWindow.Write("*")

    EndIf

    If g = x Then

      TextWindow.WriteLine("")

    EndIf

  EndFor

EndFor

24.- La secuencia de Collatz de un número entero se construye de la siguiente forma:

• si el número es par, se lo divide por dos;
• si es impar, se le multiplica tres y se le suma uno;
• la sucesión termina al llegar a uno.

Desarrolle un programa que entregue la secuencia de Collatz de un número entero. Ej:

n: 18

18 9 28 14 7 22 11 34 17 52 26 13 40 20 10 5 16 8 4 2 1

n: 19

19 58 29 88 44 22 11 34 17 52 26 13 40 20 10 5 16 8 4 2 1

n: 20

20 10 5 16 8 4 2 1

TextWindow.WriteLine("Secuencia Collatz")

TextWindow.Write("Ingresa numero: ")

numero = TextWindow.ReadNumber()

While numero <> 1

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

    TextWindow.Write(numero + ",")

    numero = numero / 2

  Else

    TextWindow.Write(numero + ",")

    numero = (numero * 3) + 1

  EndIf

  If numero = 1 Then

    TextWindow.WriteLine("1")

  EndIf

EndWhile

25.- Escriba un programa que muestre los números naturales menores o iguales que un número n determinado, que no sean múltiplos ni de 3 ni de 7.

Ingrese numero: 18

1

2

4

5

8

10

11

13

16

17

TextWindow.WriteLine("Numeros naturales menores")

TextWindow.Write("Ingresa un numero ")

num=TextWindow.ReadNumber()

For i = 1 To num

  If Math.Remainder(i, 3) <> 0 And Math.Remainder(i, 7) <> 0 Then

    TextWindow.WriteLine(i)

  EndIf

EndFor

Diario de un programador.-Dia 53

26.- Escriba un programa que pida al usuario que ingrese varios valores enteros, que pueden ser positivos o negativos. Cuando se ingrese un cero, el programa debe terminar y mostrar un gráfico de cuántos valores positivos y negativos fueron ingresados:

Ingrese varios valores, termine con cero:

-17

-12

14

-5

-8128

3

-2

-9

1500

-43

0

Positivos: ***

Negativos: *******

TextWindow.Write("Ingresa un numero, cero para finalizar ")

num=TextWindow.ReadNumber()

positivo=0

negativo=0

If num > 0 Then

  positivo = positivo + 1

EndIf

If num < 0 Then

  negativo = negativo + 1

EndIf

While num <> 0

  TextWindow.Write("Ingresa un numero ")

  num = TextWindow.ReadNumber()

  If num > 0 Then

    positivo = positivo + 1

  EndIf

  If num < 0 Then

    negativo = negativo + 1

  EndIf

EndWhile

TextWindow.Write("Positivos: ")

For a = 1 To positivo

  TextWindow.Write("*")

EndFor

TextWindow.WriteLine("")

TextWindow.Write("Negativos: ")

For b = 1 To negativo

  TextWindow.Write("*")

EndFor

TextWindow.WriteLine("")

27.- Escriba un programa que determine la cantidad de dígitos en un número natural ingresado por el usuario:

Ingrese numero: 12345

12345 tiene 5 digitos

TextWindow.WriteLine("Contando digitos")

TextWindow.Write("Ingresa un numero: ")

numero=TextWindow.ReadNumber()

cociente = 0

divisor = 1

contador = 0'para contar los bucles

While cociente <> 1

  contador = contador + 1

  divisor = divisor * 10

  cociente = math.Floor(numero / divisor)'para que entregue nros. Enteros

  

  If cociente = 1 Then

    TextWindow.WriteLine("El numero tiene " + (contador + 1) + " digitos")

  EndIf

' En caso de que el numero ingresado sea de un digito...

If numero < 10 Then

  TextWindow.WriteLine("Tiene un solo digito")

  cociente = 1' para terminar el bucle

EndIf

EndWhile

Diario de un programador.-Dia 54

28.- Un número capicúa  se lee igual de izquierda a derecha y de derecha a izquierda.

Por ejemplo, 141 es capicúa, mientras que 819 no lo es.

Escriba un programa que solicite un número de 3 cifras e indique si es capicúa. Ej:

Ingrese un número: 141

141 es capicúa

TextWindow.WriteLine("Capicua")

TextWindow.Write("Ingresa un numero de 3 cifras ")

numero = TextWindow.ReadNumber()

centena = Math.Floor(numero / 100)

decena = Math.Floor(Math.Remainder(numero,100) / 10)

unidad = Math.Floor(Math.Remainder(Math.Remainder(numero,100),10)/1)

If centena = unidad Then

  TextWindow.WriteLine("Es capicua")

Else

  TextWindow.WriteLine("No es capicua")

EndIf

Diario de un programador.-Dia 55

29.- Pedir un número e indicar si es positivo,  negativo o cero

TextWindow.WriteLine("Positivo o negativo")

TextWindow.Write("Ingresa un numero ")

num = TextWindow.ReadNumber()

If num > 0Then

  TextWindow.WriteLine("Es positivo")

ElseIf num < 0 then

  TextWindow.WriteLine("Es negativo")

Elseif num = 0 Then

  TextWindow.WriteLine("Es un cero")

EndIf

30.- Pedir dos números y decir si uno es múltiplo del otro.

TextWindow.WriteLine("Multiplos?")

TextWindow.Write("Ingresa un numero ")

num1 = TextWindow.ReadNumber()

TextWindow.Write("Ingresa otro numero ")

num2 = TextWindow.ReadNumber()

If Math.Remainder(num2,num1) = 0 Then

  TextWindow.WriteLine(num2 + " es multiplo de " + num1)

ElseIf Math.Remainder(num1,num2) = 0 Then

  TextWindow.WriteLine(num2 + " es multiplo de "+ num1)

Else

  TextWindow.Write("No son multiplos")

EndIf