Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Pascal - Funzioni che restituiscono un array
Forum - Pascal - Funzioni che restituiscono un array

Avatar
Gians (Normal User)
Newbie


Messaggi: 17
Iscritto: 12/08/2009

Segnala al moderatore
Postato alle 19:39
Mercoledì, 12/08/2009
Salve a tutti, ho qualche problema a scrivere una funzione che alla fine assuma il valore di un array. Basandomi sul seguente modello:

Codice sorgente - presumibilmente Pascal

  1. function <nome>(<parametri>:<tipo>;...):<tipo>;
  2. var ...
  3. begin
  4.     ... (*Corpo della funzione*)
  5.     <nome>:=<valore>
  6.     (*Alla fine, la funzione deve assumere un valore*)
  7. end;



ho provato a sostituire "tipo" con "array[1..6,1..9] of byte", o anche solo "array of byte", però non funziona, sapete dirmi come posso fare?

Grazie a tutti :k:

PM Quote
Avatar
gigisoft (Member)
Guru


Messaggi: 696
Iscritto: 11/10/2008

Segnala al moderatore
Postato alle 23:59
Mercoledì, 12/08/2009
Testo quotato

Postato originariamente da Gians:

Salve a tutti, ho qualche problema a scrivere una funzione che alla fine assuma il valore di un array. Basandomi sul seguente modello:

Codice sorgente - presumibilmente Pascal

  1. function <nome>(<parametri>:<tipo>;...):<tipo>;
  2. var ...
  3. begin
  4.     ... (*Corpo della funzione*)
  5.     <nome>:=<valore>
  6.     (*Alla fine, la funzione deve assumere un valore*)
  7. end;



ho provato a sostituire "tipo" con "array[1..6,1..9] of byte", o anche solo "array of byte", però non funziona, sapete dirmi come posso fare?

Grazie a tutti :k:



Salve,

il pascal non prevede che il valore ritornato da una funzione ( o anche un suo parametro ) sia dichiarato come array; puoi risolvere il problema dichiarando da parte un tipo array, per esempio:

Codice sorgente - presumibilmente Delphi

  1. Type ArrInt10: Array [1..10] of Integer
  2. Function Funzione(X: Integer): ArrInt10;
  3. Var [...]
  4. Begin
  5.   [...]
  6. End;



Ciao. :k:

Luigi

PM Quote
Avatar
Gians (Normal User)
Newbie


Messaggi: 17
Iscritto: 12/08/2009

Segnala al moderatore
Postato alle 16:05
Giovedì, 13/08/2009
Grazie mille così funziona perfettamente :)

PM Quote