{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.
Crear cuenta
