Pascal/Turbo Pascal - Practica Scrabble

 
Vista:

Practica Scrabble

Publicado por Borlaff (3 intervenciones) el 27/12/2004 19:49:03
Hola a todos, os quería pedir un favorcillo.. Necesito ayuda con una practica que va a simular el juego del Scrabble (el de enlazar palabras en un tablero).
Una de mis dudas es: cada letra q se reparte a cada jugador tiene una puntuacion (la A vale 1 punto, la B tantos puntos...etc), y cada letra esta repetida un numero determinado de veces (de la Ñ hay una ficha nada mas, de la C hay unas cuantas mas , etc). Tengo que hacer un vector con 30 posiciones (cada letra del abecedario) y a cada posicion ir correspondiendole su puntuacion y su cantidad de fichas adjudicada.
¿Cómo podria hacerlo?
Muchas gracias (y Feliz Navidad xD)
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

RE:Practica Scrabble

Publicado por Hurricane (73 intervenciones) el 27/12/2004 22:29:47
Con un registro. Ej:

Type
FichaRec = Record
Puntos :Integer;
Cantidad :Integer;
End;

IndType = ['A'..Z', 'Ñ'];
Var
Fichas :Array[IndType] of FichaRec;

Begin
{Ejemplo de asignación}
Fichas['Ñ'].Puntos := 10;
Fichas['Ñ'].Cantidad := 1;
End.

Espero te sea de utilidad. Saludos ;-)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Practica Scrabble

Publicado por Borlaff (3 intervenciones) el 28/12/2004 19:42:17
Pero y como seria sin registro??, porque el profesor nos dijo q lo hiceramos sin registros (apenas los hemos dado). :S

Muchas gracias de todas formas eh?, :D
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Practica Scrabble

Publicado por Hurricane (73 intervenciones) el 28/12/2004 20:11:02
Usando otro subíndice: 1=Puntos, 2=Cantidad.
1
2
3
4
5
6
7
8
9
10
11
Type
IndType = ['A'..'Z', 'Ñ'];
 
Var
Fichas :Array[IndType,1..2] of Integer;
 
Begin
{Ejemplo de asignación}
Fichas[\\\\\\', 1] := 10;       {Puntos}
Fichas[\\\\\\'].2] := 1;         {Cantidad}
End.
Saludos ;-)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Practica Scrabble

Publicado por Borlaff (3 intervenciones) el 29/12/2004 20:28:52
Pero...no lo acabo de entender... eso de los subindices... no me convence.
Cuando pones:

Type
IndType = ['A'..'Z', 'Ñ'];

Var
Fichas :Array[IndType,1..2] of Integer;

DENTRO DEL ARRAY, IndType, NO LO VEO CLARO. No habria q crear una variable de ese tipo, y ponerla ahi dentro del ARRAY ? Esque eso nunca habia visto...

Gracias :D
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar