Capitulo 14 Small Basic. Guia de ejercicios. Parte 1

Diario de un programador.- Dia 41

Al día de hoy, esta guía consta de 38 ejercicios resueltos, pero con el tiempo iré agregando más ejercicios a medida que se me ocurran o si veo algunos en la web que parezcan interesantes de resolver.

1.- Escriba un programa que pida al usuario que escriba su nombre, y luego el programa debe saludarlo.

Ej: El usuario escribe Ximena y el programa responde, Hola Ximena.

TextWindow.Write("Ingresa tu nombre ")

nombre = TextWindow.Read()

TextWindow.WriteLine("Hola "+ nombre)

2.- Escriba un programa que calcule el área de un círculo, preguntando el largo del radio.
Ej: El usuario ingresa 5 y el programa responde, El área es 78,5

TextWindow.Write("Ingresa el radio ")

radio = TextWindow.ReadNumber()

radioCuadrado = Math.Power(radio, 2)

pi = 3.14

area = pi * radioCuadrado

TextWindow.WriteLine("El area del circulo es "+ area)
 

3.- Escriba un programa que calcule el promedio de 5 números ingresados por el usuario:

TextWindow.WriteLine("Calculo de promedio")

suma = 0

total = 0

For i = 1 To 5

  TextWindow.Write("Ingresa el numero ")

  numero = TextWindow.Read()

  suma = suma + numero

EndFor

total = suma / 5

TextWindow.WriteLine("El promedio es " + total)
 

Diario de un programador.- Dia 42

4.- Escriba un programa que convierta de centímetros a pulgadas, preguntando al usuario que ingrese los centímetros. Una pulgada es igual a 2.54 centímetros. 
Ej: El usuario ingresa 5.08 y el programa responde, Son 2 pulgadas

TextWindow.WriteLine("De centimetros a pulgadas")

TextWindow.Write("Ingresa los centimetros ")

centimetro = TextWindow.ReadNumber()

pulgada = centimetro / 2.54

TextWindow.WriteLine("Son " + pulgada + " pulgadas")

  

5.- Escriba un programa que pida al usuario un entero de tres dígitos, y entregue el número con los dígitos en orden inverso:

Ej. El usuario escribe 123 y el programa responde 321

TextWindow.WriteLine("Numero invertido")

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

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))

TextWindow.Write(unidad)

TextWindow.Write(decena)

TextWindow.WriteLine(centena)

Diario de un programador.- Dia 43

6.- Escriba un programa que solicite las longitudes de los  catetos de un triángulo rectángulo, y que responda el largo de la hipotenusa  del triángulo, dado por el teorema de Pitágoras: c2=a2+b2. Por ejemplo si el usuario escribe como catetos 6 y 8, el programa responde que la hipotenusa es 10

TextWindow.WriteLine("Pitagoras")

TextWindow.Write("Ingresa el primer cateto ")

catetoA = TextWindow.ReadNumber()

cA2 = Math.Power(catetoA, 2)

TextWindow.Write("Ingresa el segundo cateto ")

catetoB = TextWindow.ReadNumber()

cB2 = Math.Power(catetoB,2)

sumaCatetos = cA2 + cB2

hipotenusa = Math.SquareRoot(sumaCatetos)

TextWindow.WriteLine("La hipotenusa es " + hipotenusa)

7.- Escriba un programa que entregue la parte decimal de un número real ingresado por el usuario.
Ej: El usuario escribe 1,5 y el programa responde, La parte decimal es 0,5

TextWindow.WriteLine("Parte decimal")

TextWindow.Write("Ingresa un numero real ")

real = TextWindow.ReadNumber()

decimal = real - Math.Floor(real)

TextWindow.WriteLine("La parte decimal es " + decimal)

Diario de un programador.- Dia 44

8.- Escriba un programa que determine si el número entero ingresado por el usuario es par o impar.

TextWindow.WriteLine("Par o impar")

TextWindow.Write("Ingresa un numero ")

numero = TextWindow.ReadNumber()

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

  TextWindow.WriteLine("Es par")

Else

  TextWindow.WriteLine("Es impar")

EndIf

9.- Escriba un programa que indique si un año es bisiesto o no

TextWindow.WriteLine("bisiesto")

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

numero = TextWindow.ReadNumber()

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

  TextWindow.WriteLine("Es bisiesto")

Else

  TextWindow.WriteLine("No es bisiesto")

EndIf

Diario de un programador.- Dia 45

10.- Escriba un programa que pida dos números enteros y que calcule la división, indicando si la división es exacta o no.

TextWindow.WriteLine("Division exacta")

TextWindow.Write("Ingresa el dividendo ")

dividendo = TextWindow.ReadNumber()

TextWindow.Write("Ingresa el divisor ")

divisor = TextWindow.ReadNumber()

If Math.Remainder(dividendo, divisor) = 0 Then

  TextWindow.WriteLine("La division es exacta")

Else

  TextWindow.WriteLine("La division no es exacta") 

EndIf

11.- Escriba un programa que pida al usuario dos palabras, y que indique cuál de ellas es la más larga y por cuántas letras lo es.

TextWindow.WriteLine("Cuenta letras")

TextWindow.Write("Ingresa una palabra ")

primera = TextWindow.Read()

cuenta1 = Text.GetLength(primera)

TextWindow.Write("Ingresa otra palabra ")

segunda = TextWindow.Read()

cuenta2 = Text.GetLength(segunda)

mayor = Math.Max(cuenta1,cuenta2)

If mayor = cuenta1 Then

  palabraMayor = primera

Else

  palabraMayor = segunda

EndIf 

diferencia = math.Abs(cuenta1 - cuenta2)

TextWindow.WriteLine(palabraMayor + " es mayor por " + diferencia + " letras")

Esto es por ahora, en la parte 2 se agregarán más ejercicios. Hasta la próxima.

Gustavo J. Cerda Nilo

Octubre 2015, última modificación Abril 2016