[PASCAL] Help risoluzione matrice di stringhe

[leadergl]

Bisogna solo far andare le celle vuote alla fine....per il resto funziona...ho messo anche la procedura che vi stampa la matrice...

Program OrdinaMatrice;
uses crt;
Const R=3;
      C=4;

Var A:Array[1..R,1..C] of string;

{procedura di ordinamento}
procedure ordina;
var i,j:integer;
    rigaI,colonnaI,rigaJ,colonnaJ:integer;
    temp:string;
begin
{ordina la matrice}
    for i:=1 to ((r*c)-1) do
    begin
         colonnai:=4-(i mod 12);
         rigai:=3-(i div 12);
         for j:=(i+1) to (r*c) do
         begin
              colonnaj:=4-(j mod 12);
              rigaj:=3-(j div 12);

              if a[rigai,colonnai]<a[rigaj,colonnaj] then
              begin
                   temp:=a[rigai,colonnai];
                   a[rigai,colonnai]:=a[rigaj,colonnaj];
                   a[rigaj,colonnaj]:=temp;
              end;
         end;
    end;
{stampa la matrice}
    for i:=1 to r do
    begin
         for j:=1 to c do
             write('| ',a[i,j]);
         writeln;
    end;
    readln;
end;

{main del programma}
begin
     clrscr;
     a[1,1]:='anno';
     a[1,2]:='casa';
     a[1,4]:='chiesa';
     a[2,3]:='elmo';
     a[2,4]:='gatto';
     a[3,1]:='luna';
     a[3,2]:='nave';
     ordina;
end.

modificato in questo modo fa esattamente quello che volevi tu...anche con le celle vuote

Program OrdinaMatrice;
uses crt;
Const R=3;
      C=4;

Var A:Array[1..R,1..C] of string;

{procedura di ordinamento}
procedure ordina;
var i,j:integer;
    rigaI,colonnaI,rigaJ,colonnaJ:integer;
    temp:string;
begin
{ordina la matrice}
    for i:=1 to ((r*c)-1) do
    begin
         colonnai:=(i mod 12);
         rigai:=(i div 12)+1;
         for j:=1 to (r*c) do
         begin
              colonnaj:=(j mod 12);
              rigaj:=(j div 12)+1;

              if a[rigai,colonnai]='' then a[rigai,colonnai]:='~~';
              if a[rigaj,colonnaj]='' then a[rigaj,colonnaj]:='~~';

              if a[rigai,colonnai]<a[rigaj,colonnaj] then
              begin
                   temp:=a[rigai,colonnai];
                   a[rigai,colonnai]:=a[rigaj,colonnaj];
                   a[rigaj,colonnaj]:=temp;
              end;

              if a[rigaj,colonnaj]='~~' then a[rigaj,colonnaj]:='';
              if a[rigai,colonnai]='~~' then a[rigai,colonnai]:='';
         end;
    end;
{stampa la matrice}
    for i:=1 to r do
    begin
         for j:=1 to c do
             write('| ',a[i,j]);
         writeln;
    end;
    readln;
end;



{main del programma}
begin
     clrscr;
     a[1,1]:='anno';
     a[1,2]:='casa';
     a[1,4]:='chiesa';
     a[2,3]:='elmo';
     a[2,4]:='gatto';
     a[3,1]:='luna';
     a[3,2]:='nave';
     ordina;
end.

[Qwertid]

Grazie!!!

Stavo continuando a scervellarmici su... Veramente grazie di cuore