Espaçamento entre os dados da matriz

pablofoz · 10 de setembro de 2013

Bom gente, estou com uma dúvida, como eu faço para pular uma casa a cada dado inserido na matriz? (Pascal).

Exemplo:

Como esta:

Como precisa ser:

Codigo:

for i:=1 to tll do
    for j:=1 to tlc do
         begin
             gotoxy(16+i,5+j);
             readln (matB[i,j]);
         end;

Mais uma vez, mt obrigado!

LNW · 10 de setembro de 2013

Bom gente, estou com uma dúvida, como eu faço para pular uma casa a cada dado inserido na matriz? (Pascal).
Exemplo:

Como esta:
9999
9999
9999
9999
Como precisa ser:
 9 9 9 9
 9 9 9 9
 9 9 9 9
 9 9 9 9
Codigo:
for i:=1 to tll do
    for j:=1 to tlc do
         begin
             gotoxy(16+i,5+j);
             readln (matB[i,j]);
         end;
Mais uma vez, mt obrigado!

É melhor usar variáveis separadas para tratar as coordenadas... Montei um exemplo:

Var 

  i,j, x, y : Integer;
  mat : array[1..4,1..4] Of Integer;

Begin
  clrscr;
  x := 16;
  y := 5;
  For i := 1 To 4 Do
    Begin
      For j := 1 To 4 Do
        Begin
          gotoxy(x, y);
          readln(mat[i,j]);
          x := x + 2;
        End;
      y := y + 1;
      x := 16;
    End;
End.

Funciona, porém, se quiser aprimorá-lo, vai precisar determinar o número de dígitos do número para poder fazer o incremento da coordenada corretamente. Agora é com você.

[]'s

LNW