[Pascal] Allineare numeri mem. in una matrice (era:Pascal!URGENTISSIMO!!!)

[VanessaInfo]

Ciao,
c'è qualcuno ke si ricorda qcosa di Pascal?
Mi servirebbe saper come faccio ad allineare dei numeri mem in una matrice..

es.:

2 3 4
44 5 66

GRAZIE!

[ladyBlu]

Vanessa, la prossima volta utilizza un titolo più esplicativo.
Grazie

[ultrasflavio]

in che senso allineare?ti serve ordinarli? è una matrice bidimensionale? spiega meglio così non ho capito niente!ti spiego io come si fa!

[VanessaInfo]

Devo INCOLONNARLI,
ma utilizzando i due punti e il nuemro (es: var:10) lo spazio tra due variabili dipende dalla loro lunghezza!!!

2 23
24 5

io vorrei
2 23
24 5

Grazie!

[VanessaInfo]

2 23
4 524

speriamo prenda bene!

[VanessaInfo]

Insomma nn posso fart vedere l'esempio, ma vorrei unità incolonnate, decine ecc....mi sono spiegata?
Grazie!

[ultrasflavio]

fai un disegno con il paint e postalo..xè giuro nn ho capito...

[toraz]

credo che il concetto che sta cercando di esprimere sia questo... stampando i valori di una matrice ottiene una cosa tipo

23 3 654 75
2 9 38 9
19 256 4 29

e invece vorrebbe ottenere un output più ordinato come

 23   3 654  75
  2   9  38   9
 19 256   4  29

almeno... mi è parso di aver capito così!

nonostante questo io il pascal non sto nemmeno dove sia di casa e non so proprio aiutarti.

[LeleFT]

Se è come dice toraz, allora questa procedura dovrebbe fare al caso tuo:

procedure Allinea(num_cifre: integer; valore: string);
var i:integer;
begin
   for i:=(num_cifre - Length(valore)) Downto 0 do
      write(' ');
   write (valore);
end;

Ti spiego come funziona: essa prende come argomenti due parametri.

num_cifre: è un intero che rappresenta il numero di cifre del valore più grade (in base al quale effettuare l'allineamento: è ovvio che l'allineamento deve essere fatto in base al numero con più cifre)

valore: è la rappresentazione stringa del numero da stampare.

Questa procedura si preoccupa di stampare davanti al numero che deve visualizzare tanti spazi quanti sono quelli mancanti per completare il numero di cifre del più grande numero presente nella lista di valori che devi allineare.

Ti posto un esempio del suo utilizzo: questo esempio chiede all'utente l'inserimento di un array 3x3 di numeri e li stampa in forma matriciale allineati (come suggerito da toraz):

Program Matrice;
uses crt;

   procedure Allinea(num_cifre: integer; valore: string);
   var i:integer;
   begin
      for i:=(num_cifre - Length(valore)) Downto 0 do
      begin
         write(' ');
      end;
      write (valore);
   end;

var mat:array[0..3,0..3] of Integer;
    i, j, max:Integer;
    tmp: String[80];
begin
   clrscr;

   for i:=0 to 2 do
      for j:=0 to 2 do
      begin
         Writeln('Introdurre il valore ',i,',',j,': ');
         Readln(mat[i,j]);
      end;

   Str(mat[0,0], tmp);
   max := Length(tmp);

   (* Qui calcolo quant'è lungo il numero più grande *)
   for i:=0 to 2 do
      for j:=0 to 2 do
      begin
         Str(mat[i,j], tmp); (* converto in stringa il numero *)
         if (Length(tmp) > max) then max := Length(tmp);
      end;
   (* Ora nella variabile 'max' ho il numero di cifre del numero più grande *)

   for i:=0 to 2 do
   begin
      for j:=0 to 2 do
      begin
         Str(mat[i,j], tmp);
         Allinea(max, tmp);
      end;
      Writeln;
   end;
end.

Spero di essere riuscito a risolvere il tuo problema.

Ciao.