Con la ayuda de un algoritmo en pseint y una matriz de datos, se logra rellenar el casillas vacías con las letras correctas y conocer el concepto matemático la cual es "NÚMERO". Se adjunta imagen de salida por pantalla del programa.
Algoritmo casillaVaciaUnaLetra
- // Definir matriz y las variables
Definir n,fil,col Como Entero
Definir a,b,letra, resp Como Caracter
Definir repetido Como Logico
resp <- 's'
n<-6
Dimension vector[6]
Dimension a[n,n]
- //Cargar letras en un vector
vector[1]<-"N"
vector[2]<-"M"
vector[3]<-"U"
vector[4]<-"R"
vector[5]<-"O"
vector[6]<-"E"
Mientras resp=='s' Hacer
- // Cargar valores inicial
concepto <-""
concepto_inv<-""
Para fil<-1 Hasta n Hacer
Para col<-1 Hasta n Hacer
a[fil,col] <- " "
FinPara
FinPara
a[1,2]<-"N"
a[1,4]<-"M"
a[2,1]<-"M"
a[2,6]<-"U"
a[3,3]<-"R"
a[4,1]<-"O"
a[4,4]<-"U"
a[4,6]<-"E"
a[5,3]<-"N"
a[6,4]<-"O"
Para fil<-1 Hasta n Hacer
Para col<-1 Hasta n Hacer
si a[fil,col] = " " Entonces
Repetir
letra <- vector[azar(6)+1]
repetido <- Falso
Para z<-1 Hasta n Hacer
Si letra=a[fil,z] Entonces
repetido <- Verdadero
FinSi
FinPara
- //Cargamos el cuadro con letras no repetidas
si repetido = Falso Entonces
a[fil,col] <- letra
FinSi
Hasta Que repetido = Falso
FinSi
FinPara
FinPara
Para fil<-1 Hasta n Hacer
Para col<-1 Hasta n Hacer
si fil = n-col+1 Entonces
concepto <- concepto + a[fil,col]
FinSi
FinPara
FinPara
- //Invertimos la letras de la diagonal secundaria
Para i<-Longitud(concepto) Hasta 1 Con Paso -1 Hacer
concepto_inv <- concepto_inv+Subcadena(concepto,i,i)
FinPara
- //Comprobamos se el concepto es igual a "NUMERO"
si concepto = "NUMERO" o concepto_inv = "NUMERO" Entonces
resp='n'
FinSi
FinMientras
Escribir 'Matriz final'
Para fil<-1 Hasta n Hacer
Para col<-1 Hasta n Hacer
si fil = n-col+1 Entonces
Escribir Minusculas(a[fil,col]),' ' Sin Saltar
SiNo
Escribir a[fil,col],' ' Sin Saltar
FinSi
FinPara
Escribir ''
FinPara
Escribir "Concepto matemático: ", concepto
Escribir "Concepto matemático: ", concepto_inv
FinAlgoritmo
Para saber más acerca juego matemático consulte https://brainly.lat/tarea/24067023
#SPJ1