ClubEnsayos.com - Ensayos de Calidad, Tareas y Monografias
Buscar

Matriz de programacion bandera de estados unidos


Enviado por   •  20 de Abril de 2016  •  Tutoriales  •  532 Palabras (3 Páginas)  •  62 Visitas

Página 1 de 3

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)

...

Descargar como (para miembros actualizados)  txt (3.2 Kb)   pdf (80.5 Kb)   docx (10.5 Kb)  
Leer 2 páginas más »
Disponible sólo en Clubensayos.com