MATRICES

Esta estructura esta dividida en filas y columnas.



Ejercicios:

1. Mostrar lo siguiente

Module Module1
Dim ma1(2, 2) As Integer
Dim x, y As Integer
Sub Main()
For x = 0 To 2
For y = 0 To 2
ma1(x, y) = 8
Next
Next
For x = 0 To 2
For y = 0 To 2
Console.Write(ma1(x, y))
Next
Console.WriteLine()
Next
Console.ReadLine()
End Sub
End Module

2. Mostrar lo siguiente:

Module Module1
Dim ma1(2, 2) As Integer
Dim x, y As Integer
Sub Main()
For x = 0 To 2
For y = 0 To 2
ma1(x, y) = 4
Next
Next
For x = 0 To 2
For y = 0 To 2
Console.Write(ma1(x, y))
Next
Console.WriteLine()
Next
Console.ReadLine()
End Sub
End Module

3.mostrar lo siguiente

Module Module1
Dim ma1(2, 2) As Integer
Dim x, y As Integer
Sub Main()
For x = 0 To 2
For y = 0 To 2
ma1(x, y) = 2
Next
Next
For x = 0 To 2
For y = 0 To 2
Console.Write(ma1(x, y))
Next
Console.WriteLine()
Next
Console.ReadLine()
End Sub
End Module

ARRAYS

Esta estructura esta dividido en filas .


Ejercicios.

1. Elaborar un programa que me cree un arrays de los 18 elementos y lo llene con los 12 primeros numeros pares.

Module Module1
Dim arr1(17) As Integer
Dim x As Integer = 0
Sub Main()
For x = 1 To 18
arr1(x - 1) = x * 2
Next
For x = 0 To 17
Console.WriteLine(arr1(x))
Next
End Sub
End Module

2. Elaborar un programa que me cree un arrays de 5 elementos y lo llene con la palabra aprobada.

Module Module1
Dim arr1(4) As Integer
Dim x As Integer = 0
Sub Main()
For x = 1 To 4
arr1(x) = x + 1
Next
For x = 0 To 4
Console.WriteLine("aprobada")
Next
End Sub
End Module

3. Elaborar un programa que me cree un arraya de 7elementos y lo llene con los 7 numeros enteros.

Module Module1
Dim arr1(6) As Integer
Dim x As Integer = 0
Sub Main()
For x = 0 To 6
arr1(x) = x + 1
Next
For x = 0 To 6
Console.WriteLine(arr1(x))
Next
Console.ReadLine()
End Sub
End Module

WHILE- NEXT

Esta estructura permite repetir N veces la operacion mientras sea verdadera.


Ejercicios:

1.Elaborar un programa que me muestre la serie de los 9 primeros numeros enteros.

Module Module1
Dim num As Integer = 1
Sub Main()
While (num < 9)
Console.WriteLine(num)
num = num + 1
End While
Console.ReadLine()
End Sub
End Module

2. Elaborar un programa que me muestre la serie de los 25 primeros numeros pares.

Module Module1
Dim num As Integer = 2
Sub Main()
While (num < 25)
Console.WriteLine(num)
num = num + 2
End While
Console.ReadLine()
End Sub
End Module

3. Elaborar un programa que me muestre la serie de los 12 primeros numeros enteros.

Module Module1
Dim num As Integer = 1
Sub Main()
While (num < 12)
Console.WriteLine(num)
num = num + 1
End While
Console.ReadLine()
End Sub
End Module

FOR - NEXT

Es una estructura repetittiva comienza desde hasta hacia.


Ejercicios:

1.Elaborar un programa que me muestre la serie de los 18 primeros numeros enteros de forma decreciente.

Module Module1
Dim cont As Integer
Sub Main()
For cont = 0 To 17
Console.WriteLine(18-cont)
Next
Console.ReadLine()
End Sub
End Module

2.Elaborar un programa que me muestre los primeros 22 numeros enteros.

Module Module1
Dim cont As Integer
Sub Main()
For cont = 1 To 22
Console.WriteLine(cont)
Next
Console.ReadLine()
End Sub
End Module

3.Elaborar un programa que me muestre la palabra aprobada 13 veces.

Module Module1
Dim cont As Integer
Sub Main()
For cont = 1 To 13
Console.WriteLine("aprobada")
Next
Console.ReadLine()
End Sub
End Module

IF ANIDADO

Es una estructura que se utiliza con varios secuenciales que son variadas.


Ejercicios:

1.Elaborar un programa que me permita ingresar un numero si el numero es igual a par mostrar correcto caso contrario mal, si el numero es igual a impar mostrar chevere caso contrario intentalo.

Module Module1
Dim NUM, PAR, IMPAR As Integer
Sub Main()
Console.WriteLine("INGRESE EL NUMERO:")
NUM = Console.ReadLine
If NUM = PAR Then
Console.WriteLine("CORRECTO")
Else
Console.WriteLine("INCORRECTO")
End If
If NUM = IMPAR Then
Console.WriteLine("CHEVERE")
Else
Console.WriteLine("MAL")
End If
Console.ReadLine()
End Sub
End Module

2. Elaborar un programa que me permita ingresar la edad de una persona si la edad es mayor que 15 mostrar juventud caso contrario niñez, si la edad es mayor que 35 mostrar viejo caso contrario adulto.

Module Module1
Dim EDAD As Integer
Sub Main()
Console.WriteLine("INGRESE LA EDAD:")
EDAD = Console.ReadLine
If EDAD > 14 Then
Console.WriteLine("JUVENTUD")
Else
Console.WriteLine("NI¥EZ")
End If
If EDAD > 30 Then
Console.WriteLine("VIEJO")
Else
Console.WriteLine("ADULTO")
End If
Console.ReadLine()
End Sub
End Module

3.Elaborar un programa que me permita ingresar un color si el color es igual a rojo mostrar amor caso contrario incorrecto, si el color es igual a blanco mostrar paz caso contrario guerra.

Module Module1
Dim COLOR, BLANCO, ROJO As String
Sub Main()
Console.WriteLine("INGRESE EL COLOR:")
COLOR = Console.ReadLine
If COLOR = ROJO Then
Console.WriteLine("AMOR")
Else
Console.WriteLine("MAL DE AMOR")
End If
If COLOR = BLANCO Then
Console.WriteLine("PAZ")
Else
Console.WriteLine("PELEA")
End If
Console.ReadLine()
End Sub
End Module

IF

Es una estructura que nos permite hacer una pregunta y su respuesta sera verdadera o falsa.


Ejercicios:

1. Elaborar un programa que me ingrese una nota si la nota es mayor que 10.5 mostrar chancon caso contrario burro.
Module Module1
Dim nota As Integer
Sub Main()
Console.WriteLine("ingrese nota:")
nota = Console.ReadLine
If (nota > 10.5) Then
Console.WriteLine("super")
Else
Console.WriteLine("malo")
End If
Console.ReadLine()
End Sub
End Module

2. Elaborar un programa que me ingrese el nombre de mi perrito si su nombre es koty mostrar nombre bello caso contrario nombre feo.

Module Module1
Dim nom As String
Sub Main()
Console.WriteLine("ingrese nombre:")
nom = Console.ReadLine
If (nom = koty) Then
Console.WriteLine("nom comun")
Else
Console.WriteLine("nom feo")
End If
Console.ReadLine()
End Sub
End Module

3. Elaborar un programa que me permita ingresar la edadde una persona si la edad es mayor que 14 mostrar joven caso contrario niño.
Module Module1

Dim edad As Integer
Sub Main()
Console.WriteLine("ingrese edad:")
edad = Console.ReadLine
If (edad > 14) Then
Console.WriteLine("joven")
Else
Console.WriteLine("ni¤o")
End If
Console.ReadLine()
End Sub
End Module

ESTRUCTURA SECUENCIAL

• Es una estructutra que sigue a otra.
  
  

Ejercicios:

1. Elaborar un programa que me muestre la edad de una persona.
Module Module1

Dim edad As Integer

Dim f_nac As Integer

Sub Main()Console.WriteLine("ingrese la fecha de nacimineto:")

f_nac = Console.ReadLine

edad=2007 - f_nac

Console.WriteLine(edad)

Console.ReadLine()

End Sub

End Module

2.Elaborar un programa que me sume dos numeros.

Module Module1

Dim n1, n2 As Integer

Dim suma As Integer

Sub Main()

Console.WriteLine("ingrese numero 1:")

n1 = Console.ReadLine

Console.WriteLine("ingrese numero 2:")

n2 = Console.ReadLine

suma = n1 + n2

Console.WriteLine(suma)

Console.ReadLine()

End Sub

End Module

Elaborar un programa que me muestre el promedio de dos notas.
Module Module1Dim n1, n2 As Integer

Dim prom As Integer

Sub Main()

Console.WriteLine("ingrese nota 1:")

n1 = Console.ReadLine

Console.WriteLine("ingrese nota 2:")

n2 = Console.ReadLine

prom = (n1 + n2) / 2

Console.WriteLine(prom)

Console.ReadLine()

End Sub

End Module