-
Notifications
You must be signed in to change notification settings - Fork 0
/
matrizMagica34
120 lines (96 loc) · 2.41 KB
/
matrizMagica34
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
Algoritmo sin_titulo
definir var1, i, j, fila, columna, diagonal, cont, sumafilas, suma, sumacolumnas, sumadiagonal,d2,cont2,cont3 Como Entero
definir validacion Como Logico
Hacer
Escribir "Ingrese el tamaño de la matriz, que sea entre 1 y 9"
leer fila
Mientras Que (fila>9) o (fila<0)
columna=fila
Dimension var1(fila, columna)
Dimension sumacolumnas[columna]
Dimension sumafilas[fila]
Dimension sumadiagonal[2]
suma=0
cont=0
validacion=Verdadero
///Asignacion de los valores de la matriz
Para i=0 Hasta fila-1
para j= 0 hasta columna-1 Hacer
var1(i,j)= Aleatorio(1,9)
Escribir Sin Saltar var1(i,j) , " "
FinPara
escribir ""
FinPara
/// suma de las filas
Para j=0 Hasta fila-1
para i= 0 hasta fila-1 Hacer
suma=suma+ var1(j,i)
FinPara
sumafilas[j]=suma
Escribir "La suma de la fila " j+1, " es: " suma
suma=0
FinPara
///suma de las columnas
Para j=0 Hasta fila-1
para i= columna-1 hasta 0 Con Paso -1 Hacer
suma=suma+ var1(cont,j)
cont=cont+1
FinPara
cont=0
sumacolumnas[j]=suma
Escribir "La suma de la columna " j+1, " es: " suma
suma=0
FinPara
///suma de las diagonales
suma=0
para i = 0 hasta fila-1 Hacer
suma= suma + var1(i,i)
FinPara
sumadiagonal(0)= suma
Escribir "La suma de la primera diagonal es: " suma
suma=0
d2 = fila-1
para i = 0 Hasta fila-1 Hacer
suma = suma + var1(i,d2)
d2 = d2-1
FinPara
sumadiagonal(1)= suma
Escribir "La suma de la segunda diagonal es: " suma
///Comparacion de valores
suma=0
cont=0
cont2 = 0
cont3 = 0
Mientras (validacion==Verdadero) y (cont3<>columna) Hacer
Mientras (validacion==Verdadero) y (cont2<=2) Hacer
Mientras (validacion==Verdadero) y (cont<fila) Hacer
si sumafilas(0) = sumafilas(cont) Entonces
Escribir "suma filas " sumafilas(cont)
cont=cont+1
Escribir "contador " cont
validacion=Verdadero
suma=sumafilas(0)
SiNo
validacion=Falso
FinSi
FinMientras
si suma==(sumadiagonal(cont2)) y (cont2<1) Entonces
cont2=cont2+1
validacion=Verdadero
SiNo
validacion=Falso
FinSi
FinMientras
si suma = sumacolumnas(cont3) Entonces
cont3=cont3+1
validacion=Verdadero
SiNo
validacion=Falso
FinSi
FinMientras
si validacion=Verdadero Entonces
Escribir "La matriz ingresada es magica"
SiNo
Escribir "La matriz ingresada no es magica"
FinSi
FinAlgoritmo