evap11

Aqui esta una fusion de lo hecho el dia marte y jueves:7

SubProceso Minimo()
Dimension Vector(10);
Escribir "Ingrese el numero de elementos del vector:"
Leer n;
i=1
Mientras i<=n Hacer
Escribir "Ingrese el V[",i,"]= ";
Leer Vector(i);
i<-i+1;
Fin Mientras
//mirar los elementos el vector
i=1;
Escribir "Valores de los elementos del vector"
Mientras i<=n Hacer
Escribir "El V[",i,"]= " Vector(i);
i<-i+1;
FinMientras
min1<-Vector(i)
Repetir
Si Vector(i)< min1 Entonces
min1<-Vector(i)
Sino
min1<-min1
Fin Si
Hasta Que i<=FINAL
Escribir "el valor minimo es:", min1;
Fin SubProceso

SubProceso Maximo()
Dimension Vector(10);
Escribir "Ingrese el numero de elementos del vector:"
Leer n;
i=1
Mientras i<=n Hacer
Escribir "Ingrese el V[",i,"]= ";
Leer Vector(i);
i<-i+1;
Fin Mientras
//mirar los elementos el vector
i=1;
Escribir "Valores de los elementos del vector"
Mientras i<=n Hacer
Escribir "El V[",i,"]= " Vector(i);
i<-i+1;
FinMientras
min1<-Vector(i)
Repetir
Si Vector(i)> max1 Entonces
max1<-Vector(i)
Sino
max1<-min1
Fin Si
Hasta Que i<=FINAL
Escribir "el valor minimo es:", max1;
Fin SubProceso

SubProceso mayores_y_menores()
Dimension Vector(10);
INICIAL=1
FINAL=10
Escribir "Ingrese el numero de elementos del vector:"
Leer n;
i=1
Mientras i<=n Hacer
Escribir "Ingrese el V[",i,"]= ";
Leer Vector(i);
i<-i+1;
Fin Mientras
//mirar los elementos el vector
i=1;
Escribir "Elementos del vector"
Mientras i<=n Hacer
Escribir "El V[",i,"]= " Vector(i);
i<-i+1;
FinMientras
//sumar los valores del vector
i=1;
Mientras i<=n Hacer
Suma<-Suma+Vector(i);
i<-i+1;
FinMientras
Prom=Suma/n
Para i<-INICIAL Hasta FINAL Con Paso 1 Hacer
Si (Prom>Vector(i)) Entonces
M<-M+1
Sino
m1<-m1+1
Fin Si
Escribir "Loa valores mayores al promedio son: ", M , "y los menores son: ", m1;
Fin Para
Fin SubProceso

SubProceso Sumar()
Dimension Vector(10);
Escribir "Ingrese el numero de elementos del vector:"
Leer n;
i=1
Mientras i<=n Hacer
Escribir "Ingrese el V[",i,"]= ";
Leer Vector(i);
i<-i+1;
Fin Mientras
//mirar los elementos el vector
i=1;
Escribir "Valores de los elementos del vector"
Mientras i<=n Hacer
Escribir "El V[",i,"]= " Vector(i);
i<-i+1;
FinMientras
//sumar los valores del vector
i=1;
Escribir "Sumar los elementos del vector"
Mientras i<=n Hacer
Suma<-Suma+Vector(i);
i<-i+1;
FinMientras
Escribir "La suma de los elementos del V[",i,"]= ", Suma;
Finsubproceso

SubProceso Promedio()
Dimension Vector(10);
Escribir "Ingrese el numero de elementos del vector:"
Leer n;
i=1
Mientras i<=n Hacer
Escribir "Ingrese el V[",i,"]= ";
Leer Vector(i);
i<-i+1;
Fin Mientras
//mirar los elementos el vector
i=1;
Escribir "Elementos del vector"
Mientras i<=n Hacer
Escribir "El V[",i,"]= " Vector(i);
i<-i+1;
FinMientras
//sumar los valores del vector
i=1;
Escribir "Promedio de los elementos del vector"
Mientras i<=n Hacer
Suma<-Suma+Vector(i);
i<-i+1;
FinMientras
Prom=Suma/n
Escribir "El promedio de los elementos del V[",i,"]= ", Prom;
FinSubProceso

Proceso Parametros4

Definir Suma,INICIAL, FINAL,max1,min1 Como Entero;
Definir Prom,M,m1 como real;
Dimension Vector(10);
Definir i como Real;
Escribir "MENU" ;
Escribir "1) Sumar" ;
Escribir "2) Promedio" ;
Escribir "3) Maximo"
Escribir "4) Minimo"
Escribir "5) Mayores y menores al promedio"

Leer opcion;
Segun opcion hacer
1:
Sumar()
2:
Promedio()
3:
Maximo()
4:
Minimo()
5:
mayores_y_menores()
De otro modo:
Escribir "No es una Opción"
FinSegun

FinProceso

Read More