1.
Proceso SumaDeCincoNumeros
Definir num, suma, i Como Entero
suma <- 0
Para i <- 1 Hasta 5 Con Paso 1
Escribir "Ingresa un número:"
Leer num
suma <- suma + num
FinPara
Escribir "La suma total es: ", suma
FinProceso
2. -
Proceso NumeroMayor
Definir num, i, mayor Como Entero
Para i <- 1 Hasta 5 Con Paso 1
Escribir "Ingresa un número:"
Leer num
Si i = 1 Entonces
mayor <- num
Sino
Si num > mayor Entonces
mayor <- num
FinSi
FinSi
FinPara
Escribir "El número mayor es: ", mayor
FinProceso
3.-
Proceso ContarMultiplos
Definir num, divisor, i, contador Como Entero
contador <- 0
Escribir "Ingresa el divisor:"
Leer divisor
Para i <- 1 Hasta 5 Con Paso 1
Escribir "Ingresa un número:"
Leer num
Si num MOD divisor = 0 Entonces
contador <- contador + 1
FinSi
FinPara
Escribir "Cantidad de múltiplos: ", contador
FinProceso
4.-
Proceso ContarPrimosSimple
Definir num, i, j, contador, divisores Como Entero
contador <- 0
Para i <- 1 Hasta 5 Con Paso 1
Escribir "Ingresa un número:"
Leer num
divisores <- 0
Para j <- 1 Hasta num Con Paso 1
Si num MOD j = 0 Entonces
divisores <- divisores + 1
FinSi
FinPara
Si divisores = 2 Entonces
contador <- contador + 1
FinSi
FinPara
Escribir "Cantidad de números primos: ", contador
FinProceso
5.-
Proceso BuscarNumeroSimple
Definir num, buscar, i, posicion Como Entero
posicion <- -1
Para i <- 1 Hasta 7 Con Paso 1
Escribir "Ingresa un número:"
Leer num
Si posicion = -1 Entonces
Escribir "Posición actual: ", i
FinSi
Si num = buscar Entonces
posicion <- i
FinSi
FinPara
Escribir "Ingresa el número a buscar:"
Leer buscar
Si posicion <> -1 Entonces
Escribir "El número se encontró en la posición ", posicion
Sino
Escribir "El número no se encontró"
FinSi
FinProceso
6.-
Proceso ContarElementosEnComunSimple
Definir A1, A2, A3, A4, B1, B2, B3, B4, contador Como
Entero
contador <- 0
Escribir "Ingresa 4 números para A:"
Escribir "Número 1:"
Leer A1
Escribir "Número 2:"
Leer A2
Escribir "Número 3:"
Leer A3
Escribir "Número 4:"
Leer A4
Escribir "Ingresa 4 números para B:"
Escribir "Número 1:"
Leer B1
Escribir "Número 2:"
Leer B2
Escribir "Número 3:"
Leer B3
Escribir "Número 4:"
Leer B4
// Comparar y contar
Si A1 = B1 O A1 = B2 O A1 = B3 O A1 = B4 Entonces
contador <- contador + 1
FinSi
Si A2 = B1 O A2 = B2 O A2 = B3 O A2 = B4 Entonces
contador <- contador + 1
FinSi
Si A3 = B1 O A3 = B2 O A3 = B3 O A3 = B4 Entonces
contador <- contador + 1
FinSi
Si A4 = B1 O A4 = B2 O A4 = B3 O A4 = B4 Entonces
contador <- contador + 1
FinSi
Escribir "Cantidad de elementos de A que están en B: ",
contador
FinProceso
7.-
Proceso ContarElementosComunesSimple
Definir A1, A2, A3, A4, B1, B2, B3, B4, contador Como
Entero
contador <- 0
Escribir "Ingresa 4 números para A:"
Leer A1
Leer A2
Leer A3
Leer A4
Escribir "Ingresa 4 números para B:"
Leer B1
Leer B2
Leer B3
Leer B4
Si A1 = B1 O A1 = B2 O A1 = B3 O A1 = B4 Entonces
contador <- contador + 1
FinSi
Si A2 = B1 O A2 = B2 O A2 = B3 O A2 = B4 Entonces
contador <- contador + 1
FinSi
Si A3 = B1 O A3 = B2 O A3 = B3 O A3 = B4 Entonces
contador <- contador + 1
FinSi
Si A4 = B1 O A4 = B2 O A4 = B3 O A4 = B4 Entonces
contador <- contador + 1
FinSi
Escribir "Cantidad de elementos de A que están en B: ",
contador
FinProceso
8.-
Algoritmo Mostrar100Descendente
Definir numeros Como Entero
Dimensionar numeros(100)
Definir i Como Entero
// Llenar el vector con los números del 1 al 100
Para i<-1 Hasta 100 Con Paso 1 Hacer
numeros[i] <- i
FinPara
// Mostrar en orden descendente
Para i<-100 Hasta 1 Con Paso -1 Hacer
Escribir numeros[i]
FinPara
FinAlgoritmo
9.-
Proceso PrimosAscendente
Definir primos Como Entero
Dimension primos[25] // Hay 25 primos entre 1 y 100
Definir i, j, num, esPrimo, cantidad Como Entero
cantidad <- 0
Para num <- 2 Hasta 100 Con Paso 1
esPrimo <- 1
Para j <- 2 Hasta num - 1 Con Paso 1
Si num MOD j = 0 Entonces
esPrimo <- 0
FinSi
FinPara
Si esPrimo = 1 Entonces
cantidad <- cantidad + 1
primos[cantidad] <- num
FinSi
FinPara
Escribir "Números primos del 1 al 100:"
Para i <- 1 Hasta cantidad Con Paso 1
Escribir primos[i]
FinPara
FinProceso
10.-
Proceso ParesAscendente
Definir pares Como Entero
Dimension pares[50] // Hay 50 pares entre 1 y 100
Definir i, num Como Entero
num <- 2
Para i <- 1 Hasta 50 Con Paso 1
pares[i] <- num
num <- num + 2
FinPara
Escribir "Números pares del 1 al 100:"
Para i <- 1 Hasta 50 Con Paso 1
Escribir pares[i]
FinPara
FinProceso
11.-
Proceso ImparesAscendente
Definir impares Como Entero
Dimension impares[50] // Hay 50 impares del 1 al 100
Definir i, num Como Entero
num <- 1
Para i <- 1 Hasta 50 Con Paso 1
impares[i] <- num
num <- num + 2
FinPara
Escribir "Números impares del 1 al 100:"
Para i <- 1 Hasta 50 Con Paso 1
Escribir impares[i]
FinPara
FinProceso
12.-
Proceso OperacionesVector
Definir numeros Como Real
Dimension numeros[10]
Definir i Como Entero
Definir suma, resta, multi, divi Como Real
// Ingreso de datos
Para i <- 1 Hasta 10 Con Paso 1
Escribir "Ingrese el número ", i, ": "
Leer numeros[i]
FinPara
// Inicialización
suma <- 0
resta <- numeros[1]
multi <- 1
divi <- numeros[1]
// Cálculos
Para i <- 1 Hasta 10 Con Paso 1
suma <- suma + numeros[i]
multi <- multi * numeros[i]
FinPara
Para i <- 2 Hasta 10 Con Paso 1
resta <- resta - numeros[i]
divi <- divi / numeros[i]
FinPara
// Mostrar resultados
Escribir "Suma total: ", suma
Escribir "Resta acumulada: ", resta
Escribir "Multiplicación total: ", multi
Escribir "División secuencial: ", divi
FinProceso
13.-
Proceso OrdenarAscendente
Definir numeros Como Entero
Dimension numeros[10]
Definir i, j, aux Como Entero
// Ingreso de los 10 números
Para i <- 1 Hasta 10 Con Paso 1
Escribir "Ingrese el número ", i, ": "
Leer numeros[i]
FinPara
// Ordenamiento burbuja ascendente
Para i <- 1 Hasta 9 Con Paso 1
Para j <- i + 1 Hasta 10 Con Paso 1
Si numeros[i] > numeros[j] Entonces
aux <- numeros[i]
numeros[i] <- numeros[j]
numeros[j] <- aux
FinSi
FinPara
FinPara
// Mostrar números ordenados
Escribir "Números ordenados en forma ascendente:"
Para i <- 1 Hasta 10 Con Paso 1
Escribir numeros[i]
FinPara
FinProceso
14
Proceso CalcularMedia
Definir numeros Como Real
Dimension numeros[10]
Definir i Como Entero
Definir suma, media Como Real
suma <- 0
Para i <- 1 Hasta 10 Con Paso 1
Escribir "Ingrese el número ", i, ": "
Leer numeros[i]
suma <- suma + numeros[i]
FinPara
media <- suma / 10
Escribir "La media aritmética es: ", media
FinProceso
15.-
Proceso ContarSignos
Definir numeros Como Entero
Dimension numeros[10]
Definir i, positivos, negativos, ceros Como Entero
positivos <- 0
negativos <- 0
ceros <- 0
Para i <- 1 Hasta 10 Con Paso 1
Escribir "Ingrese el número ", i, ": "
Leer numeros[i]
Si numeros[i] > 0 Entonces
positivos <- positivos + 1
Sino
Si numeros[i] < 0 Entonces
negativos <- negativos + 1
Sino
ceros <- ceros + 1
FinSi
FinSi
FinPara
Escribir "Cantidad de números positivos: ", positivos
Escribir "Cantidad de números negativos: ", negativos
Escribir "Cantidad de ceros: ", ceros
FinProceso
16.-
Proceso ContarParesImpares
Definir numeros Como Entero
Dimension numeros[10]
Definir i, pares, impares Como Entero
pares <- 0
impares <- 0
Para i <- 1 Hasta 10 Con Paso 1
Escribir "Ingrese el número ", i, ": "
Leer numeros[i]
Si numeros[i] MOD 2 = 0 Entonces
pares <- pares + 1
Sino
impares <- impares + 1
FinSi
FinPara
Escribir "Cantidad de números pares: ", pares
Escribir "Cantidad de números impares: ", impares
FinProceso
17.-
Proceso CalcularDesviacionEstandar
Definir numeros Como Real
Dimension numeros[10]
Definir i Como Entero
Definir suma, media, sumaVar, desviacion Como Real
suma <- 0
// Leer números y calcular suma
Para i <- 1 Hasta 10 Con Paso 1
Escribir "Ingrese el número ", i, ": "
Leer numeros[i]
suma <- suma + numeros[i]
FinPara
media <- suma / 10
sumaVar <- 0
// Calcular suma de las varianzas (diferencias al cuadrado)
Para i <- 1 Hasta 10 Con Paso 1
sumaVar <- sumaVar + (numeros[i] - media)^2
FinPara
// Desviación estándar = raíz cuadrada de la varianza
promedio
desviacion <- raiz(sumaVar / 10)
Escribir "La desviación estándar es: ", desviacion
FinProceso
18.-
Proceso SegundoMayorSimple
Definir numeros Como Entero
Dimension numeros[10]
Definir i, mayor, segundoMayor Como Entero
// Leer números
Para i <- 1 Hasta 10
Escribir "Ingrese número ", i, ": "
Leer numeros[i]
FinPara
mayor <- numeros[1]
segundoMayor <- numeros[1]
Para i <- 2 Hasta 10
Si numeros[i] > mayor Entonces
segundoMayor <- mayor
mayor <- numeros[i]
Sino
Si numeros[i] > segundoMayor Entonces
segundoMayor <- numeros[i]
FinSi
FinSi
FinPara
Escribir "El segundo número mayor es: ", segundoMayor
FinProceso
19.-
Proceso SegundoMayorSimple
Definir numeros Como Entero
Dimension numeros[10]
Definir i, mayor, segundoMayor Como Entero
// Leer números
Para i <- 1 Hasta 10
Escribir "Ingrese número ", i, ": "
Leer numeros[i]
FinPara
mayor <- numeros[1]
segundoMayor <- numeros[1]
Para i <- 2 Hasta 10
Si numeros[i] > mayor Entonces
segundoMayor <- mayor
mayor <- numeros[i]
Sino
Si numeros[i] > segundoMayor Entonces
segundoMayor <- numeros[i]
FinSi
FinSi
FinPara
Escribir "El segundo número mayor es: ", segundoMayor
FinProceso
20.-
Proceso InvertirVector
Definir numeros Como Entero
Dimension numeros[10]
Definir i Como Entero
// Ingresar 10 números
Para i <- 1 Hasta 10
Escribir "Ingrese el número ", i, ": "
Leer numeros[i]
FinPara
// Mostrar vector invertido
Escribir "Vector en orden invertido:"
Para i <- 10 Hasta 1 Con Paso -1
Escribir numeros[i]
FinPara
FinProceso
21.-
Proceso ReemplazarNegativos
Definir numeros Como Entero
Dimension numeros[10]
Definir i Como Entero
// Ingresar 10 números
Para i <- 1 Hasta 10
Escribir "Ingrese el número ", i, ": "
Leer numeros[i]
FinPara
// Reemplazar negativos por 0
Para i <- 1 Hasta 10
Si numeros[i] < 0 Entonces
numeros[i] <- 0
FinSi
FinPara
// Mostrar vector modificado
Escribir "Vector con negativos reemplazados por 0:"
Para i <- 1 Hasta 10
Escribir numeros[i]
FinPara
FinProceso
22.-
Proceso EliminarDuplicados
Definir numeros, unicos Como Entero
Dimension numeros[10], unicos[10]
Definir i, j, k, repetido Como Entero
k <- 0 // contador para vector de únicos
// Ingreso de datos
Para i <- 1 Hasta 10
Escribir "Ingrese número ", i, ": "
Leer numeros[i]
FinPara
// Filtrar valores únicos
Para i <- 1 Hasta 10
repetido <- 0
Para j <- 1 Hasta k
Si numeros[i] = unicos[j] Entonces
repetido <- 1
FinSi
FinPara
Si repetido = 0 Entonces
k <- k + 1
unicos[k] <- numeros[i]
FinSi
FinPara
// Mostrar valores únicos
Escribir "Valores únicos ingresados:"
Para i <- 1 Hasta k
Escribir unicos[i]
FinPara
FinProceso
23.-
Proceso Divisibles3o5
Definir numeros Como Entero
Dimension numeros[10]
Definir i, contador Como Entero
contador <- 0
// Leer 10 números
Para i <- 1 Hasta 10
Escribir "Ingrese el número ", i, ": "
Leer numeros[i]
// Verificar si es divisible por 3 o 5
Si numeros[i] MOD 3 = 0 O numeros[i] MOD 5 = 0
Entonces
contador <- contador + 1
FinSi
FinPara
Escribir "Cantidad de números divisibles entre 3 o 5: ",
contador
FinProceso
24.-
Proceso SumaVectores
Definir A, B, C Como Entero
Dimension A[5], B[5], C[5]
Definir i Como Entero
// Ingresar valores para el vector A
Para i <- 1 Hasta 5
Escribir "Ingrese número ", i, " para el vector
A: "
Leer A[i]
FinPara
// Ingresar valores para el vector B
Para i <- 1 Hasta 5
Escribir "Ingrese número ", i, " para el vector
B: "
Leer B[i]
FinPara
// Sumar elemento a elemento en el vector C
Para i <- 1 Hasta 5
C[i] <- A[i] + B[i]
FinPara
// Mostrar el vector resultante C
Escribir "Vector resultado (A + B):"
Para i <- 1 Hasta 5
Escribir "C[", i, "] = ", C[i]
FinPara
FinProceso
25.-
Proceso Fibonacci50
Definir fib Como Real
Dimension fib[50]
Definir i Como Entero
fib[1] <- 0
fib[2] <- 1
Para i <- 3 Hasta 50
fib[i] <- fib[i-1] + fib[i-2]
FinPara
Escribir "Los primeros 50 números de la serie
Fibonacci son:"
Para i <- 1 Hasta 50
Escribir fib[i]
FinPara
FinProceso
26.-
Proceso LeerYMostrarMatriz
Definir N, i, j Como Entero
Escribir "Ingrese el tamaño N de la matriz (N x
N):"
Leer N
Dimension matriz[N,N]
// Leer datos de la matriz
Para i <- 1 Hasta N
Para j <- 1 Hasta N
Escribir "Ingrese el elemento [", i, ",", j, "]:"
Leer matriz[i,j]
FinPara
FinPara
// Mostrar matriz
Escribir "Contenido de la matriz:"
Para i <- 1 Hasta N
Para j <- 1 Hasta N
Escribir matriz[i,j], " ";
FinPara
Escribir "" // Salto de línea para fila siguiente
FinPara
FinProceso
27. -
Proceso SumaColumnasMatriz2x2
Dimension matriz[2,2]
Definir i, j, sumaCol1, sumaCol2 Como Entero
sumaCol1 <- 0
sumaCol2 <- 0
// Ingresar datos
Para i <- 1 Hasta 2
Para j <- 1 Hasta 2
Escribir "Ingrese el elemento [", i, ",", j, "]:"
Leer matriz[i,j]
FinPara
FinPara
// Calcular suma de columnas
Para i <- 1 Hasta 2
sumaCol1 <- sumaCol1 + matriz[i,1]
sumaCol2 <- sumaCol2 + matriz[i,2]
FinPara
// Mostrar resultados
Escribir "Suma de la columna 1: ", sumaCol1
Escribir "Suma de la columna 2: ", sumaCol2
FinProceso
28.-
Proceso SumaTotalMatriz3x2
Dimension matriz[3,2]
Definir i, j, sumaTotal Como Entero
sumaTotal <- 0
// Ingresar datos
Para i <- 1 Hasta 3
Para j <- 1 Hasta 2
Escribir "Ingrese el elemento [", i, ",", j, "]:"
Leer matriz[i,j]
FinPara
FinPara
// Calcular suma total
Para i <- 1 Hasta 3
Para j <- 1 Hasta 2
sumaTotal <- sumaTotal + matriz[i,j]
FinPara
FinPara
// Mostrar resultado
Escribir "La suma total de los elementos es: ",
sumaTotal
FinProceso
29.-
Proceso ContarParesImparesMatriz3x2
Dimension matriz[3,2]
Definir i, j, pares, impares Como Entero
pares <- 0
impares <- 0
// Ingresar datos
Para i <- 1 Hasta 3
Para j <- 1 Hasta 2
Escribir "Ingrese el elemento [", i, ",", j, "]:"
Leer matriz[i,j]
FinPara
FinPara
// Contar pares e impares
Para i <- 1 Hasta 3
Para j <- 1 Hasta 2
Si matriz[i,j] MOD 2 = 0 Entonces
pares <- pares + 1
Sino
impares <- impares + 1
FinSi
FinPara
FinPara
// Mostrar resultados
Escribir "Cantidad de números pares: ", pares
Escribir "Cantidad de números impares: ",
impares
FinProceso
30.-
Proceso BuscarNumeroEnMatriz3x2Simple
Dimension matriz[3,2]
Definir i, j, num, encontrado Como Entero
encontrado <- 0
Para i <- 1 Hasta 3
Para j <- 1 Hasta 2
Escribir "Ingrese número [", i, ",", j, "]:"
Leer matriz[i,j]
FinPara
FinPara
Escribir "Número a buscar:"
Leer num
Para i <- 1 Hasta 3
Para j <- 1 Hasta 2
Si matriz[i,j] = num Entonces
Escribir "Número encontrado en
posición: ", i, ",", j
encontrado <- 1
FinSi
FinPara
FinPara
Si encontrado = 0 Entonces
Escribir "Número no encontrado."
FinSi
FinProceso
31.-
Proceso SumarMatrices2x2
Dimension A[2,2], B[2,2], C[2,2]
Definir i, j Como Entero
// Ingresar datos para matriz A
Para i <- 1 Hasta 2
Para j <- 1 Hasta 2
Escribir "Ingrese elemento A[", i, ",", j, "]:"
Leer A[i,j]
FinPara
FinPara
// Ingresar datos para matriz B
Para i <- 1 Hasta 2
Para j <- 1 Hasta 2
Escribir "Ingrese elemento B[", i, ",", j, "]:"
Leer B[i,j]
FinPara
FinPara
// Sumar matrices A y B en C
Para i <- 1 Hasta 2
Para j <- 1 Hasta 2
C[i,j] <- A[i,j] + B[i,j]
FinPara
FinPara
// Mostrar matriz C
Escribir "Matriz C (resultado de la suma):"
Para i <- 1 Hasta 2
Para j <- 1 Hasta 2
Escribir C[i,j], " ";
FinPara
Escribir ""
FinPara
FinProceso
32.-
Proceso MultiplicarMatrices2x2Simple
Dimension A[2,2], B[2,2], C[2,2]
Definir i, j, k Como Entero
// Ingresar matriz A
Para i <- 1 Hasta 2
Para j <- 1 Hasta 2
Escribir "Ingrese A[", i, ",", j, "]:"
Leer A[i,j]
FinPara
FinPara
// Ingresar matriz B
Para i <- 1 Hasta 2
Para j <- 1 Hasta 2
Escribir "Ingrese B[", i, ",", j, "]:"
Leer B[i,j]
FinPara
FinPara
// Multiplicar A x B = C
Para i <- 1 Hasta 2
Para j <- 1 Hasta 2
C[i,j] <- 0
Para k <- 1 Hasta 2
C[i,j] <- C[i,j] + A[i,k] * B[k,j]
FinPara
FinPara
FinPara
// Mostrar matriz C
Escribir "Matriz resultante C:"
Para i <- 1 Hasta 2
Para j <- 1 Hasta 2
Escribir C[i,j], " ";
FinPara
Escribir ""
FinPara
FinProceso
33.-
Proceso SumaFilasMatriz2x2
Dimension matriz[2,2]
Definir i, j, sumaFila Como Entero
// Ingresar datos
Para i <- 1 Hasta 2
Para j <- 1 Hasta 2
Escribir "Ingrese elemento [", i, ",", j, "]:"
Leer matriz[i,j]
FinPara
FinPara
// Calcular suma de cada fila
Para i <- 1 Hasta 2
sumaFila <- 0
Para j <- 1 Hasta 2
sumaFila <- sumaFila + matriz[i,j]
FinPara
Escribir "Suma de la fila ", i, ": ", sumaFila
FinPara
FinProceso
34.-
Proceso MatrizIdentidad
Definir N, i, j Como Entero
Escribir "Ingrese el tamaño N de la matriz
identidad:"
Leer N
Dimension matriz[N,N]
Para i <- 1 Hasta N
Para j <- 1 Hasta N
Si i = j Entonces
matriz[i,j] <- 1
Sino
matriz[i,j] <- 0
FinSi
FinPara
FinPara
Escribir "Matriz identidad ", N, "x", N, ":"
Para i <- 1 Hasta N
Para j <- 1 Hasta N
Escribir matriz[i,j], " ";
FinPara
Escribir ""
FinPara
FinProceso
35.-
Proceso LlenarDiagonalSuperior
Definir N, i, j Como Entero
Escribir "Ingrese el tamaño N de la matriz:"
Leer N
Dimension matriz[N,N]
// Inicializar toda la matriz en 0
Para i <- 1 Hasta N
Para j <- 1 Hasta N
matriz[i,j] <- 0
FinPara
FinPara
// Llenar diagonal superior (j > i)
Para i <- 1 Hasta N
Para j <- i + 1 Hasta N
Escribir "Ingrese elemento en posición [", i,
",", j, "]:"
Leer matriz[i,j]
FinPara
FinPara
// Mostrar matriz resultante
Escribir "Matriz con diagonal superior llenada:"
Para i <- 1 Hasta N
Para j <- 1 Hasta N
Escribir matriz[i,j], " ";
FinPara
Escribir ""
FinPara
FinProceso
36.-
Proceso LlenarDiagonalInferior
Definir N, i, j Como Entero
Escribir "Ingrese el tamaño N de la matriz:"
Leer N
Dimension matriz[N,N]
// Inicializar matriz con ceros
Para i <- 1 Hasta N
Para j <- 1 Hasta N
matriz[i,j] <- 0
FinPara
FinPara
// Llenar diagonal inferior (i > j)
Para i <- 2 Hasta N
Para j <- 1 Hasta i - 1
Escribir "Ingrese elemento en posición [", i,
",", j, "]:"
Leer matriz[i,j]
FinPara
FinPara
// Mostrar matriz resultante
Escribir "Matriz con diagonal inferior llenada:"
Para i <- 1 Hasta N
Para j <- 1 Hasta N
Escribir matriz[i,j], " ";
FinPara
Escribir ""
FinPara
FinProceso
37.-
Proceso MatrizTranspuesta
Definir N, i, j Como Entero
Escribir "Ingrese el tamaño N de la matriz:"
Leer N
Dimension matriz[N,N], transpuesta[N,N]
// Ingresar datos de la matriz original
Para i <- 1 Hasta N
Para j <- 1 Hasta N
Escribir "Ingrese elemento [", i, ",", j, "]:"
Leer matriz[i,j]
FinPara
FinPara
// Calcular la matriz transpuesta
Para i <- 1 Hasta N
Para j <- 1 Hasta N
transpuesta[j,i] <- matriz[i,j]
FinPara
FinPara
// Mostrar matriz original
Escribir "Matriz original:"
Para i <- 1 Hasta N
Para j <- 1 Hasta N
Escribir matriz[i,j], " ";
FinPara
Escribir ""
FinPara
// Mostrar matriz transpuesta
Escribir "Matriz transpuesta:"
Para i <- 1 Hasta N
Para j <- 1 Hasta N
Escribir transpuesta[i,j], " ";
FinPara
Escribir ""
FinPara
FinProceso
38.-
Proceso ContarNegativosMatriz
Definir N, M, i, j, contadorNegativos Como
Entero
Escribir "Ingrese el número de filas (N):"
Leer N
Escribir "Ingrese el número de columnas (M):"
Leer M
Dimension matriz[N,M]
contadorNegativos <- 0
// Ingresar datos en la matriz
Para i <- 1 Hasta N
Para j <- 1 Hasta M
Escribir "Ingrese elemento [", i, ",", j, "]:"
Leer matriz[i,j]
FinPara
FinPara
// Contar negativos
Para i <- 1 Hasta N
Para j <- 1 Hasta M
Si matriz[i,j] < 0 Entonces
contadorNegativos <-
contadorNegativos + 1
FinSi
FinPara
FinPara
Escribir "Cantidad de números negativos en la
matriz: ", contadorNegativos
FinProceso
39.-
Proceso SumaDiagonalPrincipal
Definir N, i, j, suma Como Entero
Escribir "Ingrese el tamaño N de la matriz:"
Leer N
Dimension matriz[N,N]
suma <- 0
// Ingresar datos en la matriz
Para i <- 1 Hasta N
Para j <- 1 Hasta N
Escribir "Ingrese elemento [", i, ",", j, "]:"
Leer matriz[i,j]
FinPara
FinPara
// Sumar elementos de la diagonal principal
(donde i = j)
Para i <- 1 Hasta N
suma <- suma + matriz[i,i]
FinPara
Escribir "La suma de la diagonal principal es: ",
suma
FinProceso
40.-
Proceso SumaDiagonalSecundaria
Definir N, i, suma Como Entero
Escribir "Ingrese el tamaño N de la matriz:"
Leer N
Dimension matriz[N,N]
suma <- 0
// Ingresar datos en la matriz
Para i <- 1 Hasta N
Para j <- 1 Hasta N
Escribir "Ingrese elemento [", i, ",", j, "]:"
Leer matriz[i,j]
FinPara
FinPara
// Sumar elementos de la diagonal secundaria
// La diagonal secundaria es donde la columna
= N - fila + 1
Para i <- 1 Hasta N
suma <- suma + matriz[i, N - i + 1]
FinPara
Escribir "La suma de la diagonal secundaria es:
", suma
FinProceso
41.-
Proceso MaxMinMatriz
Definir N, M, i, j, maximo, minimo, valor Como
Entero
Escribir "Ingrese el número de filas (N):"
Leer N
Escribir "Ingrese el número de columnas (M):"
Leer M
Dimension matriz[N,M]
// Ingresar el primer elemento para inicializar
maximo y minimo
Escribir "Ingrese elemento [1,1]:"
Leer matriz[1,1]
maximo <- matriz[1,1]
minimo <- matriz[1,1]
// Ingresar el resto de elementos y actualizar
maximo y minimo
Para i <- 1 Hasta N
Para j <- 1 Hasta M
Si NO (i=1 Y j=1) Entonces
Escribir "Ingrese elemento [", i, ",", j, "]:"
Leer valor
matriz[i,j] <- valor
FinSi
Si matriz[i,j] > maximo Entonces
maximo <- matriz[i,j]
FinSi
Si matriz[i,j] < minimo Entonces
minimo <- matriz[i,j]
FinSi
FinPara
FinPara
Escribir "El valor máximo es: ", maximo
Escribir "El valor mínimo es: ", minimo
FinProceso
42.-
Proceso MatrizSimetrica
Definir M Como Entero
Dimension M[3,3]
Definir i, j Como Entero
Definir simetrica Como Logico
simetrica <- Verdadero
// Leer datos de la matriz
Para i <- 1 Hasta 3
Para j <- 1 Hasta 3
Escribir "Ingrese elemento [", i, ",", j, "]:"
Leer M[i,j]
FinPara
FinPara
// Verificar simetría
Para i <- 1 Hasta 2
Para j <- i+1 Hasta 3
Si M[i,j] <> M[j,i] Entonces
simetrica <- Falso
FinSi
FinPara
FinPara
// Resultado
Si simetrica Entonces
Escribir "La matriz es simétrica."
Sino
Escribir "La matriz NO es simétrica."
FinSi
FinProceso
43.-
Proceso MatrizDiagonal
Definir M Como Entero
Dimension M[3,3]
Definir i, j Como Entero
Definir esDiagonal Como Logico
esDiagonal <- Verdadero
// Leer la matriz
Para i <- 1 Hasta 3
Para j <- 1 Hasta 3
Escribir "Ingrese el elemento [", i, ",", j, "]:"
Leer M[i,j]
FinPara
FinPara
// Verificar si es diagonal
Para i <- 1 Hasta 3
Para j <- 1 Hasta 3
Si i <> j Y M[i,j] <> 0 Entonces
esDiagonal <- Falso
FinSi
FinPara
FinPara
// Resultado
Si esDiagonal Entonces
Escribir "La matriz es diagonal."
Sino
Escribir "La matriz NO es diagonal."
FinSi
FinProceso
44.-
Proceso DeterminanteMatriz3x3
Definir M Como Entero
Dimension M[3,3]
Definir i, j, det Como Entero
// Leer la matriz
Para i <- 1 Hasta 3
Para j <- 1 Hasta 3
Escribir "Ingrese el elemento [", i, ",", j, "]:"
Leer M[i,j]
FinPara
FinPara
// Calcular el determinante
det <- M[1,1]*(M[2,2]*M[3,3] - M[2,3]*M[3,2])
- M[1,2]*(M[2,1]*M[3,3] - M[2,3]*M[3,1]) +
M[1,3]*(M[2,1]*M[3,2] - M[2,2]*M[3,1])
// Mostrar resultado
Escribir "El determinante de la matriz es: ", det
FinProceso
45.-
Proceso MatrizAleatoria4x4
Definir M Como Entero
Dimension M[4,4]
Definir i, j Como Entero
// Llenar la matriz con números aleatorios
entre 1 y 100
Para i <- 1 Hasta 4
Para j <- 1 Hasta 4
M[i,j] <- Aleatorio(1, 100)
FinPara
FinPara
// Mostrar la matriz
Escribir "Contenido de la matriz 4x4:"
Para i <- 1 Hasta 4
Para j <- 1 Hasta 4
Escribir Sin Saltar M[i,j], " "
FinPara
Escribir ""
FinPara
FinProceso
46.-
Proceso IntercambiarFilas
Definir N, M, i, j, temp Como Entero
Escribir "Ingrese el número de filas (N):"
Leer N
Escribir "Ingrese el número de columnas (M):"
Leer M
Dimension Matriz[N, M]
// Leer datos de la matriz
Para i <- 1 Hasta N
Para j <- 1 Hasta M
Escribir "Ingrese el elemento [", i, ",", j, "]:"
Leer Matriz[i, j]
FinPara
FinPara
// Intercambiar la primera fila con la última
Para j <- 1 Hasta M
temp <- Matriz[1, j]
Matriz[1, j] <- Matriz[N, j]
Matriz[N, j] <- temp
FinPara
// Mostrar la matriz resultante
Escribir "Matriz después de intercambiar la
primera y la última fila:"
Para i <- 1 Hasta N
Para j <- 1 Hasta M
Escribir Sin Saltar Matriz[i, j], " "
FinPara
Escribir ""
FinPara
FinProceso
47.-
Proceso IntercambiarColumnas
Definir N, M, i, j, temp Como Entero
Escribir "Ingrese el número de filas (N):"
Leer N
Escribir "Ingrese el número de columnas (M):"
Leer M
Dimension Matriz[N, M]
// Leer los elementos de la matriz
Para i <- 1 Hasta N
Para j <- 1 Hasta M
Escribir "Ingrese el elemento [", i, ",", j, "]:"
Leer Matriz[i, j]
FinPara
FinPara
// Intercambiar la primera y última columna
Para i <- 1 Hasta N
temp <- Matriz[i, 1]
Matriz[i, 1] <- Matriz[i, M]
Matriz[i, M] <- temp
FinPara
// Mostrar la matriz resultante
Escribir "Matriz después de intercambiar la
primera y la última columna:"
Para i <- 1 Hasta N
Para j <- 1 Hasta M
Escribir Sin Saltar Matriz[i, j], " "
FinPara
Escribir ""
FinPara
FinProceso
48.-
Proceso MatrizTriangularSuperior
Definir N, i, j Como Entero
Escribir "Ingrese el tamaño de la matriz
cuadrada (N):"
Leer N
Dimension Matriz[N, N]
// Leer los elementos de la matriz
Para i <- 1 Hasta N
Para j <- 1 Hasta N
Escribir "Ingrese el elemento [", i, ",", j, "]:"
Leer Matriz[i, j]
FinPara
FinPara
// Convertir a matriz triangular superior
Para i <- 2 Hasta N
Para j <- 1 Hasta i - 1
Matriz[i, j] <- 0
FinPara
FinPara
// Mostrar la matriz triangular superior
Escribir "Matriz triangular superior:"
Para i <- 1 Hasta N
Para j <- 1 Hasta N
Escribir Sin Saltar Matriz[i, j], " "
FinPara
Escribir ""
FinPara
FinProceso
49.-
Proceso MatrizTriangularInferior
Definir N, i, j Como Entero
Escribir "Ingrese el tamaño de la matriz
cuadrada (N):"
Leer N
Dimension Matriz[N, N]
// Leer los datos de la matriz
Para i <- 1 Hasta N
Para j <- 1 Hasta N
Escribir "Ingrese el elemento [", i, ",", j, "]:"
Leer Matriz[i, j]
FinPara
FinPara
// Convertir a matriz triangular inferior
Para i <- 1 Hasta N
Para j <- i + 1 Hasta N
Matriz[i, j] <- 0
FinPara
FinPara
// Mostrar la matriz triangular inferior
Escribir "Matriz triangular inferior:"
Para i <- 1 Hasta N
Para j <- 1 Hasta N
Escribir Sin Saltar Matriz[i, j], " "
FinPara
Escribir ""
FinPara
FinProceso
50.-
Proceso VerificarMultiplosSimple
Definir N, M, i, j, num Como Entero
Definir todosMultiplos Como Logico
Escribir "Ingrese filas N:"
Leer N
Escribir "Ingrese columnas M:"
Leer M
Dimension Matriz[N, M]
Para i <- 1 Hasta N
Para j <- 1 Hasta M
Escribir "Ingrese elemento:"
Leer Matriz[i, j]
FinPara
FinPara
Escribir "Ingrese divisor:"
Leer num
todosMultiplos <- Verdadero
Para i <- 1 Hasta N
Si todosMultiplos Entonces
Para j <- 1 Hasta M
Si Matriz[i, j] % num <> 0 Entonces
todosMultiplos <- Falso
FinSi
FinPara
FinSi
FinPara
Si todosMultiplos Entonces
Escribir "Todos los elementos son múltiplos
de ", num
Sino
Escribir "No todos los elementos son
múltiplos de ", num
FinSi
FinProceso
