PROYECTOS





1. Realizar un programa que reciba las medidas de un triangulo y te regrese si es isósceles, escaleno o equilátero.

2. Realizar un programa que regrese las iniciales del mes, el usuario solo proporcionará el numero del mes. Podrás utilizar procedimiento o función.

3. Realizar un programa para jugar al Gato, debemos tomar en cuenta que hay dos jugadores. Primero debe mostrar eltablero.
1
2
3
4
5
6
7
8
9
Después si el usuario X elige la casilla 2 debe mostrarlo de la siguiente manera:
1
X
3
4
5
6
7
8
9
Si el usuario O elige la casilla 4 debe mostrar:
1
X
3
O
5
6
7
8
9



4. El siguiente programa, pide 5 números y calcula los cubos de ellos, los cuales son guardados en un arreglo y son desplegados.

5. Elabore un programa que sume losprimeros 25 números enteros guardados en un vector. Se desea imprimir la lista de números y al final la suma de los mismos.

6. Generar e imprimir un vector de 10 números enteros y encontrar el mayor de ellos. Desplegar el resultado.

7. Dadas dos listas A y B de igual número de elementos, se desea generar e imprimir una lista C conteniendo las sumas: A[i] + B[i] = C[i]

8. Programa que pida a unalumno la cantidad de materias del semestre. Dependiendo de la cantidad de materias, preguntar por la calificación de cada una. Al final mandar a pantalla el promedio total, la cantidad de materias aprobadas y materias reprobadas. Usar arreglos.



9. Programa que permita obtener el mayor de varios números que de el usuario. El usuario especificará la cantidad de números que va a introducir.Usar arreglos (Redim).

Imports System.Console
Module Module1

Sub Main()
Try
Dim VECTOR() As Integer 'METODO DE BORBUJAS SE ORDENA LOS DATOS DE MENOR A MAYOR
Dim CANTNUM As Integer 'PROGRAMA 5
WriteLine("CUANTOS NUMEROS VA INTRODUCIR")
CANTNUM = ReadLine()
ReDim VECTOR(CANTNUM - 1)
For CONT As Integer= 0 To VECTOR.GetUpperBound(0)
WriteLine("DAME EL NUMERO" & CONT + 1)
VECTOR(CONT) = ReadLine()
Next
For I As Integer = 0 To VECTOR.GetUpperBound(0)
If (I < VECTOR.GetUpperBound(0)) Then
If VECTOR(I) > VECTOR(I + 1) Then
Dim a As Integer = VECTOR(I)Dim B As Integer = VECTOR(I + 1)
VECTOR(I) = B
VECTOR(I + 1) = a
End If

End If


10. Programa que permita obtener el mayor, el menor y el promedio de varios números que de el usuario. El usuario especificará la cantidad de números que va a introducir. Usar arreglos.

11. Programa que permita obtener elpromedio de varios números que introduce el usuario. El usuario terminará la lista de números con un 0. Usar arreglos.

12. De la siguiente lista de valores indique cuales son pares y cuales impares.
lista de números – 25, 4, 9, 12, 41, 66, 1
Números pares
….
Números impares
….

13. Pedir dos números al usuario y la operación a realizar con ellos. Las operaciones que se pueden realizar son:Suma, Resta, multiplicación, división o todas. Mostrar en la pantalla el resultado de la operación.
Ej. S. Suma R.Resta M. Multiplicación D. División T. Todas
Indique cual es la opción que quiere que se realice: T
Numero 1: 5
Numero 2: 3
Resultado: 5 + 3 = 85 – 3 = 2
5 * 3 = 15
5 / 3 = 1.66

14. Elaborar un algoritmo que lea una cantidad de horas e imprima su equivalente en minutos, segundos y días. Utilizar un procedimiento

15. Se darán tres dígitos separados de un número, por ejemplo del 147 se dará primero el 1 luego el 4 y luego el 7; del número 73 se dará el 0, luego el 7 y luego el 3. Juntarlos en una variable e...