Ejercicios De Programacion Digital.docx

Ejercicio #16 Module Module1 Sub Main() Dim Dim Dim Dim Dim

vContinuar As Boolean vNumero As Integer vInicio As Integer vFin As Integer vMensaje As String

vContinuar = True vNumero = 0 While vContinuar = True And vNumero < 200 vInicio = vNumero + 1 vFin = vNumero + 20 For Mostrar = vInicio To vFin Console.WriteLine(Mostrar) Next vNumero = vFin Console.Write("Desea Consinuar (s/n)") vMensaje = Console.ReadLine

If vMensaje = "n" Then vContinuar = False Else Console.Clear() End If End While

End Sub End Module

Ejercicio #17 Module Module1 Sub Main() Dim Dim Dim Dim

vSumaPares As Double vSumaImpares As Double vCantidadPares As Double vCantidadImpares As Double

vSumaPares = 0 vSumaImpares = 0 vCantidadPares = 0 vCantidadImpares = 0 For Numero = 1 To 200 If (Numero Mod 2) = 0 Then vCantidadPares = vCantidadPares + 1 vSumaPares = vSumaPares + Numero Else vCantidadImpares = vCantidadImpares + 1 vSumaImpares = vSumaImpares + Numero End If Next Console.WriteLine("La Console.WriteLine("La Console.WriteLine("La vCantidadPares) Console.WriteLine("La vCantidadImpares) Console.Read()

End Sub End Module

Suma de los Numeros Pares es: " & vSumaPares) Suma de los Numeros Impares es: " & vSumaImpares) Media de los Numeros Pares es: " & vSumaPares / Media de los Numeros Impares es: " & vSumaImpares /

Ejercicio #18 Module Module1 Sub Main() Dim vSuma As Double vSuma = 0 For Numero = 1 To 100 vSuma = vSuma + (Numero * Numero) Next Console.WriteLine("La Suma de los cuadrados es: " & vSuma) Console.Read()

End Sub End Module

Ejercicio #19 Module Module1 Sub Main() Dim vCantidad As Integer Dim vSuma As Double Dim vValor As Double vCantidad = 0 vSuma = 0 While vCantidad < 10 Console.WriteLine("Ingresar Valor: ") vValor = Console.ReadLine If vValor < 0 Then vSuma = vSuma + vValor End If vCantidad = vCantidad + 1 End While

Console.WriteLine("La Suma de los Negativos es: " & vSuma) Console.Read() End Sub End Module

EJERCICIOS PAGINA 132

Ejercicio #01 Module Module1 Sub Main() Dim vBase As Double Dim vExponente As Double Dim vPotencia As Double vPotencia = 1 Console.WriteLine("Ingrese la Base: ") vBase = Console.ReadLine() Console.WriteLine("Ingrese el Exponente: ") vExponente = Console.ReadLine() For Numero = 1 To vExponente vPotencia = vPotencia * vBase Next Console.WriteLine("La Potencia es: " & vPotencia) Console.Read() End Sub End Module

Ejercicio #02 Module Module1 Sub Main() Dim Posicion As Integer Dim Contador As Integer

Console.WriteLine("Ingrese el Valor N para mostrar la sucesion") Posicion = Console.ReadLine() Console.Clear() Select Case Posicion Case 1 Console.WriteLine("1") Case 2 Console.WriteLine("1") Console.WriteLine("1") Case Else Contador = Posicion - 1 Dim n1 As Integer Dim n2 As Integer n1 = 1 n2 = 1 Console.WriteLine("{0}", n1) While Contador <> 0 Console.WriteLine(n2) n2 = n2 + n1 n1 = n2 - n1 Contador = Contador - 1 End While End Select Console.ReadLine() End Sub End Module

Ejercicio #03 Module Module1 Sub Main() Dim vMultiplicador As Integer Console.WriteLine("Ingresar Numero") vMultiplicador = Console.ReadLine() Console.Clear() For Numero = 1 To 12

Console.WriteLine(Numero & " x " & vMultiplicador & " = " & Numero * vMultiplicador) Next Console.Read() End Sub End Module

Ejercicio #05 Module Module1 Sub Main() Dim vNumero As Integer Dim vFactorial As Double Console.WriteLine("Ingresar el Numero: ") vNumero = Console.ReadLine vFactorial = 1 For Contador = 1 To vNumero vFactorial = vFactorial * Contador Next Console.WriteLine("El Factorial es: " & vFactorial) Console.Read()

End Sub End Module

Ejercicio #06 Module Module1 Sub Main() Dim MatrizNumeros(0 To 10) As Integer Dim vMayor As Integer For Contador = 1 To 10 Console.WriteLine("Ingresar Numero") MatrizNumeros(Contador) = Console.ReadLine Next vMayor = MatrizNumeros(1)

For Contador = 1 To 10 If MatrizNumeros(Contador) > vMayor Then vMayor = MatrizNumeros(Contador) End If Next Console.WriteLine("El mayor numero es: " & vMayor) Console.Read()

End Sub End Module

Ejercicio #07 Module Module1 Sub Main() Dim vNumero As Integer Dim vDivisores As Integer Console.WriteLine("Ingresar Numero a Evaluar") vNumero = Console.ReadLine vDivisores = 0 For Contador = 1 To vNumero If (vNumero Mod Contador) = 0 Then vDivisores = vDivisores + 1 End If Next Select Case vDivisores Case 1 Console.WriteLine("El Numero 1 no es Primo ni Compuesto") Case 2 Console.WriteLine("Es Primo") Case Else Console.WriteLine("No es Primo, es decir es compuesto") End Select Console.Read() End Sub End Module