Funcion Imprimirvector

Funcion imprimirVector ( vector,tam )
Para K=1 Hasta tam Con paso 1 Hacer
Escribir "[",vector[k],"]"
FinPara
Fin Funcion
Funcion rta <- calcular ( vector,tam,d )
Para K=1 Hasta tam Con Paso 1 Hacer
si vector[k] =d Entonces
rta=rta+1
FinSi
FinPara
rta=rta
Fin Funcion
Algoritmo Numero_de_veces_que_se_repite
Definir vec,d,tam,k,var,cant Como Entero
Escribir "Ingrese la cantidad de elementos"
leer tam
Dimension vec[tam]
Para K=1 Hasta tam Con Paso 1 Hacer
Escribir"Ingrese el valor ",K+0
leer var
vec[k]=var
FinPara
Escribir "vector resultante"
imprimirVector(vec,tam)
Escribir "Ingrese que numero desea buscar en el vector "
leer d
cant=calcular(vec,tam,d)
Escribir "La cantidad de veces que se repite el numero:",d,", es ",cant," veces "
FinAlgoritmo
Funcion CalcularMatrizTranspuesta(matriz, filas, columnas)
Definir transpuesta Como Real[100, 100]
Para i = 1 Hasta filas Con Paso 1 Hacer
Para j = 1 Hasta columnas Con Paso 1 Hacer
transpuesta[j, i] = matriz[i, j]
Fin Para
Fin Para
Devolver transpuesta
Fin Funcion
Proceso CalcularTranspuesta()
Definir filas, columnas Como Entero
// Solicitar dimensiones de la matriz al usuario
Escribir "Ingrese el número de filas de la matriz: "
Leer filas
Escribir "Ingrese el número de columnas de la matriz: "
Leer columnas
// Definir e inicializar la matriz
Definir matriz Como Real[100, 100]
// Solicitar al usuario ingresar los elementos de la matriz
Para i = 1 Hasta filas Con Paso 1 Hacer
Para j = 1 Hasta columnas Con Paso 1 Hacer
Escribir "Ingrese el elemento en la posición [", i, ",", j, "]: "
Leer matriz[i, j]
Fin Para
Fin Para
// Llamar a la función para calcular la matriz transpuesta
Definir transpuesta Como Real[100, 100]
transpuesta = CalcularMatrizTranspuesta(matriz, filas, columnas)
// Mostrar la matriz transpuesta
Escribir "Matriz Transpuesta:"
Para i = 1 Hasta columnas Con Paso 1 Hacer

Para j = 1 Hasta filas Con Paso 1 Hacer
Escribir transpuesta[i, j];
Fin Para
Fin Para
Fin Proceso
// Llamar al proceso para ejecutar el programa
CalcularTranspuesta()
Algoritmo SumaDiagonalMatriz
Definir n, i, j, sumaDiagonal Como Entero
Dimension matriz[10, 10]
Escribir "Ingrese el tamaño de la matriz (n x n): "
Leer n
// Leer la matriz
Para i = 1 Hasta n Hacer
Para j = 1 Hasta n Hacer
Escribir "Ingrese el elemento (", i, ", ", j, "): "
Leer matriz[i, j]
FinPara
FinPara
// Inicializar la suma de la diagonal
sumaDiagonal = 0
// Sumar los elementos de la diagonal

Para i = 1 Hasta n Hacer
sumaDiagonal = sumaDiagonal + matriz[i, i]
FinPara
// Mostrar la suma de la diagonal
Escribir "La suma de los elementos de la diagonal es: ", sumaDiagonal
FinAlgoritmo
Algoritmo MatrizTranspuestaConUsuario
Definir filas, columnas, i, j Como Entero
Dimension matriz[10, 10], transpuesta[10, 10]
// Leer el tamaño de la matriz
Escribir "Ingrese el número de filas de la matriz: "
Leer filas
Escribir "Ingrese el número de columnas de la matriz: "
Leer columnas
// Leer la matriz
Para i = 1 Hasta filas Hacer
Para j = 1 Hasta columnas Hacer
Escribir "Ingrese el elemento (", i, ", ", j, "): "
Leer matriz[i, j]
FinPara
FinPara
// Calcular la matriz transpuesta

transpuesta[j, i] = matriz[i, j]
FinPara
FinPara
// Mostrar la matriz original
Escribir "Matriz Original:"
Escribir matriz[i, j];
FinPara
Escribir ""
FinPara
// Mostrar la matriz transpuesta
Escribir "Matriz Transpuesta:"
Para i = 1 Hasta columnas Hacer
Para j = 1 Hasta filas Hacer
Escribir transpuesta[i, j];
FinPara
Escribir ""
FinPara
FinAlgoritmo
Algoritmo SUMA_DE_MATRICES
Escribir"Ingrese el numero de filas"
leer fila
Escribir "Ingrese el numero de columnas"
Leer colum
Dimension A[fila,colum], B[fila,colum],C[fila,colum]

Para i=1 Hasta fila Con Paso 1 Hacer
Para j=1 Hasta colum Con Paso 1 Hacer
Escribir"Ingese el n�mero[", i , ",",j, "]"
Leer A[i,j]
Fin Para
Fin Para
Escribir"Ingese el n�mero[", i , ",",j, "]"
Leer B[i,j]
Fin Para
Fin Para
Escribir C[i,j]=A[i,j]+B[i,j]
Fin Para
Fin Para
Escribir "MATRIZ A"

Escribir A[i,j] " " Sin Saltar
Fin Para
Escribir " "
Fin Para
Escribir "MATRIZ B"
Escribir B[i,j] " " Sin Saltar
Fin Para
Escribir " "
Fin Para
Escribir"MATRIZ SUMA"
Escribir C[i,j] " " Sin Saltar
Fin Para
Escribir " "
Fin Para
FinAlgoritmo

Funcion Imprimirvector

Cargado por

Copyright:

Formatos disponibles

Funcion Imprimirvector

Cargado por

Información del documento

Título original

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Funcion Imprimirvector

Cargado por

Copyright:

Formatos disponibles

Funcion imprimirVector ( vector,tam )

Para K=1 Hasta tam Con paso 1 Hacer

Funcion rta <- calcular ( vector,tam,d )

Para K=1 Hasta tam Con Paso 1 Hacer

Definir vec,d,tam,k,var,cant Como Entero

Escribir "Ingrese la cantidad de elementos"

Para K=1 Hasta tam Con Paso 1 Hacer

Escribir"Ingrese el valor ",K+0

Escribir "vector resultante"

Escribir "Ingrese que numero desea buscar en el vector "

Funcion CalcularMatrizTranspuesta(matriz, filas, columnas)

Definir transpuesta Como Real[100, 100]

Para i = 1 Hasta filas Con Paso 1 Hacer

Para j = 1 Hasta columnas Con Paso 1 Hacer

Definir filas, columnas Como Entero

// Solicitar dimensiones de la matriz al usuario

Escribir "Ingrese el número de filas de la matriz: "

Escribir "Ingrese el número de columnas de la matriz: "

// Definir e inicializar la matriz

Definir matriz Como Real[100, 100]

// Solicitar al usuario ingresar los elementos de la matriz

Para i = 1 Hasta filas Con Paso 1 Hacer

Para j = 1 Hasta columnas Con Paso 1 Hacer

Escribir "Ingrese el elemento en la posición [", i, ",", j, "]: "

// Llamar a la función para calcular la matriz transpuesta

Definir transpuesta Como Real[100, 100]

transpuesta = CalcularMatrizTranspuesta(matriz, filas, columnas)

// Mostrar la matriz transpuesta

Escribir "Matriz Transpuesta:"

Para i = 1 Hasta columnas Con Paso 1 Hacer

Escribir transpuesta[i, j];

// Llamar al proceso para ejecutar el programa

Definir n, i, j, sumaDiagonal Como Entero

Dimension matriz[10, 10]

Escribir "Ingrese el tamaño de la matriz (n x n): "

Para i = 1 Hasta n Hacer

Para j = 1 Hasta n Hacer

Escribir "Ingrese el elemento (", i, ", ", j, "): "

// Inicializar la suma de la diagonal

// Sumar los elementos de la diagonal

sumaDiagonal = sumaDiagonal + matriz[i, i]

// Mostrar la suma de la diagonal

Escribir "La suma de los elementos de la diagonal es: ", sumaDiagonal

Definir filas, columnas, i, j Como Entero

Dimension matriz[10, 10], transpuesta[10, 10]

// Leer el tamaño de la matriz

Escribir "Ingrese el número de filas de la matriz: "

Escribir "Ingrese el número de columnas de la matriz: "

Para i = 1 Hasta filas Hacer

Para j = 1 Hasta columnas Hacer

Escribir "Ingrese el elemento (", i, ", ", j, "): "

// Calcular la matriz transpuesta

Para i = 1 Hasta filas Hacer

Para j = 1 Hasta columnas Hacer

// Mostrar la matriz original

Escribir "Matriz Original:"

Para i = 1 Hasta filas Hacer

Para j = 1 Hasta columnas Hacer

Escribir matriz[i, j];