traduzione codice da Basic a Pascal

[alexarmato66]

Come potrei tradurre dal Basic al Pascal la seguente  dichiarazione:

ReDim def.polix(N_POLI)

Essendo:

type
deform = record
  u:array[1..3] of Double ;             
                                         

polix : Array of poligono_sezione;   
  End ;                                                         

[xinyiman]

Quella sintassi in basic significa il ridimensionamento di un array con la nuova lunghezza di N_POLI. In lazarus si usa la sintassi SetLength.

SetLength(def.polix, N_POLI);

[alexarmato66]

GRAZIE!!!

[xinyiman]

Figurati

[alexarmato66]

In PASCAL( lAZARUS) esiste la funzione di Visual basic Sgn?
dovrei tradurre qualcosa come:
 If Sgn(P_int.x) = Sgn(soll.Mx) And Sgn(P_int.y) = Sgn(soll.My) Then ........
grazie

[alexarmato66]

Ho provato con Sign ma non ci sono riuscito.

[bonmario]

In PASCAL( lAZARUS) esiste la funzione di Visual basic Sgn?

Se magari ci dici a cosa serve la funzione di Visual basic Sgn, ci aiuti ad aiutarti !!!

Ciao, Mario

[alexarmato66]

Sgn ( numero )

Valori restituiti

Se numero è >1 restituisce 1
se numero è <1 restituisce -1
se numero è =0 restituisce 0

[alexarmato66]

grazie

[bonmario]

Non mi viene in mente nulla.
Visto che si tratta solo di 3 "if", potresti anche farla da solo ...

In alternativa, fatti un giro qui:
http://www.delphibasics.co.uk/

o più precisamente, per quanto riguarda le funzioni/procedure sui numeri, qui:
http://www.delphibasics.co.uk/ByFunction.asp?Main=Numbers

e vedi se c'è quello che ti serve.

P.S. Sulla destra ci sono varie categorie, che ti aiutano a restringere il campo di ricerca.

Ciao, Mario

[Stilgar]

Se la documentazione che ho trovato è corretta:
http://www.chennaiiq.com/developers/reference/visual_basic/functions/sgn.asp
dovresti farti 2 funzioni:una che accetti interi e una booleani.
Stilgar