[PASCAL] Disegnare matrice sottoforma di tabella

[Rising1]

mi è capitato più volte di dover stampare una matrice con tot righe e tot colonne tipo così:

1   2   4    5
2   4   7    5

quindi con 2 righe e tre colonne


ma con la procedura

var i, j :integer;
matr:array[1..2,1..4] of integer;

begin
for i:=1 to 2 do
   for j:=1 to 4 do
   writeln(matr[i,j])

i risultati li stampa tutti uniti:
1
2
4
5
2
4
7
5

io invece li voglio come sopra detto

devo fare

for j:=1 to 4 do
 write(vet[1,j]);
for j:=1 to 4 do
 write(vet[2,j]);
 etc...

o c'è un modo più diretto?

[napol3on]

Basta che utilizzi la funzione write() anzichè writeln(), poichè writeln() serve appunto per stampare una stringa e mandare a capo il cursore. Il tuo codice diventa quindi:

var i, j :integer; 
matr:array[1..2,1..4] of integer; 

begin 
   for i:=1 to 2 do   
      begin
         for j:=1 to 4 do 
            write(matr[i,j]);
         writeln();
      end

[Rising1]

[NO]provato, ma ora me li stampa tutti sulla stessa riga, non è che cambi molto, non va a capo appena finisce lo spazio della riga
[/NO]
ok risolto grazie

[gninga5]

[NO]provato, ma ora me li stampa tutti sulla stessa riga, non è che cambi molto, non va a capo appena finisce lo spazio della riga [/NO] ok risolto grazie

Scusa puoi dirci come hai risolto?

io ho fatto così:

procedure stampa_mat(var m:mat);
var i,j:integer;
begin
clrscr;
writeln('La matrice contiene i seguenti numeri:');
writeln;
for i:=1 to 4 do begin
                 writeln;
                 writeln;
                 for j:=1 to 4 do begin
                                  write(m[i,j]);
                                  write(' ');
                                  end;
                 end;
readln;
end; 

ma c'é un piccolo problema: non stampa gli elementi incolonnati. Come posso incolonnarli? ecco un'immagine che descrive il mio "problema":

[Celebron]

non so se funziona come in c, ma se si potresti provare il carattere "\t" che indica la tabulazione

[Rising1]

Originariamente inviato da gninga5
Scusa puoi dirci come hai risolto?

io ho fatto così:

procedure stampa_mat(var m:mat);
var i,j:integer;
begin
clrscr;
writeln('La matrice contiene i seguenti numeri:');
writeln;
for i:=1 to 4 do begin
                 writeln;
                 writeln;
                 for j:=1 to 4 do begin
                                  write(m[i,j]);
                                  write(' ');
                                  end;
                 end;
readln;
end; 

ma c'é un piccolo problema: non stampa gli elementi incolonnati. Come posso incolonnarli? ecco un'immagine che descrive il mio "problema":

praticamente metto dopo l''elemento da scrivere :spazio da occupare
es

write(m[i,j]:3)

senza poi mettere alcuno spazio