La practica hace al Maestro

La Practica hace al Maestro 27-ene-2006
Siempre que hacemos arte desvelamos al verdadero yo; ese yo que incluye las otras partes del verdadero ser y al que permitimos que hable. (Carbonetti, 2000:46)

La creatividad es tu forma especial de hacer las cosas, de entregarte. Los seres humanos pretendemos más que existir. Tenemos grandes capacidades de pensamiento e imaginación. Desgraciadamente, muchas veces las vamos perdiendo al desanimarnos cuando nos dicen: “eso no está bien”, “qué mal cantas”, “ese dibujo parece de un niño de cuatro años”, etc. No dejes que te suceda esto.

Si te gusta algo, hazlo por el placer de hacerlo. Si quieres triunfar en algún arte o deporte, práctica todos los días. Estudia. Prepárate. Sueña y busca cómo hacer lograr que eso sea realidad. Si quieres ser escritor, escribe. Si quieres ser pintor, pinta. Y así con todo lo que te propongas, pero no te quedes lamentándote en un rincón sobre lo que podrías ser y no eres. PRACTICA, porque la práctica hace al maestro. Nadie nace sabiendo.

Liga

Ejemplo de Acumuladores

Antes de programar es importante tener en mente que es lo que van a hacer. No pueden sentarse a escribir código sin saber cual va a ser el resultado. Lo mas recomendable es hacer diagramas de flujo Muchas veces por la carrera de empezar ya a programar no lo hacemos si no hasta que vemos que nuestra lógica no resulto.

Ejemplo de Acumuladores
Hacer un programa que nos permita acumular en una variable la captura de 5 numeros.


Module Module1
Sub Main ()
Dim captura As Integer
Dim Acumulador
Dim x As Integer

For x=1 To 5
caputura = Console.ReadLine ()
Acumulador = Acumulador + captura
Next

Console.WriteLne ("La suma de los datos caputurados es:{0}", Acumulador)
Console.ReadLine ()
End Sub
End Module

En este programa la variable "Acumulador" guarda el valor anterior y le suma el valor de la captura.

Ejemplo 2:
Si quisieramos sacar el promedio de los datos capturados, ¿Que es lo que nos haria falta? Un contador no? (eso si no supieramos cuantos valores tuvieramos que capturar)

Do While opcion = "y"
Console.WriteLine ("Dame un numero: ")
numero = Console.ReadLine ()
Acumulador = Acumulador + numero
x++
Console.WriteLine ("Tienes mas numeros que escribir s/n?")
opcion = Console.ReadLine ()
Loop

Console.WriteLine ("El contenido de Acumulador: {0} Se hicieron {1} capturas",Acumulador, x)
Console.WriteLine ("El promedio fue: {0}, Acumulador/x)

En esta ocacion "x" funciona como contador. Acumulador sigue haciendo su trabajo.

Nota: Les recomiendo que todos los programas los escriban ustedes mismos, y no le den el famoso Copy&Paste.

Tarea III Análisis de Tiempo

Análisis de Tiempo de traslado al centro de estudios

Enero 24 de 2006

Se requiere saber el tiempo mínimo, máximo y promedio y el lugar de origen que le toma a los alumnos trasladarse a su centro de estudios por cada medio de transporte. Tomando en cuenta solo dos (automóvil y autobús).

Hacer un programa que nos permita conocer el tiempo mínimo, el tiempo máximo y el tiempo promedio y el lugar de partida de los dos primeros resultados (mínimo y máximo).
El programa mostrara dos tipos de resultados, a) los que viajan en automóvil y b) los que viajan en autobús.

Los resultados se mostrarán en pantalla al no haber mas datos que captar.

El resultado debe tener el formato siguiente:

Para los que viajan en automóvil:
Tiempo mínimo: Resultado
Lugar de partida: Resultado
Tiempo máximo: Resultado
Lugar de partida: Resultado
Promedio de tiempo de traslado: Resultado


Para los que viajan en autobús:
Tiempo mínimo: Resultado
Lugar de partida: Resultado
Tiempo máximo: Resultado
Lugar de partida: Resultado
Promedio de tiempo de traslado: Resultado

Tarea II Tabla de multiplicar

Tablas de Multiplicar

Hacer un programa que genere tablas de multiplicar. El programa debe de pedir un valor inicial y un valor final. Con el valor inicial debera empezar la tabla y con el final hasta donde llegará la tabla.

Ej. Si le doy como número inicial un 3 y como número final un 5, solo desplegará las tablas 3, 4 y 5.


El formato será el siguiente:

(en caso de empezar con 1)

1 X 1 = 1
1 X 2 = 2
1 X 3 = 3
1 X 4 = 4
1 X 5 = 5
1 X 6 = 6
1 X 7 = 7
1 X 8 = 8
1 X 9 = 9
1 X 10 = 10

2 X 1 = 2
2 X 2 = 4
2 X 3 = 6
2 X 4 = 8
2 X 5 = 10
2 X 6 = 12
2 X 7 = 14
2 X 8 = 16
2 X 9 = 18
2 X 10 = 20

...

Programa:

Module Module1
Sub Main()
Dim tabla As Integer, multiplicador As Integer
Dim val_inic As Integer, val_final As Integer
Dim Num_mul As Integer
Console.WriteLine("Dame el valor inicial: ")
val_inic = Console.ReadLine()
Console.WriteLine("Dame el valor final:")
val_final = Console.ReadLine()
For tabla = val_inic To val_final
For multiplicador = 1 To 10
Console.WriteLine("{0} X {1} = {2} ", tabla, multiplicador, tabla * multiplicador)
If multiplicador = 10 Then
Console.WriteLine(" ")
End If
Next
Next
Console.ReadLine()
End Sub
End Module






Nota: Usar ciclos for anidados o Do While (al criterio del alumno)