evap 11

martes

SubProceso suma()

//declaracion

Dimension vector(10)

Definir inicial ,final, i Como Entero

//asiganr

inicial=1

final=10

//lectura del vector

Para i<-inicial Hasta final Con Paso 1 Hacer

Escribir "ingrese v[",i,"]="; leer vector(i);

Fin Para

//ver valores del vector

Para i<-inicial Hasta final Con Paso 1 Hacer

Escribir "ingrese v[",i,"]="; vector(i);

Fin Para

//calcular suma

Mientras i<=final Hacer

i=i+1

Fin Mientras

suma <- prom * final

Escribir "la suma es:", suma;

Fin SubProceso

SubProceso maximo()

//declaracion

Dimension vector(10)

Definir inicial ,final, i Como Entero

//asiganr

inicial=1

final=10

//lectura del vector

Para i<-inicial Hasta final Con Paso 1 Hacer

Escribir "ingrese v[",i,"]="; leer vector(i);

Fin Para

//ver valores del vector

Para i<-inicial Hasta final Con Paso 1 Hacer

Escribir "ingrese v[",i,"]="; vector(i);

Fin Para

//**************maximo*************

i=1

max1 <-vector(1)

Repetir

si vector(1)>MAX1 ENTONCES

MAX1<- VECTOR(1)

SINO

MAX1 <- MAX1;

FinSi

i<- i+1;

Hasta Que i>= final

Escribir "elmaximo de los elementos es:",MAX1;

Fin SubProceso

SubProceso promedio ()

//declaracion

dimension vector(10)

definir inicial,final,i como entero

//asignar

inicial=1

final=10

//lectura de vector

Para i<-inicial Hasta final Con Paso 1 Hacer

Escribir "ingrse v[",i,"]=";leer vector(i)

Fin Para

//calcular elpromedio

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:

Fin SubProceso

proceso parametros

//declaracion

definir suma,inicial,final,i,MAX1,MIN1 como entero

definir prom como real

dimension vector(10)

inicial=1

final=10

//asignaar

Escribir "--------menu-------"

Escribir "1)sumar"

Escribir "2)promedio"

Escribir "3)maximo"

Escribir "4)minimo"

Escribir "5)contar"

Escribir "6)mediana"

Escribir "7)mayores al promedio "

Escribir "8)menores al promedio"

Escribir "poner opcion"

leer opcion

Segun opcion Hacer

1:

sumar()

2:

promedio()

3:

maximo()

4:

minimo()

5:

contAR()

6:

MEDIANA()

7:

MAYORES AL PROMEDIO()

8:

MENORES AL PROMEDIO()

De Otro Modo:

Escribir "NO ES UNA OPCION"

Fin Segun

FinProceso

FinProceso

jueves

subproceso suma1()

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

//3 ver los valores del vector

para i<-inicial hasta final con paso 1 hacer

escribir "ingrese v[",i,"]=", vector(i);

FinPara

// calcular la suma

i=1;

suma=0;

mientras i<=final Hacer

suma <- suma + vector(i);

i<-i+1

Fin Mientras

escribir "el resultado del suma es:", suma;

FinSubProceso

subproceso min1()

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

//3 ver los valores del vector

para i<-inicial hasta final con paso 1 hacer

escribir "ingrese v[",i,"]=", vector(i);

FinPara

// minimo

i=1

min<- vector(i);

repetir

si vector(i) > min entonces

min<- vector(1);

sino

min<- min:

FinSi

i<-i+1

Hasta Que i>=final

escribir " el minimo de los elementos es:", min;

Proceso vectores

definir suma, inicial, final, i, max, min1, prom Como entero

definir contar como entero

Dimension vector(10);

inicial = 1

final = 10

escribir "menu";

escribir "1) suma";

escribir "2) promedio";

escribir "3) maximo";

escribir "4) minimo";

escribir "5) contar";

escribir "6) mediana";

escribir "7) mayores al promedio";

escribir "8) menores al promedio";

Escribir "elija una opcion";

leer opcion;

segun opcion hacer

1: suma1()

2: min1()

FinSegun

FinProceso