determinar si dos secuencias son iguales
Publicado por Juan Luis (2 intervenciones) el 03/07/2020 03:00:22
Me dan esta información
Y con el siguiente encabezado:
tengo que determina si todas las secuencias de la colección son iguales o no. Por ejemplo, para MAX = 10, si col contiene secuencias { [1,4], [1,4], [1,4] }, entonces la operación devuelve true. Si col está vacía, también devuelve true. En cambio, si col contiene secuencias { [1,4], [4], [1,4] }, entonces la operación devuelve false.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Natural = 0..MAXINT;
CONST MAX = ...; (* algún entero mayor que cero *)
Secuencia = RECORDvalores : ARRAY [1..MAX] OF Natural;
tope : 0..MAX;
END;
Coleccion = ^Celda;
Celda = RECORD sec : Secuencia; sig : Coleccion;END;
TipoResultado = (Fallo, Creado, Agregado);
Resultado = RECORD CASE quePaso : TipoResultado OFFallo : ();
Creado : ();
Agregado : (posicion : Natural);
END;
1
FUNCTION todasIguales (col : Coleccion) : boolean;
tengo que determina si todas las secuencias de la colección son iguales o no. Por ejemplo, para MAX = 10, si col contiene secuencias { [1,4], [1,4], [1,4] }, entonces la operación devuelve true. Si col está vacía, también devuelve true. En cambio, si col contiene secuencias { [1,4], [4], [1,4] }, entonces la operación devuelve false.
Valora esta pregunta
0