Pascal/Turbo Pascal - determinar si dos secuencias son iguales

 
Vista:

determinar si dos secuencias son iguales

Publicado por Juan Luis (1 intervención) el 03/07/2020 03:00:22
Me dan esta información

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 = RECORD
                valores : 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 OF
                   Fallo : ();
                   Creado : ();
                   Agregado : (posicion : Natural);
            END;
Y con el siguiente encabezado:
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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder