[Turbo Pascal] trasferire matrice in array

[Giuseppe214]

Salve ragazzi!!Ho un problemino!!Ho una matrice di numeri reali di m righe ed n colonne con m e n definiti come costanti e devo trasferire i dati della matrice in un array di dimensione m*n!!Come si fa?Grazie

[cdimauro]

program ProvaCopiaMatriceInVettore;

const
  m = 10;
  n = 10;

var
  Matrice: array[1..m, 1..n] of real;
  Vettore: array[1..m * n] of real;

procedure CopiaMatriceInVettore_DirtyWay;
begin
   (* La soluzione più "sporca", ma veloce, come piace agli smanettoni. *)
  Move(Matrice, Vettore, m * n * SizeOf(real));
end;

procedure CopiaMatriceInVettore;
var
  Riga, Colonna: Integer;
begin
  for Riga := 1 to m do
    for Colonna := 1 to n do
      Vettore[(Riga - 1) * n + Colonna] := Matrice[Riga, Colonna];
end;

begin
  CopiaMatriceInVettore;
end.

[Giuseppe214]

Non parte propiro

[variabilepippo]

Non parte propiro

Cosa significa???

Non riesci a compilare? Hai un errore in fase di esecuzione?

Hai inserito delle istruzioni per popolare la matrice e visualizzare il vettore?

[cdimauro]

Mi accodo: cosa c'è che non va? Errore di sintassi? Output errato?

Considera che il programmino l'ho scritto al volo senza neppure controllare.

[a2000.1]

giustamente il compilatore si rifiuta di compilare

[cdimauro]

Il programma in questione compila e funziona perfettamente.

[a2000.1]

Vettore[(Figa - 1) * n + Colonna] := Matrice[Figa, Colonna];

ma sei convinto ?

[cdimauro]

Sei sempre il solito!

[Giuseppe214]

Non va in esecuzione!!Non va il run run

[cdimauro]

Io l'ho lanciato e andava. Certo, il programma terminava immediatamente senza visualizzare niente, ma non era questo il suo scopo mi pare.

[Giuseppe214]

ah ecco!!Sono alle prime armi con le matrici e nn le ho capite bene!!Potreste dirmi anche come ordinarla in ordine crescente?

[cdimauro]

Originariamente inviato da Giuseppe214

ah ecco!!Sono alle prime armi con le matrici e nn le ho capite bene!!

Non c'è problema: nessuno è nato "imparato".

Potreste dirmi anche come ordinarla in ordine crescente?

Vorresti che i suoi elementi fossero ordinati in ordine crescente?

[Giuseppe214]

Si dal più piccolo al più grande

Avendo nella matrice i numeri messi così

3 17 1
15 5 13
7 9 11

ordinarla così
1 3 5
7 9 11
13 15 17

[cdimauro]

Visto che sei alle prime armi, ti conviene copiara la matrice in un vettore, ordinare questo tramite uno dei tanti algoritmi che si trovano in giro (il select sort è MOLTO semplice da implementare), e poi ricopiare il vettore nella matrice.

Se hai bisogno della soluzione fammi sapere, ma è sempre preferibile sbatterci un po' la testa da soli per apprendere meglio quello che si sta facendo.

[Giuseppe214]

Originariamente inviato da cdimauro

(il select sort è MOLTO semplice da implementare)

E che è il select sort??non si può fare normalmente?

[cdimauro]

Non c'è un costrutto già pronto: lo devi programmare tu.

Qui http://en.wikipedia.org/wiki/Selection_sort c'è spiegato come funziona e ci sono due esempi.

Se non te la senti stasera, appena ho qualche minuto libero, te lo scrivo io il codice, ma nel frattempo ti consiglio per lo meno di provarci.

[Giuseppe214]

Ci sto provando da 2 giorni!!La testa l'ho già persa
Cmq qll è C e Phyton a me serve in TP e senza select sort poi pian piano le studierò qll cose!!

[variabilepippo]

a me serve in TP e senza select sort

Dovrai comunque implementare un algoritmo di ordinamento, ne esistono tanti tra cui scegliere. Prova a trasformare il codice C in Pascal, potresti imparare qualcosa.

[Giuseppe214]

Per l'ordinamento del vettore farei così io:
prenderei 2 vettori e una variabile

var
vettore1:array[1..10] of integer
vettore2:array[1..10] of integer
comodo:integer

poi farei questo

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