Matriz de programacion bandera de estados unidos

MATRIZ BANDERA USA

SANTIAGO ESNEIDER CASTILLO CHIVATA

COD: 539669

UNIVERSIDAD CATOLICA DE COLOMBIA

INGENIERIA INDUSTRIAL

PROGRAMACION DE COMPUTADORES

BOGOTA D.C.

2015

PROYECTO FINAL MATRIZ

SANTIAGO ESNEIDER CASTILLO CHIVATA

PROYECTO FINAL

Profesor:

Omar González

Ing. Industrial

UNIVERSIDAD CATOLICA DE COLOMBIA

INGENIERIA INDUSTRIAL

PROGRAMACION DE COMPUTADORES

BOGOTA D.C.

2015

INTRODUCCION

Una matriz es una estructura de datos, o más técnicamente, un espacio de memoria que permite almacenar una colección de elementos, todos del mismo tipo. Conviene imaginar una matriz como una secuencia contigua de celdas (espacios de memoria), o casillas, en cada una de las cuales se puede guardar un elemento ya sea de tipo entero o carácter.

PROYECTO

En el siguiente programa de matrices nos daremos cuenta como guardamos en casillas o celdas de memoria, “* “como filas y columnas para apartar una cuarta parte de la matriz; y , “+ “como filas para el resto de la matriz si se cumple la condición y así formar una bandera.

CODIGO

Sub Bandera ()

Dim m (1 To 9, 1 To 18), j, i As Integer

Dim texto As String

texto = " LA BANDERA USA"  &  Chr(13)  &  Chr(13)

For j = 1 To 9

    For i = 1 To 18

        If (i <= 5) And j <= 5 Then

            m (j, i) = " * "

        Else

            If j Mod 2 <> 0 Then

                m (j, i) = " + "

            End If

        End If

    Next

Next

For j = 1 To 9

    For i = 1 To 18

        texto = texto & m(j, i)

    Next

texto = texto  &  Chr(13)

Next

MsgBox texto

End Sub

ESPLICACION DEL CODIGO

Defino mi programa:

Sub bandera ()

Defino las variables:

Dim m (1 To 9, 1 To 18), j, i As Integer  VARIABLES DE TIPO ENTERO

Dim texto As String VARIABLES DE TIPO CADENA

DEFINO UN TITULO Y DOS ESPACIOS

texto = " LA BANDERA USA"  &  Chr(13)  &  Chr(13)

i COMO NUMERO DE FILAS

For j = 1 To 9

j COMO NUMERO DE COLUMNAS

For i = 1 To 18

GUARDO “ * “ EN UNA CUARTA PARTE DE LAS MATRIZ

If (i <= 5) And j <= 5 Then

m (j, i) = " * "

SI CUMPLE HAGA

Else

SI j ES PAR, GUARDA UN “ + “ EN LAS CELDAS DE NUMERO PAR

If j Mod 2 <> 0 The

m(j, i) = " + "

GUARDA LO QUE HAY EN LA MATRIZ EN LA VARIABLE TEXTO

r j = 1 To 9

For i = 1 To 18

texto = texto & m(j, i)

IMPRIME

MsgBox texto

FIN DEL PROGRAMA

End Sub

CONCLUSION

Crear una matriz de 9 x 18 de tipo cadena formando la bandera de estados unidos utilizando Visual Basic.

...