Pascal/Turbo Pascal - ConsultaMatriz

Uses CRT;

{Vamos a suponer que los valores estar n entre A y C.

 Para referenciarlos usaremos su c¢digo ascii}

CONST

  INF = 65; {Código Ascii de la A mayúscula}

  SUP = 67; {Código Ascii de la C mayúscula}

  FIL = 2;

  COL = 2;

var

  TECLA : CHAR;

  MATRIZ : ARRAY [1..COL,1..FIL] of char;

  I,J:INTEGER;

BEGIN

  RANDOMIZE;

  CLRSCR;

  for i:=1 to col do

    for j :=1 to fil do

     begin

     TECLA:=CHR((RANDOM(sup-inf+1)+inf)); {CON ESTA OPERACIàN CONSEGUIMOS QUE LOS VALORES GENERADOS ESTN ENTRE A Y C}

       MATRIZ[I,J]:=TECLA;

     end;

  READLN;

END.

{Algo como esto te sirve}

 program letras;

  uses

     crt;

  const

     max = 6;

  var

    matriz : array[1..max,1..max] of char;

    d, y, t : integer;

   begin

      clrscr;

      randomize;

     for d := 1 to max do

       for t := 1 to max do

       begin

          y := random(24) + 1;

          matriz[d,t] := chr(y + 98);

       end;

    for d := 1 to max do

    begin

      for t := 1 to max do

      begin

          write(' ',matriz[d,t]);

      end;

         writeln;

    end;

      readkey;

   end.