HOJA DE ACTIVIDADES DE TECNOLOGÍAS DE LA INFORMACIÓN Programación en Basic
Profesor: Ricardo Rodríguez García
HOJA Nº 8
Fecha: 13 de mayo de 2008
1º.- Define y diseña la función Funtcion EsPrimo(Numero As Long) As Boolean que devuelve True si el valor que almacena la variable de entrada Numero es un número primo, en caso contrario la función debe devolver False. 2º.- Define y diseña el procedimiento Sub Primos(NumPrimos() As Integer), que sitúa en la matriz NumPrimos los números primos del 1 al 100. 3º.- Define y diseña la función Function AreaRectangulo(Diagonal as Single, Angulo as Single) as Single que recibe como la parámetro la longitud de la diagonal de un rectángulo, así como el ángulo que forma dicha diagonal con uno de los lados del mismo y devuelve el área del mismo. 4º.- Define y diseña el procedimiento Sub PonerCeros(Datos() As Byte) que rellena con el valor 0 la matriz bidimensional Datos compuesta por un total de 50 elementos distribuidos en 5 filas x 10 columnas. 5º.- En estadística la moda es el valor que aparece con más frecuencia en un conjunto dado de números. Por ejemplo, en el conjunto {3,4,5,6,6,7,10,13} la moda es 6. Define y diseña la función Function Moda(Datos() As Single) As Single que recibe como parámetro de entrada una matriz de 10 números “Single” y devuelve la moda de dicha colección de datos.
ACERTIJO: Tres hombres inteligentes, postulantes para un trabajo, parecen ser iguales en todos los atributos pertinentes, por lo que el empleador potencial - también hombre inteligente - les plantea un problema sencillo; el empleo, les dice, será para el primer hombre postulante que lo resuelva. En la frente de cada hombre se pone una marca. A los tres se les dice que cada uno tiene una marca negra o una marca blanca, y que cada uno ha de alzar la mano si ve una marca negra en la frente de cualquiera de los otros dos. El primero en decir qué color tiene él mismo y cómo llegó a obtener su respuesta, tendrá el empleo. Cada hombre alzó la mano y, después de algunos segundos, un hombre se presentó con la respuesta; ¿de qué color era su marca y cómo lo resolvió?