Pascal/Turbo Pascal - ejercicio con matriz

   
Vista:

ejercicio con matriz

Publicado por Lau (1 intervención) el 29/07/2014 01:08:06
colocar las letras del alfabeto en una matriz de 5x5, el sistema consiste en hacer corresponder a cada letra un par de letras que indican la fila y columna, en la cual se encontraba.

A B C D E
A A B C D E
B F G H I-J K
C L M N O P
D Q R S T U
E V W X Y Z

La palabra ayuda seria: AAEDDEADAA

Me podrian ayudar....

Gracias
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

ejercicio con matriz

Publicado por ramon (39 intervenciones) el 30/07/2014 21:22:40
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
{S program letrasmatriz;
 uses
    crt;
 
  const
     n = 'A';
     d = 'E';
 
  type
    matriz = array[n..d,n..d] of char;
 
 
  var
 
   j, h, le : char;
   mimaz : matriz;
   frase : string[20];
   g : integer;
 
   procedure cargamatriz(var mat : matriz);
   var
     u, e : char;
   begin
      u := 'A';
      e := 'A';
      for le := 'A' to 'Z' do
      begin
          mat[u,e] := le;
          e := chr(ord(e) + 1);
          if e > d then
          begin
             e := 'A';
             u := chr(ord(u) + 1);
          end;
       end;
    end;
 
 
   procedure ejecucionletras(dato : string);
   var
     w : integer;
     i, o : char;
   begin
     for w := 1 to length(dato) do
     begin
        for i := 'A' to 'E' do
          for o := 'A' to 'E' do
          if mimaz[i,o] = dato[w] then
          writeln('Letra ',dato[w],' En Posicion = ',i,' - ',o);
     end;
   end;
 
 
   begin
      clrscr;
      cargamatriz(mimaz);
      write('    ');
      for j := n to d do
      write('  ',j);
      writeln;
      write('      -  -  -  -  -');
      writeln;
      for j := n to d do
      begin
        write(j,' : ');
        for h := n to d do
        begin
           write('  ',mimaz[j,h]);
        end;
        writeln;
      end;
      writeln;
      write('  Entre Frase : ');
      readln(frase);
      for g := 1 to length(frase) do
      frase[g] := upcase(frase[g]);
      ejecucionletras(frase);
      writeln;
      writeln(' Esto Saldria asi o no ');
      readkey;
   end.
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