domingo, 5 de mayo de 2013

tablas de multiplicar,sumar,dividir y de resta


Programa de tabla de multiplicar
Module Module1

    Sub Main ()
        'la variable cadena es  de tipo entero'
        Dim cadena As Integer
        'la variable resultado es de tipo entero'
        Dim resultado As Integer



        'el console .writeline nos sirve para que nos imprima el número de la tabla que deseamos multiplicar'
        Console. WriteLine ("introduzca número de tabla a  multiplicar")
        'console. readline nos sirve para que detenga la pantalla cuando corramos el programa'
        Cadena = Console.ReadLine ()
        'el for es un ciclo que multiplicara de uno en uno al número que vamos a multiplicar'
        For a As Integer = 1 To 10
            'a es una variable’
            Resultado = a * cadena
            'console.writeline nos imprimirá la tabla que deseemos multiplicar   del número que ingresemos’
            Console.WriteLine(a & " *" & cadena & " = " & resultado)




        Next
        Console.ReadLine ()
    End Sub

End Module






Programa de tabla de suma
Module Module1

    Sub Main ()
        'la variable cadena es  de tipo entero'
        Dim cadena As Integer
        'la variable resultado es de tipo entero'
        Dim resultado As Integer



        'el console .writeline nos sirve para que nos imprima el número de la tabla que deseamos sumar'
        Console. WriteLine ("introduzca número de tabla a  sumar")
        'console.readline nos sirve para que detenga la pantalla cuando corramos el programa'
        Cadena = Console.ReadLine ()
        'el for es un ciclo que sumara de uno en uno al numero que vamos a sumar'
        For a As Integer = 1 To 10
            'a es una variable’
            Resultado = a + cadena
            'console.writeline nos imprimirá la tabla que deseemos sumar  del número que ingresemos’
            Console.WriteLine(a & " +" & cadena & " = " & resultado)




        Next
        Console.ReadLine ()
    End Sub

End Module







Programa de tabla de división
Module Module1

    Sub Main ()
        'la variable cadena es  de tipo entero'
        Dim cadena As Integer
        'la variable resultado es de tipo entero'
        Dim resultado As Integer



        'el console .writeline nos sirve para que nos imprima el número de la tabla que deseamos dividir'
        Console. WriteLine ("introduzca número de tabla a  dividir")
        'console. Readline nos sirve para que detenga la pantalla cuando corramos el programa'
        cadena = Console. ReadLine ()
        'el for es un ciclo que dividirá de uno en uno al número que vamos a dividir'
        For a As Integer = 1 To 10
            'a es una variable’
            Resultado = a / cadena
            'console.writeline nos imprimirá la tabla que deseemos dividir del número que ingresemos’
            Console. WriteLine(a & " /" & cadena & " = " & resultado)




        Next
        Console.ReadLine ()
    End Sub

End Module





Programa  de tabla de resta

Module Module1

    Sub Main ()
        'la variable cadena es  de tipo entero'
        Dim cadena As Integer
        'la variable resultado es de tipo entero'
        Dim resultado As Integer



        'el console .writeline nos sirve para que nos imprima el número de la tabla que deseamos restar'
        Console.WriteLine ("introduzca número de tabla a  restar")
        'console.readline nos sirve para que detenga la pantalla  cuando corramos el programa'
        Cadena = Console.ReadLine ()
        'el for es un ciclo que restara de uno en uno al número que vamos a restar'
        For a As Integer = 1 To 10
            'a es una variable '
            Resultado = a - cadena
            'console.writeline nos imprimirá la tabla que deseemos restar  del número que ingresemos’
            Console.WriteLine(a & " -" & cadena & " = " & resultado)




        Next
        Console.ReadLine ()
    End Sub

End Module



1 comentario:

  1. sugiero que en las aplicaciones se deberia de considerar el tipo de datos de tipo real por los resultados que se obsereva

    ResponderEliminar