Materia:
MatemáticasAutor/a:
cooper14Creada:
hace 1 añoCon 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 casillaVaciaUnaLetraDefinir 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]
vector[1]<-"N"
vector[2]<-"M"
vector[3]<-"U"
vector[4]<-"R"
vector[5]<-"O"
vector[6]<-"E"
Mientras resp=='s' Hacer
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
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
Para i<-Longitud(concepto) Hasta 1 Con Paso -1 Hacer
concepto_inv <- concepto_inv+Subcadena(concepto,i,i)
FinPara
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
Autor/a:
connor7kxc
Califica una respuesta:
8