[Turbo Pascal] trasferire matrice in array

[variabilepippo]

poi farei questo

comodo<- vettore1[i]
vettore1[i]<-vettore2[k]
vettore2[k]<-comodo

Non capisco il senso di queste assegnazioni, il tuo scopo non è ordinare un vettore?

[Giuseppe214]

scusate ero nell'aldilà!!Si lo scopo è ordinare una matrice!!Potete firmi come si fa?Mi servirebbe per domattina

[cdimauro]

procedure ScambiaElementi(var a, b: real);
var
  Temp: real;
begin
  Temp := a;
  a := b;
  b := Temp;
end;

Procedure OrdinaVettore;
const
  NumElementi = n * m;
var
  i, j: Integer;
begin
  for i := 1 to NumElementi - 1 do
    for j := i + 1 to NumElementi do
      if Vettore[i] > Vettore[j] then
        ScambiaElementi(Vettore[i], Vettore[j]);
end;

Questo è il codice che ordina gli elementi del vettore (definito come nell'altro programma che t'avevo scritto) con l'algoritmo del selection sort.

[Giuseppe214]

Grazie a tutti dell'aiuto

[genioexpress]

il vecchi e amato pascal quanto mi manca