Blog iniciado por Ricardo Rodríguez, profesor de Tecnología del I.E.S. Victoria Kent, con el objetivo de establecer con sus alumnos un canal de intercambio de información, dudas, opiniones, etc.
martes, 16 de diciembre de 2008
miércoles, 3 de diciembre de 2008
Puentes de spaghettis
Los puentes de pajitas que construimos en el taller aguantan muchas veces su propio peso, algunos soportan todas las pesas que tenemos, un total de 3700 gramos. Como ya sabéis el truco es construir estructuras triangulares. En México realizan una práctica parecida pero con spaghettis, podéis comprobarlo en el siguiente video:
lunes, 1 de diciembre de 2008
Hoja de actividades Nº 3 - Bachillerato
Ya está a vuestra disposición la Hoja de actividades Nº 3. En este caso se trata de redactar un breve artículo de opinión. Recuerda que debes reflejar tus conclusiones personales empleando tus propias palabras. La fecha límite para la entrega del trabajo es el jueves día 11 de diciembre, con la posiblidad de remitirla a través del siguiente correo electrónico: defcondos@hotmail.com
Descargar Hoja Nº 3
Descargar Hoja Nº 3
martes, 25 de noviembre de 2008
Animales sin esqueleto o estructura - El pulpo y el agujero
Bueno chavales lo prometido es deuda, aquí os dejo un video donde podéis comprobar que un pulpo no tiene estructura y por tanto puede pasar por un orificio que sea un poquito más grande que uno de sus ojos, que es la parte dura más grande que poseen los pulpos.
Jenifer, ¿ahora te lo crees?
Jenifer, ¿ahora te lo crees?
martes, 21 de octubre de 2008
1º - ESO - Trabajo de la madera
Dentro de los materiales de uso técnico destaca por su especial importancia la madera, material ampliamente utilizado por el hombre en multitud de aplicaciones y objetos.
Ampliaremos los conocimientos acerca de este material mediante el desarrollo de la WebQuest de la madera (haz click aquí para acceder a la WebQuest). Donde a partir de la noticia de la venta de un violín por 3,5 millones de euros se inicia un proceso de investigación acerca de la construcción de violines y del principal material utilizado: la madera.
El formato de entrega es abierto, ya puede ser entregado en formato papel o informático, ya sea documento de Word o PowerPoint. Aquellos que lo deseen pueden remitir su trabajo al siguiente correo electrónico: defcondos@hotmail.com
Recordad que la fecha límite de entrega de los trabajos realizados es el 25 de noviembre, y no olvidéis entregar la tabla de autoevaluación.
lunes, 13 de octubre de 2008
2ª hoja de actividades - TIC - Bachillerato
ARTÍCULO DIVULGATIVO - LOS ORDENADORES CUÁNTICOS
Hola a todo el mundo, ahora toca cambiar la dinámica de trabajo en relación con las hojas de actividades, ya que se trata realizar un pequeño ejercicio de investigación para poder elaborar un artículo divulgativo. Este tipo de actividades se inició el pasado curso con el fin de contribuir con la edición del periódico de nuestro centro.
En este caso el tema propuesto tiene que ver con la física cuántica y una de sus más esperadas aplicaciones, los futuros ordenadores cuánticos.
El artículo no debe ser demasiado extenso, con una cara de un folio (con un tamaño de letra normal) debería ser suficiente, siempre y cuando sea redactado con tus propias palabras. No se trata de completar un trabajo de 20 folios. Recuerda que debes decargarte la plantilla que te servirá de guía.
Todas las instrucciones y orientaciones podrás encontrarlas en la Hoja de actividades Nº 2. La fecha límite de entrega es el 21 de octubre, para ello puedes remitir tu trabajo a la siguiente dirección de correo electrónico: defcondos@hotmail.com
Hola a todo el mundo, ahora toca cambiar la dinámica de trabajo en relación con las hojas de actividades, ya que se trata realizar un pequeño ejercicio de investigación para poder elaborar un artículo divulgativo. Este tipo de actividades se inició el pasado curso con el fin de contribuir con la edición del periódico de nuestro centro.
En este caso el tema propuesto tiene que ver con la física cuántica y una de sus más esperadas aplicaciones, los futuros ordenadores cuánticos.
El artículo no debe ser demasiado extenso, con una cara de un folio (con un tamaño de letra normal) debería ser suficiente, siempre y cuando sea redactado con tus propias palabras. No se trata de completar un trabajo de 20 folios. Recuerda que debes decargarte la plantilla que te servirá de guía.
Todas las instrucciones y orientaciones podrás encontrarlas en la Hoja de actividades Nº 2. La fecha límite de entrega es el 21 de octubre, para ello puedes remitir tu trabajo a la siguiente dirección de correo electrónico: defcondos@hotmail.com
jueves, 2 de octubre de 2008
Curso 2008-09. Comenzamos las actividades en Bachillerato
En este nuevo curso 2008-09 damos la bienvenida a los alumnos de 1º de Bachillerato que han elegido como materia optativa "Tecnologías de la Información y la Comunicación".
Como estáis deseando empezar a trabajar ya podéis descargaros la hoja de actividades Nº 1. Recordad que la fecha límite para entregarla es el día 13 de octubre y que podéis hacerlo en formato papel o informático. Esta última opcion a través del siguiente correo electrónico: defcondos@hotmail.com
Pincha aquí para descargar la Hoja de actividades Nº 1
Como estáis deseando empezar a trabajar ya podéis descargaros la hoja de actividades Nº 1. Recordad que la fecha límite para entregarla es el día 13 de octubre y que podéis hacerlo en formato papel o informático. Esta última opcion a través del siguiente correo electrónico: defcondos@hotmail.com
Pincha aquí para descargar la Hoja de actividades Nº 1
sábado, 7 de junio de 2008
Solución de la Hoja Problemas Nº 8
Function Esprimo(Numero As Long) As Booelan
aaaa
'Como comentamos en clase simplificamos la función introduciendo directamente los diez primeros números primos
Dim Primos(1 to 10) as Integer
Primos(1) = 2
Primos(2) = 3
Primos(3) = 5
Primos(4) = 7
Primos(5) = 11
Primos(6) = 13
Primos(7) = 17
Primos(8) = 19
Primos(9) = 23
Primos(10) = 29
'Comenzamos a comprobar divisibilidad con los números primos
Dim Contador as Integer
Contador = 1
Dim Continuar as Booelan
Continuar = True
EsPrimo = True 'Suponemos inicialmente que el número es primo
Do While Continuar = True
If Numero Mod Primos(Contador) = 0 Then
Esprimo = False
Continuar = False
End if
If Primos(Contador) > Sqr(Numero) Then
Continuar = False
End if
Contador = Contador + 1
Loop
End Function
Sub Primos(NumPrimos() As Integer)
NumPrimos(1) = 2
Dim ContadorPrimos As Integer
ContadorPrimos = 1
Dim I as Integer
For I = 3 to 100
Dim Continuar, EsPrimo As Booelan
Dim Contador As Integer
Contador = 1
Continuar = True
EsPrimo = True
Do While Continuar = True
If I Mod NumPrimos(Contador) = 0 Then
Esprimo = False
Continuar = False
End if
If NumPrimos(Contador) > Sqr(I) Then
Continuar = False
End if
Loop
If EsPrimo = True Then
ContadorPrimos = ContadorPrimos + 1
End if
Next I
End Sub
Function AreaRectangulo (Diagonal As Single, Angulo As Single) As Single
'Convertirmos el Angulo de grados a radianes
Angulo = Angulo * 3,14159 / 180
AreaRectangulo = Diagonal * cos(Angulo) * Diagonal * sin(Angulo)
End Function
Sub PonerCeros(Datos() As Byte)
Dim I, J As Integer
For I = 1 to 5
For J = 1 to 10
Datos(I,J) = 0
Next J
Next I
End Sub
Function Moda(Datos() As Single) As Single
Dim Repeticiones1, Repeticiones2 I, J As Integer
Repeticiones1 = 0
Repeticiones2 = 0
For I = 1 to 10
Repeticiones1 = 0
For J = 1 to 10
If Datos(I) = Datos(J) Then
Repeticiones1 = Repeticiones1 + 1
End If
Next J
If Repeticiones1 > Repeticiones2 Then
Repeticiones2 = Repeticiones1
Moda = Datos(I)
End if
Next I
End Function
aaaa
'Como comentamos en clase simplificamos la función introduciendo directamente los diez primeros números primos
Dim Primos(1 to 10) as Integer
Primos(1) = 2
Primos(2) = 3
Primos(3) = 5
Primos(4) = 7
Primos(5) = 11
Primos(6) = 13
Primos(7) = 17
Primos(8) = 19
Primos(9) = 23
Primos(10) = 29
'Comenzamos a comprobar divisibilidad con los números primos
Dim Contador as Integer
Contador = 1
Dim Continuar as Booelan
Continuar = True
EsPrimo = True 'Suponemos inicialmente que el número es primo
Do While Continuar = True
If Numero Mod Primos(Contador) = 0 Then
Esprimo = False
Continuar = False
End if
If Primos(Contador) > Sqr(Numero) Then
Continuar = False
End if
Contador = Contador + 1
Loop
End Function
Sub Primos(NumPrimos() As Integer)
NumPrimos(1) = 2
Dim ContadorPrimos As Integer
ContadorPrimos = 1
Dim I as Integer
For I = 3 to 100
Dim Continuar, EsPrimo As Booelan
Dim Contador As Integer
Contador = 1
Continuar = True
EsPrimo = True
Do While Continuar = True
If I Mod NumPrimos(Contador) = 0 Then
Esprimo = False
Continuar = False
End if
If NumPrimos(Contador) > Sqr(I) Then
Continuar = False
End if
Loop
If EsPrimo = True Then
ContadorPrimos = ContadorPrimos + 1
End if
Next I
End Sub
Function AreaRectangulo (Diagonal As Single, Angulo As Single) As Single
'Convertirmos el Angulo de grados a radianes
Angulo = Angulo * 3,14159 / 180
AreaRectangulo = Diagonal * cos(Angulo) * Diagonal * sin(Angulo)
End Function
Sub PonerCeros(Datos() As Byte)
Dim I, J As Integer
For I = 1 to 5
For J = 1 to 10
Datos(I,J) = 0
Next J
Next I
End Sub
Function Moda(Datos() As Single) As Single
Dim Repeticiones1, Repeticiones2 I, J As Integer
Repeticiones1 = 0
Repeticiones2 = 0
For I = 1 to 10
Repeticiones1 = 0
For J = 1 to 10
If Datos(I) = Datos(J) Then
Repeticiones1 = Repeticiones1 + 1
End If
Next J
If Repeticiones1 > Repeticiones2 Then
Repeticiones2 = Repeticiones1
Moda = Datos(I)
End if
Next I
End Function
martes, 20 de mayo de 2008
Hoja de problemas Nº 9 - Bachillerato
Aquí os dejo la hoja de actividades Nº 9, que debe ser entregada antes del miércoles día 28 de mayo. Para cualquier duda o aclaración no dudéis en hacer comentarios en esta entrada del blog, serán atendidas en breve.
Hoja de actividades Nº 9
Hoja de actividades Nº 9
Hoja de problemas Nº 9 - Bachillerato
Ya podéis descargaros la hoja de actividades Nº 9, os recuerdo que debe ser entregada antes del miércoles día 28 de mayo. Para cualquier duda o aclaración no dudéis en hacer comentarios en esta entrada del blog, serán atendidas en breve.
jueves, 15 de mayo de 2008
Solución de la Hoja Nº 7 - Tecnología de la Información
Pues nada, aquí van las soluciones de los 5 ejercicios, espero que todo el mundo identifique dónde ha fallado, para que no vuelva a ocurrir.
Function SumaImpares(Final As Integer) As Long
___Dim I As Integer
___Dim Suma As Long
___Suma = 0
___For I = 1 to Final Step 2
______Suma = Suma + I
___Next I
___SumaImpares = Suma
End Function
Function ObtenerMayor(Datos() As Single) As Single
___Dim I As Integer
___Dim Mayor as Single
___Mayor = Datos(1)
___For I = 2 to 100
______If Datos(I) > Mayor Then
_________Mayor = Datos(I)
______End if
___Next I
___ObtenerMayor = Mayor
End Function
Function VolumenCilindro(Radio As Single, Altura As Single) As Double
___VolumenCilindro = (3,14159*Radio^2)*Altura
End Function
Function MediaAritmetica(Valores() As Single) As Single
___Dim I As Intger
___Dim Suma As Double
___Suma = 0
___For I = 1 to 500
______Suma = Suma + Valores(I)
___Next I
___MediaAritmetica = Suma/500
End Function
Sub OrdenaBurbuja(Datos() As Single, Numero As Integer)
___Dim I, J AS Integer
___For J = 2 To Numero
______For I = Numero To J Step -1
_________If Datos(I) > Datos(I-1) Then
____________Dim Aux As Single
____________Aux = Datos(I)
____________Datos(I) = Datos(I-1)
____________Datos(I-1) = Aux
_________End If
______Next I
___Next J
End Sub
Function SumaImpares(Final As Integer) As Long
___Dim I As Integer
___Dim Suma As Long
___Suma = 0
___For I = 1 to Final Step 2
______Suma = Suma + I
___Next I
___SumaImpares = Suma
End Function
Function ObtenerMayor(Datos() As Single) As Single
___Dim I As Integer
___Dim Mayor as Single
___Mayor = Datos(1)
___For I = 2 to 100
______If Datos(I) > Mayor Then
_________Mayor = Datos(I)
______End if
___Next I
___ObtenerMayor = Mayor
End Function
Function VolumenCilindro(Radio As Single, Altura As Single) As Double
___VolumenCilindro = (3,14159*Radio^2)*Altura
End Function
Function MediaAritmetica(Valores() As Single) As Single
___Dim I As Intger
___Dim Suma As Double
___Suma = 0
___For I = 1 to 500
______Suma = Suma + Valores(I)
___Next I
___MediaAritmetica = Suma/500
End Function
Sub OrdenaBurbuja(Datos() As Single, Numero As Integer)
___Dim I, J AS Integer
___For J = 2 To Numero
______For I = Numero To J Step -1
_________If Datos(I) > Datos(I-1) Then
____________Dim Aux As Single
____________Aux = Datos(I)
____________Datos(I) = Datos(I-1)
____________Datos(I-1) = Aux
_________End If
______Next I
___Next J
End Sub
miércoles, 14 de mayo de 2008
1º Bachillerato - Hoja de actividades Nº 8
Ya podéis descargaros la hoja de actividades Nº 8, os recuerdo que debe ser entregada antes del miércoles día 21 de mayo. Para cualquier duda o aclaración no dudéis en hacer comentarios en esta entrada del blog, serán atendidas en breve.
Hoja de Problemas Nº 8
Hoja de Problemas Nº 8
Suscribirse a:
Entradas (Atom)