Capitulo 14 Small Basic. Guia de ejercicios. Parte 4
31.- Pedir
una nota de 0 a 10 y mostrarla de la forma: Insuficiente, Suficiente, Bien...Si
es menor a 5 será “Suficiente”, si es menor a 7 será “Suficiente” y si es menor
o igual a 10 será “Bien”
TextWindow.WriteLine("Notas")
TextWindow.Write("Ingresa una nota de 0 a 10: ")
num1 = TextWindow.ReadNumber()
If num1 < 5 Then
TextWindow.WriteLine("Insuficiente")
ElseIf num1 < 7 then
TextWindow.WriteLine("Suficiente")
Elseif num1 <= 10 then
TextWindow.WriteLine("Bien")
EndIf
32.- Pedir el día, mes y año de una fecha e indicar si
la fecha es correcta. Con meses de 28, 30 y 31 días. Es decir, el programa no
puede aceptar números mayores a 31 para los días del mes (cuando corresponda a
los meses de 31 días) así como tampoco puede aceptar números mayores a 12 para
los meses del año
TextWindow.WriteLine("dia, mes y año")
TextWindow.Write("Ingresa el dia: ")
dia = TextWindow.ReadNumber()
TextWindow.Write("Ingresa el mes: ")
mes = TextWindow.ReadNumber()
TextWindow.Write("Ingresa el año: ")
anio = TextWindow.ReadNumber()
If dia <= 30 and mes = 4 or dia <= 30 and mes = 6 Then
TextWindow.WriteLine("Fecha correcta")
EndIf
If dia <= 30 and mes = 9 or dia <= 30 and mes = 11 Then
TextWindow.WriteLine("Fecha
correcta")
EndIf
If dia <= 31 and mes = 1 or dia <= 31 and mes = 3 Then
TextWindow.WriteLine("Fecha
correcta")
EndIf
If dia <= 31 and mes = 5 or dia <= 31 and mes = 7 Then
TextWindow.WriteLine("Fecha correcta")
EndIf
If dia <= 31 and mes = 8 or dia <= 31 and mes = 10 Then
TextWindow.WriteLine("Fecha
correcta")
EndIf
If dia <= 31 and mes = 12 Then
TextWindow.WriteLine("Fecha
correcta")
EndIf
If dia <= 28 and mes = 2 Then
TextWindow.WriteLine("Fecha
correcta")
EndIf
Diario
de un programador.-Dia 56
33.- Pedir
un número de 0 a 99 y mostrarlo escrito. Por ejemplo, para 56 mostrar:
cincuenta y seis.
TextWindow.WriteLine("numero a texto")
TextWindow.Write("Ingresa un numero ")
num = TextWindow.ReadNumber()
sobreD = ""
dec = ""
unidad
= ""
'aqui se me ocurre separar el numero para tratar de no
hacer tan largo el codigo
decena = Math.Floor(num / 10)
unidad = Math.Floor(Math.Remainder(num,10)/1)
If unidad
= 1 Then
uni = "uno"
ElseIf unidad
= 2 then
uni = "dos"
elseif unidad
= 3 then
uni = "tres"
elseif unidad
= 4 then
uni = "cuatro"
elseif unidad
= 5 then
uni = "cinco"
elseif unidad
= 6 then
uni = "seis"
elseif unidad
= 7 then
uni = "siete"
elseif unidad
= 8 then
uni = "ocho"
elseif unidad
= 9 then
uni = "nueve"
EndIf
'De diez a diecinueve
If decena
= 1 And unidad = 0 Then
sobreD = "diez"
EndIf
If decena = 1 and unidad = 1 then
sobreD = "once"
EndIf
If decena = 1 and unidad = 2 then
sobreD = "doce"
EndIf
If decena = 1 and unidad = 3 then
sobreD = "trece"
EndIf
If decena = 1 and unidad = 4 then
sobreD = "catorce"
EndIf
If decena
= 1 and unidad = 5 then
sobreD = "quince"
EndIf
If decena
= 1 and unidad = 6 then
sobreD = "dieciseis"
EndIf
If decena
= 1 and unidad = 7 then
sobreD = "diecisiete"
EndIf
If decena
= 1 and unidad = 8 then
sobreD = "dieciocho"
EndIf
If decena = 1 and unidad = 9 then
sobreD = "diecinueve"
EndIf
If decena = 2 Then
dec = "veinte"
ElseIf decena = 3 then
dec = "treinta"
ElseIf decena = 4 then
dec = "cuarenta"
ElseIf decena = 5 then
dec = "cincuenta"
ElseIf decena = 6 then
dec = "sesenta"
ElseIf decena = 7 then
dec = "setenta"
ElseIf decena = 8 then
dec = "ochenta"
ElseIf decena = 9 then
dec = "noventa"
EndIf
'Aqui tratare de mostrar el resultado
If num < 10
Then
TextWindow.WriteLine("El
numero es: "+ unidad)
ElseIf num < 20
then
TextWindow.WriteLine("El
numero es: "+ sobreD)
Elseif num < 100 then
If math.Floor(Math.Remainder(num,10)) = 0 then
TextWindow.WriteLine("El
numero es: "+ dec)
Else
TextWindow.WriteLine("El
numero es: " + dec +" y "+ uni)
EndIf
EndIf
Diario
de un programador.-Dia 57
34.- Leer un número y mostrar su cuadrado, repetir el
proceso hasta que se introduzca un número negativo.
TextWindow.WriteLine("Cuadrados")
TextWindow.WriteLine("Finaliza ingresando un número negativo")
num=0
Whilenum>=0
TextWindow.Write("Ingresa un numero ")
num=TextWindow.ReadNumber()
Ifnum<0Then
Gotosalir
EndIf
cuadrado=Math.Power(num,2)
TextWindow.WriteLine(num+" al cuadrado es
"+cuadrado)
EndWhile
salir:
35.- Leer un número e indicar si es positivo o negativo.
El proceso se repetirá hasta que se introduzca un 0.
TextWindow.WriteLine("Positivos y
negativos")
numero = 1
While numero <> 0
TextWindow.Write("Ingresa un numero, ingresa cero para finalizar: ")
numero = TextWindow.ReadNumber()
If numero >
0 Then
TextWindow.WriteLine("Ingresaste un numero positivo")
EndIf
If numero < 0 Then
TextWindow.WriteLine("Ingresaste un numero negativo")
EndIf
EndWhile
36.- Leer
números hasta que se introduzca un 0. Para cada uno indicar si es par o impar
TextWindow.WriteLine("Numeros pares")
numero=1
Whilenumero<>0
TextWindow.Write("Ingresa un
numero, ingresa cero para finalizar: ")
numero=TextWindow.ReadNumber()
Ifnumero=0Then
Gotosalir
EndIf
IfMath.Floor(Math.Remainder(numero,2))=0Then
TextWindow.WriteLine("El numero es par")
Else
TextWindow.WriteLine("El numero es
impar")
EndIf
EndWhile
salir:
Diario
de un programador.-Dia 58
37.- Pedir
números hasta que se teclee uno negativo, y mostrar cuántos números se han
introducido.
TextWindow.WriteLine("Cuenta
numeros")
numero = 1
contador = 0
While numero > 0
TextWindow.Write("Ingresa un numero, ingresa negativo para finalizar:
")
38.-
Escribir un programa que calcule el mínimo común múltiplo de tres números
'minimo comun multiplo
'primero busco el numero mayor
TextWindow.WriteLine("Ingresa
3 numeros: ")
mayor = 0
casilla = 0
For i = 1 To 3
TextWindow.Write(i + ": ")
num[i] = TextWindow.ReadNumber()
If num[i] > mayor Then
mayor = num[i]
EndIf
EndFor
interruptor = 0
multiplicador = 0
multiplo = 0
While interruptor = 0
contador = 0
multiplicador = multiplicador
+ 1
multiplo = mayor * multiplicador
For i = 1 To 3
If Math.Floor(Math.Remainder(multiplo,num[i])) = 0 Then
contador = contador + 1
EndIf
EndFor
If contador = 3 Then
interruptor = 1'para salir
del while
EndIf
EndWhile
TextWindow.WriteLine("El
M.C.M. es: "+ multiplo)
'divido
el nro mayor por todos los demas y veo si el resto es cero, si es cero entonces
son
'multiplos.
Ej:
'si
ingreso los nros: 2,4,6. El mayor es 6 y lo divido por todos.Con cada resto cero agrego
'un
valor a contador. Si acumulo 3 contadores entonces los 3 numeros son divisores
y salgo
'del
bucle. Como 4 no es divisor de 6, entonces aumento un valor en la variable
multiplo
'entonces
se verifica 6 * 2, o sea 12 y veo si 12 es divisible por 12, 2 y por 4. Como es
cierto
'entonces 12 es el minimo comun multiplo
Esto es todo en cuanto a la introducción a la programación. Espero que estos 14 capítulos hayan servido para guiar a más de alguno en este mundo de los códigos. En los próximos capítulos iniciaré los tutoriales para los lenguajes de C, C++, Java, Python, PHP y por supuesto Small Basic, en el cual empezaré a mostrar como crear programas gráficos, dando inicio a los eventos.
Gustavo J. Cerda Nilo Octubre 2015, última modificación Abril 2016
Ejercicio 2 – Unidad Didáctica 2: Condiciones y Bucles “Actividad aeróbica” Escribir un programa en Small Basic que indique al usuario si se encuentra dentro de las recomendaciones de actividad física aeróbica semanal. Para adultos se recomiendan 300 minutos de actividad física semanales. Para niños se recomiendan 60 minutos de actividad física diaria. El programa debe solicitar al usuario la cantidad de minutos semanales de actividad física realizada. El programa deberá devolver por pantalla la cantidad de minutos de actividad física diaria, semanal y mensual. Además, deberá advertir por pantalla si el usuario (de acuerdo a su edad), está por debajo de los valores recomendados.
Ejercicio 2 – Unidad Didáctica 2: Condiciones y Bucles
ResponderEliminar“Actividad aeróbica”
Escribir un programa en Small Basic que indique al usuario si se encuentra dentro de las
recomendaciones de actividad física aeróbica semanal.
Para adultos se recomiendan 300 minutos de actividad física semanales.
Para niños se recomiendan 60 minutos de actividad física diaria.
El programa debe solicitar al usuario la cantidad de minutos semanales de actividad
física realizada.
El programa deberá devolver por pantalla la cantidad de minutos de actividad física
diaria, semanal y mensual.
Además, deberá advertir por pantalla si el usuario (de acuerdo a su edad), está por
debajo de los valores recomendados.
ALGUIEN SABE COMO SE HACE
ResponderEliminar