Se pide crear en el módulo principal una baraja de 40 cartas y la operacion Vencer. Una carta vence a otra cuando su triunfo es mayor, excepto cuando una de las cartas es de la "pinta" que entonces gana aún cuando su triunfo sea menor. Si dos cartas tienen igual triunfo vence cualquiera de las dos.

Ejemplo: carta1 es el dos de copas, carta2 es el rey de bastos y la "pinta" es copas.

RECOMENDACIONES PARA EL EXAMEN:

• Antes de escribir en la hoja de examen el programa, desarrollarlo "a sucio".
• Realizar una adecuada indentación de todo el programa.
• Prestar mucha atención a la sintaxis: (Mayúsculas-Minúsculas, Puntos, comas, Puntos y comas....)
• Solo escribir lo que piden; es decir, solo hay que desarrollar los MODULE si lo piden explicitamente (o como es el caso de este programa, resulta necesaria la DEFINITION para ver como se definen las variables y las funciones)

MODULE PR250199;
(* Modulo principal de examen Programacion-I
   FECHA: 25 de Enero de 1999  *)

   IMPORT Juegos;
   CONST
      MaxNumCartas = 40;
   TYPE
      TipoBaraja = ARRAY [1..MaxNumCartas] OF Juegos.CartaBaraja;
   VAR
      baraja: TipoBaraja;

   PROCEDURE CrearBaraja (VAR baraja: TipoBaraja);
   (* Este procedimiento crea una baraja de 40 cartas *)
      VAR
         i: Juegos.TipoPalo;         (*indice Palos*)
         j: Juegos.TipoTriunfo;      (*indice Triunfos*)
         indice: INTEGER;
   BEGIN
      indice:=1;
      FOR i:=oros TO bastos DO
         FOR j:=as TO rey DO
            Juegos.PonerPalo(baraja[indice],i);
            Juegos.PonerTriunfo(baraja[indice],j);
            INC(indice)
         END
      END
   END CrearBaraja;

   PROCEDURE Vencer(carta1,carta2:Juegos.CartaBaraja;
      pinta:Juegos.TipoPalo) : BOOLEAN;
   (* Esta función devuelve CIERTO si carta1 vence a carta2 y
      FALSO en caso contrario*)

   BEGIN
      IF (carta1.palo=pinta) OR (carta2.palo=pinta) THEN 
         RETURN (carta1.palo = pinta)
      ELSE
         RETURN (carta1.triunfo >= carta2.triunfo)
      END
   END Vencer;

BEGIN
   CrearBaraja(baraja)
END PR250199;

(* Aunque el enunciado del problema no lo pide explicitamente, se escribe
   a continuación la Definición del Módulo "Juegos"
   para así poder entender la definición de algunas variables
   utilizadas en el módulo principal  *)

DEFINITION MODULE Juegos;
   TYPE
      TipoPalo=(oros,copas,espadas,bastos);
      TipoTriunfo=(as,dos,tres,cuatro,cinco,seis,siete,sota,caballo,rey);
      CartaBaraja = RECORD
         palo:TipoPalo;
         triunfo:TipoTriunfo
      END;

   PROCEDURE PonerPalo (carta:CartaBaraja; palo:TipoPalo);
   PROCEDURE PonerTriunfo (carta:CartaBaraja; triunfo:TipoTriunfo);

END Juegos.