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

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

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

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