Punto 20.
Subrutina entera[] Rellenar(entero[] vector)
Para i=0,vector.length haga
vector[i] = random(0,100)
Retorna vector
finPara
FinSubrutina
Subrutina entera[] eliminar(entero[] vector, entero p, entero valor)
vector[p] = valor
retorna vector
FinSubrutina
Subrutina imprimir(entero[] vector)
Para i=0,vector.lenght haga
Si(i!=vector.length-1) entonces
Esc(vector[i],” -> ”)
Sino
Esc(vector[i])
Finsi
finPara
FinSubrutina
Inicio
Entero tamaño = random(1,20)
Entero[] vector = vector[tamaño]
Esc(“El vector tiene un tamaño de “, tamaño)
vector = rellenar(vector)
imprimir(vector)
esc(“Porfavor digite la casilla a borrar: ”)
entero p
leer p
p = p-1
esc(“digite el valor a intercambiar:”)
entero valor
leer valor
vector = eliminar (vector,p,valor)
imprimir (vector)
Fin
Punto 22.
Inicio Escribir "Ingrese un número: "
Leer numero
c = contarDigitos(numero)
Dimensionar arregloCifras[c]
Para i <- c - 1 Hasta 0 Con Paso 1 Hacer
arregloCifras[i] <- numero % 10
numero <- numero / 10
FinPara
Escribir "El número en arreglo es: "
imprimir(arregloCifras)
Fin
Función contarDigitos(numero)
contador <- 0
Mientras numero <> 0 Hacer
numero <- numero / 10
contador <- contador + 1
FinMientras
Retornar contador
FinFunción
Subproceso imprimir(vector)
Para i <- 0 Hasta longitud(vector) Con Paso 1 Hacer
Si i <> longitud(vector) - 1 Entonces
Escribir vector[i], " -> "
SiNo
Escribir vector[i]
FinSi
FinPara
FinSubproceso
Punto 24.
Inicio
Escribir "Ingrese un número: "
Leer numero
c <- contarDigitos(numero)
Dimensionar arregloCifras[c]
Para i <- c - 1 Hasta 0 Con Paso 1 Hacer
arregloCifras[i] <- numero % 10
numero <- numero/ 10
FinPara
Escribir "El número en arreglo es: "
imprimir(arregloCifras)
Fin
Función contarDigitos(numero)
contador <- 0
Mientras numero <> 0 Hacer
numero <- numero/10
contador <- contador + 1
FinMientras
Retornar contador
FinFunción
Subproceso imprimir(vector)
Para i <- 0 Hasta longitud(vector) Con Paso 1 Hacer
Si i <> longitud(vector) - 1 Entonces
Escribir vector[i], " -> "
SiNo
Escribir vector[i]
FinSi
FinPara
FinSubproceso
Punto 26.
Inicio
Escribir "Ingrese el tamaño del vector: "
Leer tamaño
Dimensionar vector[tamaño]
Escribir "Ingrese los elementos del vector:"
Para i <- 0 Hasta longitud(vector) - 1 Con Paso 1 Hacer
Leer vector[i]
FinPara
esPerfecto <- verdadero
sumaAnteriores <- 0
Para i <- 0 Hasta longitud(vector) - 1 Con Paso 1 Hacer
Si vector[i] <= sumaAnteriores Entonces
esPerfecto <- falso
FinSi
sumaAnteriores <- sumaAnteriores + vector[i]
FinPara
Escribir "El vector es:"
imprimir(vector)
Si esPerfecto Entonces
Escribir "El vector es perfecto."
SiNo Escribir "El vector no es perfecto."
FinSi
Fin
Subproceso imprimir(vector)
Para i <- 0 Hasta longitud(vector) - 1 Con Paso 1 Hacer
Si i <> longitud(vector) - 1 Entonces
Escribir vector[i], " -> "
SiNo
Escribir vector[i]
FinSi
FinPara
FinSubproceso
Punto 28.
Inicio
Entero tamaño, p
Entero[] vector, vectorFinal
Scanner leer = nuevo Scanner(System.in)
Random ran = nuevo Random()
Escribir("Ingrese el tamaño del vector: ")
tamaño = leer.nextInt()
vector = nuevo Entero[tamaño]
Escribir("Ingrese los elementos del vector: ")
Para i = 0 hasta tamaño-1 con paso 1 hacer
vector[i] = ran.nextInt(0, 100)
Fin Para
Escribir("El vector es:")
imprimir(vector)
Escribir("Por favor ingrese la casilla a borrar:")
p = leer.nextInt() - 1
vectorFinal = eliminar(vector, p)
Escribir("El vector es:")
imprimir(vectorFinal)
Punto 28.
Inicio
Entero tamaño,
Dimensionar[] vector
Dimensionar[] vectorFinal
tamaño = ran.nextInt(1,20)
Escribir("El vector tiene un tamaño de " + vector.tamaño())
vector = rellenar(vector)
imprimir(vector)
Escribir("Por favor ingrese la casilla a borrar:")
p = leer.nextInt() - 1
vectorFinal = eliminar(vector, p)
Escribir("El vector es:")
imprimir(vectorFinal)
Fin
Funcion rellenar(vector como Entero[]) como Entero[]
Para i = 0 hasta vector.tamaño()-1 con paso 1
hacer vector[i] = ran.nextInt(0, 100)
FinPara
retornar vector
Funcion eliminar(vector como Entero[], p como Entero) como Entero[]
Dimensiona[] vectorFinal
i=0
Mientras i < p hacer
vectorFinal[i] = vector[i] i = i + 1
Fin Mientras
Para j = p hasta vectorFinal.tamaño()-1 con paso 1 hacer
vectorFinal[j] = vector[j+1]
FinPara
retornar vectorFinal
Funcion imprimir(vector como Entero[]) como Vacío
Para i = 0 hasta vector.tamaño()-1 con paso 1 hacer
Si i != vector.tamaño()-1 entonces
Escribir(vector[i] + " -> ")
Sino
Escribir(vector[i])
FinSi
FinPara Escribir()
Punto 30.
Inicio
Leer tamaño
Mientras tamaño %2!=0 hacer
Imprimir "Digite el tamaño de los vectores, recuerde que tiene que ser un numero par: "
Leer tamaño
Fin Mientras
N = tamaño/2
Dimensionar[tamaño] vectorA
Dimensionar[tamaño] vectorB
vectorA = rellenar(vectorA)
vectorB = rellenar(vectorB)
Imprimir "El vector A es: "
imprimir(vectorA)
Imprimir "El vector B es: "
imprimir(vectorB)
Dimensionar[N] temporalA
Dimensionar[N] temporalB
Para i = 0 Hasta N hacer
temporalA[i] = vectorA[i]
temporalB[i] = vectorB[N+i]
FinPara
Para i = 0 Hasta N hacer
vectorA[i] = temporalB[i]
vectorB[N+i] = temporalA[i]
Fin Para
Imprimir "Luego de haber aplicado la función los vectores quedan: "
Imprimir "El vector A es: "
imprimir(vectorA)
Imprimir "El vector B es: "
imprimir(vectorB)
Fin
Función rellenar(vector)
Para i = 0 Hasta longitud de vector hacer
vector[i] = random.nextInt(0, 100)
Fin Para
Devolver vector
Fin Función
Función imprimir(vector)
Para i = 0 Hasta longitud de vector hacer
Si i ¡= longitud de vector - 1 entonces
Imprimir vector[i] + " -> "
Sino Imprimir vector[i]
Fin Si
Fin Para
Fin Función
Punto 32.
Inicio
Escribir "Por favor digite el tamaño del vector:"
Leer N
vector <- crearVector(N)
vector2 <- crearSegundoVector(vector)
Escribir "El vector 1 es:"
imprimirVector(vector)
Escribir "El vector 2 es:"
imprimirVector(vector2)
Fin
Función crearVector(N: entero): arreglo de reales
Para i desde 0 hasta N-1 hacer
vector[i] <- aleatorio(0, 100)
FinPara
Devolver vector
FinFunción
Función crearSegundoVector(vector: arreglo de reales): arreglo de reales
valorSobreElPorcentaje <- encontrarMayor(vector)
vector2 <- nuevo arreglo de reales de tamaño N
Para i desde 0 hasta N-1 hacer
vector2[i] <- (Abs(vector[i])/valorSobreElPorcentaje)*100
FinPara
Devolver vector2
FinFunción
Función encontrarMayor(vector: arreglo de reales): real
maximoValorAbsoluto <- Abs(vector[0])
Para i desde 1 hasta N-1 hacer
valorAbsoluto <- Abs(vector[i])
Si valorAbsoluto > maximoValorAbsoluto Entonces
maximoValorAbsoluto <- valorAbsoluto
FinSi
FinPara
Devolver maximoValorAbsoluto
FinFunción
Procedimiento imprimirVector(vector: arreglo de reales)
Para i desde 0 hasta N-1 hacer
Si i != N-1 Entonces
Escribir vector[i] + " -> "
Sino
Escribir vector[i]
FinSi
FinPara
FinProcedimiento
Punto 34.
Inicio
Definir N, i Como Entero
Definir valorAleatorio Como Real
Escribir "Diga el tamaño del vector recuerda que debe ser mayor de 2"
Leer N
Mientras N < 3 Hacer
Escribir "Diga el tamaño del vector recuerda que debe ser
mayor de 2"
Leer N
FinMientras
Dimension vector[N]
Para i = 0 Hasta N-1 Con Paso 1 Hacer
valorAleatorio = Aleatorio(0, 100)
vector[i] = valorAleatorio
FinPara
vector2 = CrearVectorResultante(vector)
Escribir "El vector original es:"
Imprimir(vector)
Escribir "El vector resultante es:"
Imprimir(vector2)
Fin
Funcion CrearVectorResultante(vector Como Real) Como Real
Definir vector2 Como Real
Definir i Como Entero
vector2[0] = vector[0]
vector2[N-1] = vector[N-1]
Para i = 1 Hasta N-2 Con Paso 1 Hacer
vector2[i] = (vector[i-1] + vector[i] + vector[i+1]) / 3
FinPara
Devolver vector2
FinFuncion
Procedimiento Imprimir(vector Como Real)
Definir i Como Entero
Para i = 0 Hasta N-1 Con Paso 1 Hacer
Si i != N-1 Entonces
Escribir(vector[i], " -> ")
Sino
Escribir(vector[i])
FinSi
FinPara
Escribir()
FinProcedimiento
Punto 36.
Algoritmo reestructurarVector
Escribir "Escriba el tamaño del vector:"
Leer N
dimension vector[N]
vector = rellenar(vector)
Escribir "El vector generado es:"
imprimir(vector)
Escribir "Seleccione el pivote de reorganizacion: "
Leer pivote
vector2 = reestructurarVector(vector, pivote)
imprimir(vector2)
FinAlgoritmo
Funcion rellenar(vector)
Para i = 0 hasta N-1 hacer
vector[i] = aleatorioEntre(0, 100)
Fin Para
Devolver vector
FinFuncion
Subproceso imprimir(vector)
Para i = 0 hasta N-1 hacer
Si i!= N-1 entonces
Escribir vector[i] + " -> "
Sino
Escribir vector[i]
Fin Si
Fin Para
Escribir
Fin Subproceso
Funcion reestructurarVector(vector, valorDeReorganizacion)
indiceValorDeReorganizacion = -1
Para i = 0 hasta N-1 hacer
Si vector[i] == valorDeReorganizacion entonces
indiceValorDeReorganizacion = i
Fin Si
Fin Para
dimension vectorFinal[N]
Si indiceValorDeReorganizacion == -1 entonces
Escribir "El valor de reorganización no se encuentra en el vector."
Sino
j = 0
Para i = indiceValorDeReorganizacion hasta N-1 hacer
vectorFinal[j] = vector[i]
j++
Fin Para
Para i = 0 hasta indiceValorDeReorganizacion-1 hacer
vectorFinal[j] = vector[i]
j++
Fin Para
Fin Si
Devolver vectorFinal
FinFuncion
Punto 39.
Inicio
esc("Ingrese el tamaño de los vectores: ")
leer n
Dimensionar[] vectorA
Dimensionar[] vectorB
esc("Ingrese los elementos del vector A:")
para ( I,n,1) hacer
leer num
si (contains(vectorA, num, i)) entonces
esc("Error: El número " + num + " ya se encuentra en el vector A")
retornar
FinSi
vectorA[i] = num
FinPara
esc("Ingrese los elementos del vector B:")
para(i , n) hacer
leer n
si (contains(vectorB, num, i)) entonces
esc("Error: El número " + num + " ya se encuentra en el vector B")
retornar
Finsi
vectorB[i] = num
FinPara
areEqual(vectorA, vectorB, n)
Fin
Funcion contains(int[] array, int num, int n)
para (I, n,1) hacer
Si (array[i] == num) entonces
retornar true
Finsi
FinPara
retornar false
FinFuncion
Punto 40.
Inicio
Dimensionar[5] profesores
Escribir("Ingrese el número de estudiantes: ")
Leer n
Dimensionar[n] control
Dimensionar[n] clase
Dimensionar[n]promedio
Escribir("Ingrese los códigos de los estudiantes y su promedio correspondiente:")
Para i desde 0 hasta n-1 hacer
Leer clase[i] Leer promedio[i]
FinPara
Votantes=0
Para i desde 0 hasta n-1 hacer
Si promedio[i] > 3.0 y no contiene(control, clase[i]) entonces
Escribir("Estudiante ", clase[i], ", ¿Por cuál profesor desea votar? (1-5)")
Leer voto
Mientras voto < 1 o voto > 5 hacer
Escribir("Estudiante ", clase[i], ", ¿Por cuál profesor desea votar? (1-5)")
Leer voto
FinMientras
profesores[voto - 1] = profesores[voto - 1] + 1
control[i] = 1
Sino Escribir("O el estudiante ya votó o no tiene el promedio suficiente para votar.") FinSi
FinPara
Escribir("Resultados de la votación:")
Para i desde 0 hasta 4 hacer
Escribir("Profesor ", i+1, ": ", profesores[i], " votos")
FinPara
Escribir("Número de estudiantes que votaron: ", votantes)
Fin
Funcion contiene(arreglo arr, entero val) retorna booleano
Para i desde 0 hasta longitud(arr)-1 hacer
Si arr[i] == val entonces
retornar verdadero
FinSi
FinPara
retornar falso
FinFuncion
