Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Scribd Logo
Cargar

¡Te damos la bienvenida a Scribd!

  • 71 vistas

    Practica3 Part4e

    Cargado por

    HéctorValle
    Este documento contiene el código fuente de varios subprogramas en Visual Basic que resuelven problemas matemáticos y lógicos de manera secuencial. Los subprogramas incluyen la suma y resta de números, determinar si una edad permite votar, aprobar o reprobar una calificación, conversión de unidades, verificar si la suma de dos números es igual a un tercero, determinar si un número es par o impar, hallar el mayor de tres números e identificar si un año es bisiesto.

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd

    Practica3 Part4e

    Cargado por

    HéctorValle
    71 vistas6 páginas
    Este documento contiene el código fuente de varios subprogramas en Visual Basic que resuelven problemas matemáticos y lógicos de manera secuencial. Los subprogramas incluyen la suma y resta de números, determinar si una edad permite votar, aprobar o reprobar una calificación, conversión de unidades, verificar si la suma de dos números es igual a un tercero, determinar si un número es par o impar, hallar el mayor de tres números e identificar si un año es bisiesto.

    Descripción original:

    lsislks

    Título original

    PRACTICA3 PART4E

    Derechos de autor

    © © All Rights Reserved

    Formatos disponibles

    DOCX, PDF, TXT o lea en línea desde Scribd

    ¿Le pareció útil este documento?

    ¿Este contenido es inapropiado?

    Este documento contiene el código fuente de varios subprogramas en Visual Basic que resuelven problemas matemáticos y lógicos de manera secuencial. Los subprogramas incluyen la suma y resta de números, determinar si una edad permite votar, aprobar o reprobar una calificación, conversión de unidades, verificar si la suma de dos números es igual a un tercero, determinar si un número es par o impar, hallar el mayor de tres números e identificar si un año es bisiesto.

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd
    Descargar como docx, pdf o txt
    71 vistas6 páginas

    Practica3 Part4e

    Cargado por

    HéctorValle
    Este documento contiene el código fuente de varios subprogramas en Visual Basic que resuelven problemas matemáticos y lógicos de manera secuencial. Los subprogramas incluyen la suma y resta de números, determinar si una edad permite votar, aprobar o reprobar una calificación, conversión de unidades, verificar si la suma de dos números es igual a un tercero, determinar si un número es par o impar, hallar el mayor de tres números e identificar si un año es bisiesto.

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd
    Descargar como docx, pdf o txt
    de 6

    HECTOR VALLE ROGEL CURSO PROPEDEUTICO PRACTICA 3 PARTE 1

    Module Module1

    Sub Main()
    'biciesto()
    'mayordetres()
    'parimpar()
    'tresnumeros()
    'conversion()
    'Calificacin()
    'edadparavotar()
    'sumaresta()

    End Sub

    Sub sumaresta()

    Dim num1, num2, suma, resta, mult As Integer


    Dim result, div, resi As Double
    Console.WriteLine("HCTOR: Escribe un programa que sume dos numeros")
    Console.Write("Dame el Numero 1:")
    num1 = Console.ReadLine()
    Console.Write("Dame el Numero 2:")
    num2 = Console.ReadLine()

    suma = num1 + num2


    resta = num1 - num2
    result = num1 ^ num2
    div = num1 / num2
    mult = num1 * num2
    resi = num1 Mod num2

    Console.WriteLine("El resultado de la suma es:" & suma)


    Console.WriteLine("El resultado de la resta es:" & resta)
    Console.WriteLine("El resultado de la potencia es:" & result)
    Console.WriteLine("El resultado de la division es:" & div)
    Console.WriteLine("El residuo de la division es:" & resi)
    Console.WriteLine("El resultado de la Multiplicacion es:" & mult)
    Console.ReadLine()
    End Sub

    Sub edadparavotar()

    Dim edad As Integer

    Console.WriteLine("HCTOR: Escribe un programa que permita capturar la


    edad, el cual indique con un mensaje en pantalla si la persona puede votar o no")
    HECTOR VALLE ROGEL CURSO PROPEDEUTICO PRACTICA 3 PARTE 1

    Console.Write("Dame tu edad:")
    edad = Console.ReadLine()

    If edad >= 18 Then


    Console.WriteLine("Puedes votar")
    Else
    Console.WriteLine("Aun no puedes votar")
    End If
    Console.ReadLine()
    End Sub

    Sub Calificacin()

    Dim Calificacion As Integer

    Console.WriteLine("HCTOR: Escribe un programa que dada la calificacin del


    alumno se indique si el alumno aprueba o reprueba")
    Console.Write(" Recuerda que menor que 70 es reprobatorio ")
    Console.Write(" ")
    Console.Write("Dame tu calificacin:")

    Calificacion = Console.ReadLine()

    If Calificacion >= 70 Then


    Console.WriteLine(" Ests aprobado ")
    Else
    Console.WriteLine(" Reprobaste, ponte a estudiar")
    End If
    Console.ReadLine()
    End Sub

    Sub conversion()

    Dim longitudcm, longitudin As Single


    HECTOR VALLE ROGEL CURSO PROPEDEUTICO PRACTICA 3 PARTE 1

    Console.WriteLine("HCTOR: Escribe un programa que convierta una longitud


    expresada en centimetros en su equivalente expresada en pulgadas")

    Console.WriteLine("Dame una longitud en cm ")


    longitudcm = Console.ReadLine()
    longitudin = longitudcm / 2.54
    Console.WriteLine(longitudcm & " cm " & " equivale a " & longitudin & "
    in ")
    Console.ReadLine()
    End Sub

    Sub tresnumeros()
    Console.WriteLine("HCTOR: Escribe un programa que dado 3 numeros permita
    saber si la suma de cualquier pareja de ellos es igual al tercero")
    Dim n1, n2, n3 As Integer
    Console.WriteLine("Dame el numero 1: ")
    n1 = Console.ReadLine()
    Console.WriteLine("Dame el numero 2: ")
    n2 = Console.ReadLine()
    Console.WriteLine("Dame el numero 3: ")
    n3 = Console.ReadLine()

    If n1 + n2 = n3 Then
    Console.WriteLine(n1 & "+" & n2 & "=" & n3)
    Else
    If n1 + n3 = n2 Then
    Console.WriteLine(n1 & "+" & n3 & "=" & n2)
    Else
    If n2 + n3 = n1 Then
    Console.WriteLine(n2 & "+" & n3 & "=" & n2)
    Else
    Console.WriteLine("No se cumple que sean iguales")
    End If
    End If
    End If
    Console.ReadLine()
    End Sub
    HECTOR VALLE ROGEL CURSO PROPEDEUTICO PRACTICA 3 PARTE 1

    Sub parimpar()

    Dim num1, residuo As Single

    Console.WriteLine("HCTOR: Escribe un programa que determine si un numero


    dado por el usuario es par o impar")

    Console.WriteLine("Dame un numero ")


    num1 = Console.ReadLine()
    residuo = num1 Mod 2
    If residuo = 0 Then

    Console.WriteLine("Numero par ")


    Else
    Console.WriteLine("Numero impar ")

    End If

    Console.ReadLine()
    End Sub

    Sub mayordetres()

    Dim n1, n2, n3 As Integer

    Console.WriteLine("HCTOR: Escribe un programa que determine el numero mayor


    de tres numeros")
    Console.WriteLine("Dame el numero 1: ")
    n1 = Console.ReadLine()
    Console.WriteLine("Dame el numero 2: ")
    n2 = Console.ReadLine()
    Console.WriteLine("Dame el numero 3: ")
    n3 = Console.ReadLine()
    HECTOR VALLE ROGEL CURSO PROPEDEUTICO PRACTICA 3 PARTE 1

    If n1 > n2 And n1 > n3 Then


    Console.WriteLine("El numero mayor es " & n1)
    Else
    If n2 > n1 And n2 > n3 Then
    Console.WriteLine("El numero mayor es " & n2)
    Else
    If n3 > n1 And n3 > n1 Then
    Console.WriteLine("El numero mayor es " & n3)
    Else
    Console.WriteLine("Los nmeros son iguales")
    End If
    End If
    End If

    Console.ReadLine()
    End Sub

    Sub biciesto()

    Dim ao, residuo, division As Single

    Console.WriteLine("HCTOR: Escribe un programa que determine si un ao


    indicado por el usuario es biciesto")
    Console.WriteLine("Dame el ao ")
    ao = Console.ReadLine()

    residuo = ao Mod 4
    division = ao / 100
    If residuo = 0 And division <> 0 Then
    Console.WriteLine("Ao biciesto ")
    Else
    Console.WriteLine("Ao no biciesto ")

    End If
    Console.ReadLine()
    End Sub

    End Module
    HECTOR VALLE ROGEL CURSO PROPEDEUTICO PRACTICA 3 PARTE 1

    También podría gustarte