SEMANA # 37

TALLER HAGA PARA (ARREGLOS)


1-Elabore un algoritmo que permita leer una lista de numeros en un arreglo, calcule la suma, promedio, cuadrado y cubo
PR <- OPERACIONES
I <- CONTROLADOR
SM <- SUMA
PR <- PROMEDIO
CA <- CUADRADO
CB <- CUBO 
N <- NUMERO DE ELEMENTOS 

ARREGLO [100] DE REAL PR
ENTERO I, N
REAL SM, PM, CA, CB

INICIO

SM <- 0

ESCRIBA "DIGA LA CANTIDAD DE ELEMENTOS"
LEA N
LLAMAR NUEVA_LINEA
LLAMAR NUEVA_LINEA

PARA I <- 1 HASTA N HAGA

ESCRIBA "ENTRE EL NUMERO DE LA POSICION  #  ", I , "..... :   "
LEA PR [I]
LLAMAR NUEVA_LINEA

FIN PARA

PARA I <- 1 HASTA N HAGA

ESCRIBA PR [I]
LLAMAR NUEVA_LINEA
LLAMAR NUEVA_LINEA

FIN PARA

PARA I <- 1 HASTA N HAGA

SM <- SM + PR  [I]

FIN PARA

PM <- SM / 5

ESCRIBA "LA SUMA ES: ", SM
LLAMAR NUEVA_LINEA
LLAMAR NUEVA_LINEA

ESCRIBA "EL PROMEDIO ES :", PM
LLAMAR NUEVA_LINEA
LLAMAR NUEVA_LINEA

PARA I<-1 HASTA N HAGA

CA <- PR[I]^ 2
ESCRIBA "EL CUADRADO ES: ", CA
LLAMAR NUEVA_LINEA
FIN PARA

LLAMAR NUEVA_LINEA
LLAMAR NUEVA_LINEA

PARA I<-1 HASTA N HAGA

CB <-PR[I]^ 3
ESCRIBA "EL CUBO ES: ",CB
LLAMAR NUEVA_LINEA
FIN PARA

FIN

2-Elabore un programa que sume los primeros 25 numeros enteros guardados en un vector. se desea imprimir la lista de numeros y al final la suma de los mismos
MS <- SUMAS
SM <- SUMA 
X <- CONTROLADOR

ARREGLO [25] DE ENTERO MS
ENTERO X, SM

INICIO

SM <- 0

PARA X <- 1 HASTA 25 HAGA

ESCRIBA "DIGITE EL NUMERO DE LA POSICION #  ", X, "..:"
LEA MS[X]
LLAMAR NUEVA_LINEA

FIN PARA

PARA X <- 1 HASTA 25 HAGA

SM <- SM + MS[X]

FIN PARA

PARA X <- 1 HASTA 25 HAGA

ESCRIBA MS[X]
LLAMAR NUEVA_LINEA 

FIN PARA

ESCRIBA "LA SUMA ES: ", SM
LLAMAR NUEVA_LINEA

FIN

3-Generar e imprimir un vector de 10 numeros enteros y encontrar el mayor de ello. Desplegar el resultado
MR <- MAYOR
MY <- MAYOR DE TODOS
K <- CONTROLADOR

ARREGLO [10] DE ENTERO MR
ENTERO K, MY

INICIO

MY <- 0

PARA K <- 1 HASTA 10 HAGA

ESCRIBA "INGRESE ELNUMERO DE LA POSICION # ",K ,"...:"
LEA MR [K]
LLAMAR NUEVA_LINEA

FIN PARA

PARA K <- 1 HASTA 10 HAGA

ESCRIBA MR [k]
LLAMAR NUEVA_LINEA
LLAMAR NUEVA_LINEA

FIN PARA

PARA K <- 1 HASTA 10 HAGA

SI ( MR [k] > MY ) ENTONCES

MY <- MR [k]

FIN SI
FIN PARA

ESCRIBA "EL NUMERO MAYOR ES:",MY

FIN

4-Dados dos arreglos A y B de igual numero de elementos se desea generar e imprimir un vector C conteniendo las sumas: A[I]+B[I]=C[I]
I <- CONTOLADOR
N <- NUMERO DE ELEMENTOS


ARREGLO [100] DE ENTERO A
ARREGLO [100] DE ENTERO B
ARREGLO [100] DE ENTERO C
ENTERO I, N

INICIO

ESCRIBA "DIGA LA CANTIDAD DE ELEMENTOS"
LEA N
LLAMAR NUEVA_LINEA
LLAMAR NUEVA_LINEA

PARA I <- 1 HASTA N HAGA 

ESCRIBA "INGRESE EL ELEMENTO # ",I, " DEL VECTOR A :" 
LEA A [I]
LLAMAR NUEVA_LINEA

FIN PARA


PARA I <- 1 HASTA N HAGA 

ESCRIBA "INGRESE EL ELEMENTO # ",I, " DEL VECTOR B :" 
LEA B [I]
LLAMAR NUEVA_LINEA

FIN PARA

PARA I <- 1 HASTA N HAGA

C[I] <- A[I] + B[I]

FIN PARA

PARA I <- 1 HASTA N HAGA

ESCRIBA "LOS ELEMENTOS DE VECTOR C SON :", C[I]
LLAMAR NUEVA_LINEA

FIN PARA

FIN

5-Elabore un arreglo de n posisciones y llenarlo con nombres de persona 
NM <- NOMBRES
N <- NUMERO DE ELEMNTOS
Z <- CONTROLADOR

ARREGLO [100] DE CADENA [25] NM
ENTERO Z, N

INICIO
ESCRIBA "DIGA LA CANTIDAD DE ELEMENTOS"
LEA N
LLAMAR NUEVA_LINEA
LLAMAR NUEVA_LINEA

PARA Z <- 1 HASTA N HAGA

ESCRIBA "ENTRE EL NOMBRE DE LA POSICION # ",Z, "..:"
LEA NM [Z]
LLAMAR NUEVA_LINEA

FIN PARA 

PARA Z <- 1 HASTA N HAGA

ESCRIBA NM [Z]
LLAMAR NUEVA_LINEA

FIN PARA

FIN

6- Llenar un vector con numeros enteros(numeros negativos o positivos) mostras la cantidad de numeros positivos que se hayen en dicho arreglo 
NP <- NEGATIVOS  O POSITIVOS
K <- CONTRLADOR
N <- NUMERO DE ELEMENTOS
CP <- CANTIDA DE POSITIVOS*/

ARREGLO [100] DE ENTERO NP
ENTERO K, N, CP

INICIO 
CP <- 0

ESCRIBA "DIGA LA CANTIDAD DE ELEMENTOS: "
LEA N
LLAMAR NUEVA_LINEA
LLAMAR NUEVA_LINEA


PARA K <- 1 HASTA N HAGA  

ESCRIBA "ENTRE EL NUMERO DE LA POSICION # ",K , "..: "
LEA NP [K]
LLAMAR NUEVA_LINEA

FIN PARA 

PARA K <- 1 HASTA N HAGA

SI (NP [K] > 0 ) ENTONCES

CP <- CP+1
ESCRIBA "LA CANTIDAD DE POSITIVOS ES: ", CP
LLAMAR NUEVA_LINEA

FIN SI 

FIN PARA

FIN

7-Almacene en un arreglo de posiciones de nombres de paises. implemtar una opcion que al difitar una posición muestre el dato que contiene
C <- CONTROLADOR
P <- POSICIÓN
NP <- NOMBRE DEL PAÍS
PS <- PAÍSES



ARREGLO [5] DE CADENA [25] PS
ENTERO C, P, NP

INICIO

ESCRIBA "DIGITE EL NUMERO DE POSICIONES DEL VECTOR: "
LEA NP
LLAMAR NUEVA_LINEA

PARA C <- 1 HASTA NP HAGA

ESCRIBA "DIGITE EL PAIS DE LA POSICION # ",C , "...:"
LEA PS [C]
LLAMAR NUEVA_LINEA

FIN PARA

ESCRIBA "DIGITE LA POSICION DE UN ELEMENTO : "
LEA P
LLAMAR NUEVA_LINEA

ESCRIBA PS [P]

FIN

8-Se tiene un arreglo de m elementos en un archivo. El arreglo contiene valores numéricos en forma no ordenada. Lea el arreglo e imprima sus elementos en forma
ordenada
OR <- ORDENAR
I <- CONTROLADOR
J <- CONTROLADOR ORDENADO
AX <- AUXILIAR 
M <- NUMEROS DE ELEMENTOS


ARREGLO [100] DE ENTERO OR
ENTERO I, J, AX, M

INICIO

ESCRIBA "DIGA LA CANTIDAD DE ELEMENTOS: "
LEA M
LLAMAR NUEVA_LINEA
LLAMAR NUEVA_LINEA

PARA I<-1 HASTA M HAGA

ESCRIBA "ENGRESE EL ELEMENTO DE LA POSICION # ",I , "..:"
LEA OR[I]
LLAMAR NUEVA_LINEA

FIN PARA

PARA I<-1 HASTA M HAGA

AX <- OR[I]
J<-I-1

MIENTRAS (J>=0) Y (OR[J]>AX) HAGA

OR[J+1]<-OR[J]
J<-J-1

FIN MIENTRAS

OR[J+1]<-AX

FIN PARA

PARA I<-1 HASTA M HAGA

ESCRIBA "POSICION ",I," ES: ",OR[I]
LLAMAR NUEVA_LINEA

FIN PARA

FIN