SoloCodigo

Programación General => Pascal => Mensaje iniciado por: party_metal en Martes 3 de Marzo de 2009, 21:52

Título: Subprograma nombre de cartas de la baraja española
Publicado por: party_metal en Martes 3 de Marzo de 2009, 21:52
Hola soy nuevo y estoy programando el siguiente ejercicio.
Las cartas de la baraja española pueden representarse mediante un nú-
mero entre uno y cuarenta. En esta representación, las cartas del palo de
oros tendrán sus valores entre 1 y 10. Las del de copas entre 11 y 20, espadas
entre 21 y 30, y las de bastos entre 31 y 40. Dentro de cada palo, el primer
número corresponderá al as, el segundo al dos, y así sucesivamente hasta el
último que representa al rey.
Con esta representación, al seis de copas le corresponderá el 16, al caballo
de espadas el 29 y a la sota de bastos el 38.
Implementar un subprograma que pregunte al usuario un número entre 1
y 40 y escriba por pantalla la carta de la baraja y el palo al que corresponde
Código: Pascal
  1.  
  2. function devuelveCarta(n:integer):string;
  3.    var
  4.     aux:string;
  5.     unidad:integer;
  6.    begin
  7.      unidad:=n mod 10;
  8.      case unidad of
  9.       1:aux:='El As de';
  10.       8:aux:='La Sota de';
  11.       9:aux:='El Caballo de';
  12.       0:aux:='El Rey de';
  13.      else
  14.       aux:='El n de';
  15.      end;{end case}
  16.  
  17.     case n of
  18.      1..10: devuelveCarta:=aux+'Oros';
  19.      11..20:devuelveCarta:=aux+'Copas';
  20.      21..30:devuelveCarta:=aux+'Espadas';
  21.      31..40:devuelveCarta:=aux+'Bastos';
  22.     end;{end case}
  23.  end;
  24.  
  25.  
Centrandome en la función en sí y de momento no validando la entrada y mostrando la salida, llevo esto, pero me acabo de dar cuenta de que en el primer case cuando entra al else realmente me escribre "El n de" y no si fuera n=8 "El 8 de" y nose como puedo luego concatenarlo con el 2ºcase sin ponerlo como una variable...
¿Alguíen me puede ayudar o dar alguna pista?
Gracias!
Título: Re: Subprograma nombre de cartas de la baraja española
Publicado por: m0skit0 en Miércoles 4 de Marzo de 2009, 01:14
Tienes la respuesta delante de tus narices:

Cita de: "party_metal"
aux+'Oros';
^_^

Pero primero debes convertir n en cadena de caracteres

Salud
Título: Re: Subprograma nombre de cartas de la baraja española
Publicado por: party_metal en Miércoles 4 de Marzo de 2009, 13:24
Cierto es!! :o
Muchas gracias!!