Pascal/Turbo Pascal - Codigos de cuatro letras en free pascal

   
Vista:

Codigos de cuatro letras en free pascal

Publicado por Pedro (2 intervenciones) el 18/10/2008 23:22:26
hola gente, como andan.
necesito de su ayuda.
tengo q escribir en FREE pascal un procedimiento q dado un codigo de 4 letras de la A a la F me largue el siguiente.
el encabezado seria:

const
PRIMERA_LETRA = 'A';
ULTIMA_LETRA = 'F';
LARGO_CODIGO = 4;

type
(* tipo de las letras válidas *)
TLetra = PRIMERA_LETRA..ULTIMA_LETRA;

(* estructura donde se guarda un código *)
TCodigo = array [1..LARGO_CODIGO] of TLetra;

procedure SiguienteCodigo(var codigo: TCodigo);

como codigo siguiente me refiero a:

codigo siguiente
AAAA AAAB
AAAF AABA
AFFF BAAA

no se si se entiende.. es como un cuenta kilometros solo q con letras de la A a la F...
agradeceria mucho su ayuda
GRACIAS
Pedro - Uruguay
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:Codigos de cuatro letras en free pascal

Publicado por PEDRO (2 intervenciones) el 19/10/2008 00:33:11
HOLA, YA LO RESOLVI. SALU2 Y GRACIAS

PEDRO
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