Estadigrafo En Psint Y C++

Proceso sin_titulo

Dimension valores[1000];

Dimension cmoda[1000];

Dimension moda[1000];

media<-0;

Escribir 'Ingrese cuantos elementos son:';

Leer lon;

Escribir 'NOTA************************************************************************';

Escribir 'Para un optimo desempeno del prog. debes ingrezar todos los numeros que te piden';

Escribir '****************************************************************************';

Escribir '';

Escribir '';

Para indice<-1 Hasta lon Hacer // Repito tantas veces haya introducido en lo anterior

Escribir 'Ingrese el elemento numero ',indice,' : ';

Leer valores[indice];//Leo los numeros

FinPara //Fin de repeticion

long<-lon-1;

// Ordeno de menor a mayor para luego llamarlo en los casos siguientes

Para indice<-1 Hasta lon Hacer

para subindice<-1 Hasta lon Hacer

si (valores[indice]<valores[subindice]) Entonces //Comparo un numero para saber si es menor con el que le sigue

aux<-valores[indice]; //intercambio los lugares

valores[indice]<-valores[subindice];

valores[subindice]<-aux;

FinSi

FinPara

FinPara

salir<-1;

Mientras salir=1 Hacer

Escribir 'Opcion a procesar:';

Escribir '----------------------------------------------';

Escribir '1. Ordenar de menor a mayor.';

Escribir '2. Ordenar de mayor a menor.';

Escribir '3. Sacar la media.';

Escribir '4. Sacar la mediana.';

Escribir '5. Sacar la moda.';

Escribir '6. Sacar la varianza.';

Escribir '----------------------------------------------';

Leer procesar;

Segun procesar Hacer

1: // muestro el orden de menor a mayor

Escribir '******** Numeros ordenados de menor a mayor ********'

Para indice<-1 Hasta lon Hacer //Muestro el vector ordenado

Escribir 'Elemento numero ',indice,' : ',valores[indice];

FinPara

2: // muestro el orden de mayor a menor

Escribir '******** Numeros ordenados de mayor a menor ********'

Para indice<-1 Hasta lon Hacer //Muestro el vector ordenado

Escribir 'Elemento numero ',indice,' : ',valores[lon+1-indice];

FinPara

3: // saco la media

Para indice<-1 Hasta lon Hacer

media<-media+valores[indice];

FinPara

media<-media/lon;

Escribir 'La media es: ',media;

4: // saco la mediana

Si lon %2=0 Entonces

valor<-lon/2;

dato1<-valores[valor];

valor<-((lon/2)+1);

dato2<-valores[valor];

mediana<-((dato1+dato2)/2)

Escribir 'Mediana: ',mediana;

Sino

valor<-((lon+1)/2);

mediana<-valores[valor];

Escribir 'Mediana: ',mediana;

FinSi

5: //saco la moda

j<-1;

cont<-1;

Para i<-1 Hasta lon Hacer

Si i=lon Entonces

Si valores[i]=valores[i-1] Entonces

cmoda[j]<-cont;

moda[j]<-valores[i];

Sino

cmoda[j]<-cont;

moda[j]<-valores[i];

...