SoloCodigo
Programación General => Pascal => Mensaje iniciado por: luisoswaldo en Domingo 3 de Febrero de 2008, 23:42
-
De antemano les doy las gracias por la ayuda que puedan ofrecerme.
Necesito imprimir una matriz de la siguiente manera:
a1 a2
b1 b2
he estado tratando de hacerlo pero me lo imprime de la sig manera:
a1 a2
-------- b1 b2
aqui le muestro los codigos, esta fue la forma que yo pense que podia servir pero me supongo que debe haber una mejor forma puesto que ahora me parece algo ilogico hacer una condicion para cada caso. si conocen alguna pagina donde muestre como hacer esto por favor envienla.
c:=4;
d:=5;
for i:=1 to 2 do
begin
for j:=1 to 2 do
begin
suma:=a[i,j] + b[i,j];
gotoxy (c,d); write (suma);
c:=c + 4;
if j = 2 then
begin
d:=d + 1;
c:=c - 4;
end;
if (j = 2) and (i = 2) then
begin
c:= c + 4;
end;
if i = 2 then
begin
c:=c + 4;
end;
end;
Gracias
-
NO hace falta que uses gotoXY simplemente no hagas todo el tiempo WriteLn....
for j:=1 to 10 do
begin
for i:=1 to 10 do
begin
Write(v[i,j], ' ');
end;
WriteLn;
end;
a1 a2 a3 a4 a5...
b1 b2 b3 b4 b5...
....