Italian community of Lazarus and Free Pascal
Presentazioni => Presentazioni nuovi utenti => Topic aperto da: alexarmato66 - Febbraio 23, 2019, 08:10:28 pm
-
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 ;
-
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);
-
GRAZIE!!!
-
Figurati
-
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
-
Ho provato con Sign ma non ci sono riuscito.
-
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
-
Sgn ( numero )
Valori restituiti
Se numero è >1 restituisce 1
se numero è <1 restituisce -1
se numero è =0 restituisce 0
-
grazie
-
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
-
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