METODOLOGIA DE LA PROGRAMACION DE SISTEMAS INFORMATICOS

ACTIVIDAD SEMANA 4

APRENDIZ:

OSCAR JAVIER LOZANO CIFUENTES

PRESENTADO A LA TUTORA:

ING. SANDY PATRICIA CASTILLO GORGONA

METODOLOGIA DE LA PROGRAMACION DE SISTEMAS INFORMATICOS

FICHA DE CARACTERIZACION: 811431

SERVICIO NACIONAL DE APRENDIZAJE – SENA

PURIFICACION – TOLIMA

29  DE AGOSTO DE 2014

1. Llenar un vector (arreglo unidimensional) con 10 valores enteros y determinar cuántos de ellos son positivos, cuantos negativos.

Algoritmo para determinar número positivos y negativos

       Proceso num_pos

                Dimension a[200]

                cont=0

                neg=0

                Escribir 'Digite el tamaño del arreglo:'

                Leer c;

                 Para i=1 Hasta c Con Paso 1 Hacer

                               Escribir 'Digite Numero posición: ',i

                               Leer a[i]

                 FinPara              

                Para i=1 Hasta c Con Paso 1 Hacer

                       Si a[i]>0 Entonces

                       cont=cont + 1;

                    Fin Si

                FinPara

                neg=c-cont;

                Escribir 'Existen ',cont,' números positivos y ',neg,' negativos.'

    FinProceso

Diagrama de flujo:

 [pic 1]

[pic 2]

1. Dada una matriz de 5 filas y 5 columnas imprimir la diagonal de la matriz.

Algoritmo para encontrar las diagonales de una matriz de un cuadrado

Proceso diagonal_matrices 
        Dimension vect(50,50); 
        Escribir 'ingrese el numero filas'; 
        Leer m; 
        Escribir 'ingrese el numero columnas'; 
        Leer n; 
        Escribir 'Digite los valores:'; 
        Para i<-1 Hasta m Con Paso 1 Hacer 
                       Escribir 'Fila ',i
                       Para j<-1 Hasta n Con Paso 1 Hacer 
                                       Leer vect(i,j);
                                       
                       FinPara 
        FinPara 
        Escribir 'La diagonal pincipal de la matriz es: '; 
        Para i<-1 Hasta m Con Paso 1 Hacer 
                       Para j<-1 Hasta n Con Paso 1 Hacer 
                                       Si (i=j)Entonces 
                                                       Escribir vect(i,j);
                                       FinSi
                       FinPara
        FinPara 
        Escribir 'La diagonal secundaria de la matriz es: '; 
        Para i<-1 Hasta m Con Paso 1 Hacer 
                       Para j<-n Hasta n Con Paso 1 Hacer 
                                                       Escribir vect(i,j);
                                       n<-n-1;
                       FinPara
        FinPara 
FinProceso 

Diagrama de flujo:

[pic 3]

1. Llenar un vector de 9 casillas con las calificaciones de un estudiante y posteriormente calcular e imprimir su promedio.

Algoritmo para obtener el  promedio de calificaciones de un estudiante

Proceso calcular_promedio_notas
        DIMENSION vect(50,50)
        Escribir 'ingrese la cantidad de notas'
        Leer m
        Escribir 'Digite los valores:'
        Para i<-1 Hasta m Con Paso 1 Hacer
                       Escribir 'Nota ',i
                       Para j<-1 Hasta 1 Con Paso 1 Hacer
                                       Leer vect(i,j);
                       FinPara
        FinPara
        Para i<-1 Hasta m Con Paso 1 Hacer
                       Para j<-1 Hasta 1 Con Paso 1 Hacer
acm<-acm+vect(i,j);
FinPara
        FinPara
        prom<-acm/m;
        Escribir 'El promedio del estudiante es: ',prom
FinProceso

Diagrama de flujo:

...