-
Notifications
You must be signed in to change notification settings - Fork 0
/
matrizmágica.psc
97 lines (87 loc) · 2.07 KB
/
matrizmágica.psc
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
Algoritmo ejercicio13
definir i,j, matriz, suma,col, nro, fila,columna,diago Como Entero
definir m2, mf Como Entero
definir magica Como Logico
magica = verdadero
Escribir "Ingrese tamaño de matriz menor a 10"
leer col
si col <= 10 entonces
dimension m2[col]
Dimension matriz[col,col]
para i<- 0 hasta col-1 Hacer
para j<- 0 hasta col-1 Hacer
Escribir "Ingrese valores para la matriz"
leer nro
si (nro >0 y nro<1100)entonces
matriz[i,j] = nro
SiNo
Escribir "El numero ingresado no es valido ingrese rango entre 0 y 9"
FinSi
FinPara
FinPara
//----------controlar sumatoria de filas
para i<- 0 hasta col-1 Hacer
fila = 0
para j<- 0 hasta col-1 Hacer
fila = fila + matriz[i,j]
FinPara
m2[i]=fila
FinPara
suma = m2[0]
para mf<-0 hasta col-1 Hacer
si suma <> m2[mf] Entonces
magica = falso
FinSi
FinPara
//--------controlar las columnas
para i<- 0 hasta col-1 Hacer
fila = 0
para j<- 0 hasta col-1 Hacer
fila = fila +matriz[j,i]
FinPara
m2[i]=fila
FinPara
suma = m2[0]
para mf<-0 hasta col-1 Hacer
si suma <> m2[mf] Entonces
magica = falso
FinSi
FinPara
//--------controlar diagonal pricipal
fila = 0
para i<- 0 hasta col-1 Hacer
para j<- 0 hasta col-1 Hacer
si i=j Entonces
fila = fila +matriz[i,]
FinSi
FinPara
FinPara
si (fila <> m2[0]) Entonces
magica = falso
FinSi
//-------controlar diagonal secundaria
j=col-1
diago = 0
para i<- 0 hasta col-1 Hacer
diago = diago + matriz[j,i]
j = j-1
FinPara
si diago <> m2[0] Entonces
magica = Falso
FinSi
si magica Entonces
Escribir "El valor al cual es igual es: " diago ; Escribir "La matríz es mágica"
Para i<-0 Hasta col-1 Con Paso 1 Hacer
Para j<-0 Hasta col-1 Con Paso 1 Hacer
Escribir matriz(i,j) Sin Saltar " "
FinPara ; Escribir " "
FinPara
sino
Escribir "La matriz no es magica"
FinSi
sino
escribir "El tamaño de la matriz no es valido"
fin si
Escribir "Precione una tecla para volver al menu"
Esperar Tecla
FinAlgoritmo