SubProceso Menor_()
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
i = 1
Suma = 0
Mientras i<=Final Hacer
Suma = Suma + Vector(i)
i = i + 1
FinMientras
Prom = Suma/Final
Escribir " "
Escribir "Promedio: ", Prom
i = 1
Min<-0
Para i = 1 Hasta Final Con Paso 1 Hacer
Si Vector(i) < Prom Entonces
Min = Vector(i)
Escribir " "
Escribir "Menor al Promedio:", Min
SiNo
Escribir " "
Fin Si
Fin Para
SiNo
Escribir " "
Escribir "Numero de elementos Maximos: 10"
FinSi
Fin SubProceso
SubProceso Mayor_()
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
i = 1
Suma = 0
Mientras i<=Final Hacer
Suma = Suma + Vector(i)
i = i + 1
FinMientras
Prom = Suma/Final
Escribir " "
Escribir "Promedio: ", Prom
i = 1
Max<-0;
Para i = 1 Hasta Final Con Paso 1 Hacer
Si Vector(i) > Prom Entonces
Max = Vector(i)
Escribir " "
Escribir "Mayor al Promedio:", Max
SiNo
Escribir " "
Fin Si
FinPara
SiNo
Escribir " "
Escribir "Numero de elementos Maximos: 10"
FinSi
Fin SubProceso
SubProceso Mediana()
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
Fact = 1
Para i<-inicial Hasta Final Con Paso 1 Hacer
Fact = Fact * i
Media = rc(Fact)
Fin Para
Escribir "Mediana:" Media
SiNo
Escribir " "
Escribir "Numero de elementos Maximos: 10"
FinSi
Fin SubProceso
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
Fin SubProceso
SubProceso Minimo()
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
i = 1
Min<-Vector(i);
Para i = 1 Hasta Final Con Paso 1 Hacer
Si Vector(i) < Min Entonces
Min = Vector(i);
SiNo
Min = Min
Fin Si
Fin Para
Escribir " "
Escribir "Menor Numero:", Min
SiNo
Escribir " "
Escribir "Numero de elementos Maximos: 10"
FinSi
Fin SubProceso
SubProceso Maximo()
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
i = 1
Max<-Vector(i);
Para i = 1 Hasta Final Con Paso 1 Hacer
Si Vector(i) > Max Entonces
Max = Vector(i);
SiNo
Max = Max;
Fin Si
Fin Para
Escribir " "
Escribir "Mayor Numero:", Max
SiNo
Escribir " "
Escribir "Numero de elementos Maximos: 10"
FinSi
Fin SubProceso
SubProceso Promedio()
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
i = 1
Suma = 0
Mientras i<=Final Hacer
Suma = Suma + Vector(i)
i = i + 1
FinMientras
Prom = Suma/Final
Escribir " "
Escribir "Promedio: ", Prom
SiNo
Escribir " "
Escribir "Numero de elementos Maximos: 10"
FinSi
Fin SubProceso
SubProceso Sumar()
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
i = 1
Mientras i <= Final Hacer
Suma = Suma + Vector(i)
i = i + 1
FinMientras
Escribir " "
Escribir "Resultado de la adicion: ", Suma
SiNo
Escribir " "
Escribir "Numero de elementos Maximos: 10"
FinSi
Fin SubProceso
Proceso Tarea
Escribir " "
Escribir "Seleccione una Operacion"
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"
Leer Variable
Segun Variable Hacer
1:
Sumar()
2:
Promedio()
3:
Maximo()
4:
Minimo()
5:
Contar()
6:
Mediana()
7:
Mayor_()
8:
Menor_()
De Otro Modo:
Escribir "No Existe"
Fin Segun
FinProceso
Kommentare