programas de matrices

Programa de matriz en diagonal izquierda

Module Module1

    'variable de matriz es de tipo entero los numeros en el paréntesis significan filas y columnas para llenarlas con números '

    Dim matriz (2, 4) As Integer

    Sub Main ()

        'se utilizan dos ciclos for uno para las filas y otra para las colunmas'

        For i As Integer = 0 To 2 Step 1

            For j As Integer = 0 To 4 Step 1

                'ingresamos los valores de las posiciones de 0,1 etc'

                Console.WriteLine ("ingrese valor de la posición {0}, {1}", i, j)

                Matriz (i, j) = Console.ReadLine

            Next

        Next

        For i as Integer = 0 To 2 Step 1

            For j As Integer = 0 To 2 Step 1

                If (i = j) Then

                    'foreground color nos pinta los números de la matriz de color verdeen forma de diagonal izquierda'

                    Console.ForegroundColor = ConsoleColor.Green

                    Console.Write ("{0}  ", matriz (i, j))

                Else

                    'el color blanco es para diferenciar los numeros que forman la diagonal izquierda'

                    Console.ForegroundColor = ConsoleColor.White

                    Console. Write("{0}  ", matriz(i, j))

                End If

            Next

            Console.WriteLine ()

        Next

        Console.ReadLine ()

    End Sub

End Module

 

Diagonal derecha

Module Module1

    Dim matriz (2, 4) As Integer

    Sub main ()

        For i As Integer = 0 To 2 Step 1

            For j As Integer = 0 To 4 Step 1

                Console.WriteLine ("ingrese valor de la posición {0}, {1}", i, j)

                Matriz (i, j) = Console.ReadLine

            Next

        Next

        For i as Integer = 0 To 2 Step 1

            For j As Integer = 0 To 2 Step 1

                If (i + j = 2) Then

                    Console.ForegroundColor = ConsoleColor.Green

                    Console. Write ("{0}  ", matriz(i, j))

                Else

                    Console.ForegroundColor = ConsoleColor.White

                    Console. Write ("{0}  ", matriz (i, j))

                End If

            Next

            Console.WriteLine ()

        Next

        Console.ReadLine ()

    End Sub

End Module

 Diagonal en forma de Cruz

Module Module1

    Dim matriz (2, 4) As Integer

    Sub main ()

        For i as Integer = 0 To 2 Step 1

            For j as Integer = 0 To 4 Step 1

                Console.WriteLine ("ingrese valor de la posición {0}, {1}", i, j)

                Matriz (i, j) = Console.ReadLine

            Next

        Next

        For i as Integer = 0 To 2 Step 1

            For j as Integer = 0 To 2 Step 1

                If (i = 1 Or j = 1) Then

                    Console.ForegroundColor = ConsoleColor.Red

                    Console. Write("{0}  ", matriz(i, j))

                Else

                    Console.ForegroundColor = ConsoleColor.White

                    Console. Write ("{0}  ", matriz(i, j))

                End If

            Next

            Console.WriteLine ()

        Next

        Console.ReadLine ()

    End Sub

End Module

Diagonal izquierda y derecha

Module Module1

    Dim matriz (2, 4) As Integer

    Sub main ()

        For i As Integer = 0 To 2 Step 1

            For j As Integer = 0 To 4 Step 1

                Console.WriteLine ("ingrese valor de la posición {0}, {1}", i, j)

                Matriz (i, j) = Console.ReadLine

            Next

        Next

        For i as Integer = 0 To 2 Step 1

            For j as Integer = 0 To 2 Step 1

                If (i = j) Then

                    Console.ForegroundColor = ConsoleColor.Blue

                    Console. Write ("{0}", matriz(i, j))

                Elsie (i + j = 2) Then

                    Console.ForegroundColor = ConsoleColor.Blue

                    Console. Write ("{0}  ", matriz(i, j))

                Else

                    Console.ForegroundColor = ConsoleColor.White

                    Console. Write ("{0}  ", matriz(i, j))

                End If

            Next

            Console.WriteLine ()

        Next

        Console.ReadLine ()

    End Sub

End Module

programa,Par o Impar,Positivo o Negativo,Primo o no es Primo

Programa que define si el número es par o impar

Module Module1

    'la variable es de tipo integer es de tipo entero'

    Dim y As Integer

    Sub Main ()

        'nos pide que ingresemos el numero

        Console.WriteLine (" Ingrese un número")

        y = Console.ReadLine

        'el if define es el número es par y si no entonces el número es impar'

        If (y / 2) = Int((y / 2)) Then

            Console.WriteLine (" El número par")

            Console.ReadLine ()

            'el else sirve para que diga que si el número no es para entonces que imprima que es impar'

        Else

            'define si le número es impar'

            Console.WriteLine ("El número impar")

            Console.ReadLine ()

        End If

        Console.ReadLine ()

    End Sub

End Module

Programa que muestre si un número es positivo o negativo

Module Module1

    'o es una variable de tipo real'

    Dim o As Double

    Sub Main ()

        'pide que ingres ms el numero'

        Console.WriteLine ("ingrese un numero o")

        o = Console.ReadLine ()

        'if si la variable o es mayor que cero'

        If o > 0 Then

            'si o es mayor que cero que diga que le número es positivo'

            Console.WriteLine ("es positivo")

            Console.ReadLine ()

            'y si el número es menor que cero que diga que es negativo'

        Else

            Console.WriteLine ("es negativo")

            Console.ReadLine ()

        End If

    End Sub

End Module

Programa de numero primo

   Module Module1

    Sub Main ()

        'la variable c es de tipo entero'

        Dim c As Integer

        Dim comprobacion As Boolean = True

        'pide que ingresemos un numero'

        Console.WriteLine ("ingrese  número")

        c = Console.ReadLine

        'el for el un ciclo de 2 numero que define si uno de los dos es primo'

        For i As Integer = 2 To c - 1

            If c Mod i = 0 Then

                'comprueba si el numero es primo si no que imprima que no es primo'

                Comprobacion = False

            End If

        Next

        If comprobacion = False Then

            'imprime que el número no es primo'

            Console.WriteLine ("no es  primo", c)

        Else

            'imprime que el número si es primo'

            Console.WriteLine ("si  es primo", c)

        End If

        Console.ReadLine ()

    End Sub

End Module

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