-
Notifications
You must be signed in to change notification settings - Fork 0
/
algoritmo_palabras_1.psc
120 lines (84 loc) · 2.34 KB
/
algoritmo_palabras_1.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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
Algoritmo algoritmo_texto
Definir tablero como Cadena
Dimension tablero[9, 12]
inicializarMatriz(tablero, 9, 12)
agregarPalabra(tablero, "vector", 0)
agregarPalabra(tablero, "matrix", 1)
agregarPalabra(tablero, "programa", 2)
agregarPalabra(tablero, "subprograma", 3)
agregarPalabra(tablero, "subproceso", 4)
agregarPalabra(tablero, "variable", 5)
agregarPalabra(tablero, "entero", 6)
agregarPalabra(tablero, "para", 7)
agregarPalabra(tablero, "mientras", 8)
acomodarPalabras(tablero)
imprimirMatriz(tablero, 9, 12)
FinAlgoritmo
subProceso inicializarMatriz(tablero ,filas, columnas)
Definir i,j como entero
para i <- 0 Hasta filas - 1 Hacer
para j <- 0 Hasta columnas - 1 Hacer
tablero[i,j] = "*"
FinPara
FinPara
FinSubProceso
subProceso agregarPalabra(tablero ,palabra, posicionJ)
Definir j como entero
Para j <- 0 Hasta 11 Hacer
tablero[posicionJ,j] = Subcadena(palabra,j,j)
FinPara
FinSubProceso
subProceso acomodarPalabras(tablero)
Definir cambio, palabra Como Caracter
Definir posicionesR, i,j, diferencia Como Entero
Dimension posicionesR[9]
Dimension palabra[9]
para i <- 0 Hasta 8
palabra[i] = separarPalabra(tablero, i)
FinPara
para i <- 0 hasta 8
posicionesR[i] = buscarR(palabra[i])
FinPara
para i <- 0 hasta 8 Hacer
diferencia = 5 - posicionesR[i]
Escribir diferencia
para j <- 0 hasta 11 Hacer
si j >= diferencia Entonces
tablero[i,j] = Subcadena(palabra[i],j-diferencia,j-diferencia)
SiNo
tablero[i,j] = " "
FinSi
FinPara
FinPara
FinSubProceso
Funcion palabra <- separarPalabra(matriz,posicionI)
Definir palabra Como Caracter
Definir j Como Entero
palabra = ""
Dimension vector(12)
para j <- 0 hasta 11 Hacer
palabra = Concatenar(palabra,matriz[posicionI,j])
FinPara
FinFuncion
funcion posicionR <- buscarR(palabra)
Definir posicionR, contador Como Entero
Definir hayR Como Logico
hayR = Falso
contador = 0
Hacer
si Subcadena(palabra,contador,contador) = "r"
posicionR = contador
hayR = Verdadero
FinSi
contador = contador + 1
Mientras Que hayR = Falso
FinFuncion
subProceso imprimirMatriz(tablero,filas, columnas)
Definir i,j como entero
para i <- 0 Hasta filas - 1 Hacer
para j <- 0 Hasta columnas - 1 Hacer
Escribir Sin Saltar " " tablero[i,j]
FinPara
Escribir " "
FinPara
FinSubProceso