Pages

sábado, 5 de octubre de 2013

PRACTICA #10

18:21    

ESTRUCTURAS DE CONTROL EN VB .NET 

Objetivos: 

  • Practicar las estructuras de control de selección.
  •  Practicar las estructura de control de repetición.


1. Capturar por teclado la cantidad vendida y si la venta supera los 25,000 imprimir el mensaje meta superada. 

 código: 
Module Module1

    Sub Main()
        Dim venta As Decimal
        System.Console.Write("ingrese la cantidad de venta:$ ")
        venta = Console.ReadLine()
        If venta > 25000 Then
            Console.WriteLine("meta superada")
        Else
            Console.WriteLine("meta no superada")

        End If
        Console.ReadLine()
    End Sub


End Module

3. Capturar la edad de una persona, determinar e imprimir si es o no mayor de edad. 

código: 
Module Module2
    Sub main()
        Dim edad As Decimal
        Console.Write("ingrese su edad:")
        edad = Console.ReadLine()
        If edad >= 18 Then
            Console.WriteLine("usted es mayor de edad")
        Else
            Console.WriteLine("usted es menor de edad")
        End If
        Console.ReadLine()
    End Sub
End Module


5. Capturar por teclado 3 números enteros y determinar cuál es el mayor

código:
Module Module3
    Sub main()
        Dim n1, n2, n3 As Decimal
        Console.Write("ingrese numero 1: ")
        n1 = Console.ReadLine()
        Console.Write("ingrese numero 2: ")
        n2 = Console.ReadLine()
        Console.Write("ingrese numero 3: ")
        n3 = Console.ReadLine()
     
        If n1 > n2 And n1 > n3 Then
            Console.WriteLine("el numero mayor es: " & n1)
        ElseIf n2 > n1 And n2 > n3 Then
            Console.WriteLine("el numero mayor es: " & n2)
        Else
            Console.WriteLine("el numero mayor es: " & n3)
        End If
        Console.ReadLine()
    End Sub
End Module


7. Capturar un número por teclado e imprimir si dicho número es primo o no.

código: 

Module module4
    Sub main()
        Dim n As Integer
        Dim compro As Boolean = True
        Console.Write("escribir un numero")
        n = Console.ReadLine()
        For i As Integer = 2 To n = 1
            If n Mod 1 = 0 Then
            End If
        Next
        If compro = False Then
            Console.WriteLine("el numero ingresado no es primo")
        Else
            Console.WriteLine("el numero ingresado es primo")

        End If
        Console.ReadLine()
    End Sub
End Module


9. Mostrar los números del 1 al 100

código: 
Module Module5
    Sub main()
        Dim numero As Decimal
        Console.WriteLine("primeros 100 numeros")
        For i = 1 To 100 Step 1
            Console.WriteLine("numero" & i)
        Next
        Console.ReadLine()
    End Sub
End Module

11. Capturar 10 números enteros, calcular e imprimir el cubo de la suma de los números capturados.

código: 
Module Module6
    Sub Main()
        Dim n, num, total As Integer
        total = 0
        Console.WriteLine("Ingrese 10 numeros:")
        For n = 1 To 10
            num = Console.ReadLine()
            total = total + num
        Next
        Console.WriteLine()
        Console.WriteLine("El cubo de la suma de los numeros ingresados es: " & (total ^ 3))
        Console.ReadLine()
    End Sub
End Module
13. Capturar la nota promedio y el promedio de asistencia de una cantidad de estudiantes especificada por el usuario 
a través del teclado, calcular e imprimir cuantos aprobaron la materia, cuantos harán complementario y cuantos 
reprobaron. 

código:


Module Module7


    Sub Main()
        Dim n, P, A, total As Decimal
        Dim apro, comple, repro As Integer
        apro = 0
        comple = 0
        repro = 0
        Console.Write("Ingrese la cantidad de estudiantes: ")
        n = Console.ReadLine()
        Console.WriteLine()
        For i = 1 To n
            Console.WriteLine("Estudiante " & i)
            Console.Write("Nota promedio: ")
            P = Console.ReadLine()
            Console.Write("Promedio de asistencia: ")
            A = Console.ReadLine()
            Console.WriteLine()
            total = (P + A) / 2
            If total >= 6 Then
                apro = apro + 1
            Else
                If total >= 5 And total <= 5.99 Then
                    comple = comple + 1
                Else
                    If total < 5 Then
                        repro = repro + 1
                    End If
                End If
            End If
        Next
        Console.WriteLine()
        Console.WriteLine("Nº Aprovados: " & apro)
        Console.WriteLine("Nº Complementarios: " & comple)
        Console.WriteLine("Nº Reprovados: " & repro)
        Console.ReadLine()
    End Sub
End Module
15. Escriba un programa para generar 5 tablas de multiplicar de números aleatorios entre 20 y 50. 

código:

Module Module8




    Sub Main()
        Dim i, n, tabla, resp As Integer
        Console.WriteLine("Generando 5 tablas de multiplicar aleatorias entre los numeros de 20 y 50")
        Console.WriteLine()
        Randomize()
        Do Until tabla = 5
            n = CInt(Int(50 - 20 + 1) * Rnd() + 20)
            For i = 1 To 10
                resp = n * i
                Console.WriteLine(n & "x" & i & " = " & resp)
            Next
            Console.WriteLine()
            tabla = tabla + 1
        Loop
        Console.ReadLine()
    End Sub 
End Module 

17. Capturar por teclado un número de teléfono, calcular e imprimir cuantos dígitos pares e impares posee.

código: 
Module Module9
    Sub Main()
        Dim telefono As String
        Dim pares, impar As Integer
        pares = 0
        impar = 0
        Console.WriteLine("calcule cuantos números pares e impares posee su numero telefónico")
        Console.Write("Ingrese su número de telefono: ")
        telefono = Console.ReadLine()
        Console.WriteLine()
        For i = 0 To telefono.Length - 1
            If telefono.Substring(i, 1) Mod 2 = 0 Then
                pares = pares + 1
            Else
                impar = impar + 1
            End If
        Next
        Console.Write("Pares: ")
        For i = 0 To telefono.Length - 1
            If telefono.Substring(i, 1) Mod 2 = 0 Then
                Console.Write(telefono.Substring(i, 1) & " ")
            End If
        Next
        Console.WriteLine()
        Console.Write("Impares: ")
        For i = 0 To telefono.Length - 1
            If telefono.Substring(i, 1) Mod 2 <> 0 Then
                Console.Write(telefono.Substring(i, 1) & " ")
            End If
        Next
        Console.WriteLine()
        Console.WriteLine()
        Console.WriteLine("Números pares: " & pares)
        Console.WriteLine("Números impares: " & impar)
        Console.ReadLine()
    End Sub
End Module
19. Escriba un programa que proporcione al usuario un menú con las siguientes opciones de conversión de decimal a 
[1] binario, [2] octal, [3] hexadecimal y [4] salir. 

código: 


Module Module10

    Sub Main()
        Dim op, num As Integer
        Dim a, b, c As String
        Console.WriteLine("Conversor Decimal a otras bases numéricas v2.0")
        Console.WriteLine()
        Console.WriteLine("¿A que base desea convertir?")
        Console.WriteLine("[1] Binario")
        Console.WriteLine("[2] Octal")
        Console.WriteLine("[3] Hexadecimal")
        Console.WriteLine("[4] Salir")
        Console.Write("Su opción es: ")
        op = Console.ReadLine()
        If op = 4 Then Exit Sub
        Console.WriteLine
        Console.Write("Ingrese número en base 2 a convertir: ")
        num = Console.ReadLine()
        Console.Clear()
        Select Case op
            Case 1
                Console.WriteLine("Convirtiendo " & num & " a Binario..")
                Do Until num < 2
                    b = b & CStr(num Mod 2)
                    num = Int(num / 2)
                Loop
                b = b & num
                c = StrReverse(b)
                Console.WriteLine()
                Console.WriteLine("Respuesta: " & c)
            Case 2
                Console.WriteLine("Convirtiendo " & num & " a Octal..")
                num = Oct(num)
                Console.WriteLine()
                Console.WriteLine("Respuesta: " & num)
            Case 3
                Console.WriteLine("Convirtiendo " & num & " a Hexadecimal..")
                a = Hex(num)
                Console.WriteLine()
                Console.WriteLine("Respuesta: " & a)
        End Select
       Console.ReadLine()
    End Sub
End Module