“Arreglos” (programación)

                                             Actividad semana 4

“Arreglos” (programación)

Para cada uno de los siguientes ejercicios realizar:


a. Análisis de la solución


b. Definición de variables y nombres


c. Diagrama de flujo


d. Prueba de escritorio


e. Algoritmo



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


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


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


4. Una empresa dedicada a vender computadores, tiene 10 sucursales en varias ciudades. Se necesita leer las ventas mensuales de cada una de las sucursales y calcular el promedio de ventas, además sacar un listado de las sucursales cuyas ventas mensuales sean superiores al promedio.



R:

1.


Algoritmo


Proceso num_pos


Dimension a[10]


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

2.


Algoritmo


Proceso diagonal_matrices
Dimension vect(5,5);
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

3. 

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

4 .


Proceso calcular_promedio_ventas
DIMENSION vect(50,50)

Escribir 'ingrese la cantidad de meses'
Leer m
Escribir 'Digite los valores de las ventas por cada mes:'
Para i<-1 Hasta m Con Paso 1 Hacer
Escribir 'Mes ',i
Para j<-1 Hasta 10 Con Paso 1 Hacer
Leer vect(i,j)
FinPara
FinPara
Para i<-1 Hasta m Con Paso 1 Hacer
Para j<-1 Hasta 10 Con Paso 1 Hacer
acm<-acm+vect(i,j)
FinPara
FinPara
prom<-acm/m
Escribir 'El promedio general de ventas de la empresa es: ',prom
Para i<-1 Hasta m Con Paso 1 Hacer
Para j<-1 Hasta 10 Con Paso 1 Hacer
Si (vect(i,j)>prom) Entonces
Escribir 'Las ventas destacadas son: ',vect(i,j)
FinSi
FinPara
FinPara
FinProceso


Diagrama de flujo