Pascal/Turbo Pascal - pascal

   
Vista:

pascal

Publicado por larry (9 intervenciones) el 07/01/2014 13:50:45
no se como hacerlo ayuda
Y os agradesco a los que me estais ayudando desinteresadamente
el problema esta en el archivo que adjunto
un saludo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
-1
Responder
Imágen de perfil de xve

pascal

Publicado por xve (21 intervenciones) el 07/01/2014 18:04:53
Hola Larry, estaría bien que indicaras el problema que tienes...
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

pascal

Publicado por larry (9 intervenciones) el 08/01/2014 12:53:31
el problema es que no se como comparar dos matrices
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

pascal

Publicado por ramon (2072 intervenciones) el 09/01/2014 11:29:55
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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
{Mira a ver si esto te ayuda}
 
program letras;
 uses
    crt;
  const
     ni = 4;
  type
    matri = array[1..ni,1..ni] of char;
    arry = array[1..(ni * ni)] of char;
  var
   m1, m2 : matri;
   l, d : arry;
   x, y : integer;
   letra : char;
 
 procedure entrada_matrizes(var n, m : matri);
 begin
    y := 1;
    while y < ni + 1 do
    begin
       for x := 1 to ni do
       begin
          clrscr;
          write('  Entre Letra Para M1[',y,',',x,'] : ');
          repeat
          letra := readkey;
          until letra in[#97..#122];
          write(m1[y,x]);
          m1[y,x] := letra;
          writeln;
          write('  Entre Letra para M2[',y,',',x,'] : ');
          repeat
          letra := readkey;
          until letra in[#97..#122];
          write(m2[y,x - 1]);
          m2[y,x] := letra;
       end;
       y := y + 1;
       writeln;
    end;
 end;
 
 procedure presenta_matrizes(dd, hh : matri);
 begin
    clrscr;
    writeln('  Matriz M1 ');
    writeln;
    for y := 1 to ni do
    begin
      for x := 1 to ni do
      begin
         write(' ',dd[y,x]);
      end;
      writeln;
     end;
     writeln;
     writeln('  Matriz M2 ');
     writeln;
    for y := 1 to ni do
    begin
      for x := 1 to ni do
      begin
         write(' ',hh[y,x]);
      end;
      writeln;
     end;
 end;
 
 procedure pasamos_letras(ltt, luu : matri;var d1, l1 : arry);
 var
   h, b, px, py : integer;
 begin
    h := 1;
    b := 1;
    fillchar(d1,sizeof(d1),' ');
    fillchar(l1,sizeof(l1),' ');
    for py := 1 to ni do
    begin
       for px := 1 to ni do
       begin
          if ltt[py,px] = luu[py,px] then
          begin
             if ltt[py,px] in[#97..#109] then
             begin
                d1[b] := ltt[py,px];
                b := b + 1;
             end;
             if ltt[py,px] in[#110..#122] then
             begin
                l1[h] := ltt[py,px];
                h := h + 1;
             end;
          end;
       end;
    end;
 end;
 
 
 begin
    clrscr;
    entrada_matrizes(m1,m2);
    presenta_matrizes(m1, m2);
    pasamos_letras(m1,m2,d,l);
    writeln;
    writeln('   Array [D] ');
    writeln;
    for x := 1 to (ni * ni) do
    write(' ',d[x]);
    writeln;
    writeln('   Array [L] ');
    writeln;
    for y := 1 to (ni * ni) do
    write(' ',l[y]);
    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