Evap11 Martes-Jueves
Proceso procedimientos
Definir suma, INICIAL, FINAL, i, MAX1, MIN1 como entero;
Definir PROM como real;
Dimension vector(10);
INICIAL = 1;
FINAL = 10;
Escribir ("M E N U");
Escribir ("********************");
Escribir ("1) SUMAR");
Escribir ("2) PROMEDIO");
Escribir ("3) MAXIMO");
Escribir ("4) MINIMO");
Escribir ("5) CONTAR");
Escribir ("********************");
Escribir ("Ingrese una opción: ");
Leer opcion
Segun opcion hacer
1: SUMAR()
2: PROMEDIO()
3: MAXIMO()
4: MINIMO()
5: CONTAR()
FinSegun
FinProceso
SubProceso SUMAR()
Dimension vector(10)
Definir inicial ,final, i Como Entero
inicial=1
final=10
Para i<-inicial Hasta final Con Paso 1 Hacer
Escribir "ingrese v[",i,"]="; leer vector(i);
Fin Para
Para i<-inicial Hasta final Con Paso 1 Hacer
Escribir "ingrese v[",i,"]="; vector(i);
Fin Para
Mientras i<=final Hacer
i=i+1
Fin Mientras
suma <- prom * final
Escribir "la suma es:", suma;
FinSubProceso
SubProceso PROMEDIO()
dimension vector(10)
definir inicial,final,i como entero
inicial=1
final=10
Para i<-inicial Hasta final Con Paso 1 Hacer
Escribir "ingrse v[",i,"]=";leer vector(i)
Fin Para
Para i<-inicial Hasta final Con Paso 1 Hacer
Escribir "ingrse v[",i,"]=";leer vector(i)
Fin Para
i=1
suma=0
Mientras i<=final Hacer
suma<- suma+vector(i)
i<-i+1
Fin Mientras
prom <-suma/final
Escribir "el promedio es :"; prom:
FinSubProceso
SubProceso MAXIMO()
Dimension vector(10)
Definir INICIAL, FINAL, i como entero
INICIAL = 1
FINAL = 5
Para i <- INICIAL hasta FINAL con paso 1 hacer
Escribir ("Ingrese V[i]="), vector(i)
FinPara
Para i <- INICIAL hasta FINAL con paso 1 Hacer
Escribir ("Ingrese V[i]="), vector(i)
FinPara
MAX <- vector(i);
Repetir
si vector(i)>MAX1 Entonces
MAX1 <- vector(i);
Sino
MAX1 <- MAX1;
FinSi
i <- i+1;
Hasta Que i >= FINAL
Escribir ("El máximo de los elementos es: "), MAX1;
FinSubProceso
SubProceso MINIMO()
Dimension vector(10);
Definir INICIAL, FINAL, i como entero;
INICIAL = 1
FINAL = 10
Para i <- INICIAL hasta FINAL con paso 1 hacer
Escribir ("Ingrese V[i]= "), vector(i);
FinPara
Para i <- INICIAL hasta FINAL con paso 1 hacer
Escribir ("Ingrese V[i]= "), vector(i);
FinPara
MIN <- vector(i);
Repetir
Si vector(i) < MIN1 Entonces
MIN1 <- vector(i);
Sino
MIN1 <- MIN1
FinSi
i <- i+1;
Hasta Que i <= FINAL
Escribir ("El mínimo de los elementos es: "), MIN1;
FinSubProceso
SubProceso CONTAR()
Dimension vector(10)
Definir Inicial,Final,i Como Entero
Inicial = 1
Escribir "Numero de elementos"
Leer Final
Si Final <= 10 Entonces
Para i <- Inicial Hasta Final Con Paso 1 Hacer
Escribir "Ingrese V[ ",i," ]= "
Leer vector(i)
Fin Para
Para i <- Inicial Hasta Final Con Paso 1 Hacer
Escribir "Posicion [ ",i," ]= ",vector(i)
Fin Para
Escribir "Numero de Veces Repetidas"
Escribir "Comprobar:"
Leer a
i = 1
q = 0
Mientras a = Vector(i) Hacer
Si i <= Final Entonces
q = q + 1
i = i + 1
SiNo
Escribir "Fuera de Rango"
Fin Si
FinMientras
Escribir "El Numero ", a ," se repite " , q , " veces"
SiNo
Escribir " "
Escribir "Numero de elementos Maximos: 10"
FinSi
FinSubProceso