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
