Differenze tra le versioni di "Floor ()"

Da Gambas-it.org - Wikipedia.
 
(Una versione intermedia di uno stesso utente non è mostrata)
Riga 4: Riga 4:
  
  
Volendola utilizzare direttamente in Gambas, bisognerà dichiararla con ''Extern'', nonché dichiarare la libreria ''Math'': ''libm.so'', nella quale la funzione è contenuta. Da sottolineare che, poiché questa funzione esterna di C "''floor''" è omonima alla funzione di Gambas "''Floor''", bisognerà assegnarle un nome a piacere, ma si dovrà anche richiamare il suo vero nome con il comando Exec.
+
Volendola utilizzare direttamente in Gambas, bisognerà dichiararla con ''Extern'', nonché dichiarare la libreria ''Math'': ''libm.so'', nella quale la funzione è contenuta. Da sottolineare che, poiché questa funzione esterna di C "floor()" è omonima alla funzione di Gambas ''Floor'', bisognerà assegnarle un nome a piacere, ma si dovrà anche richiamare il suo vero nome con il comando Exec.
  
 
Dunque avremo ad esempio:  
 
Dunque avremo ad esempio:  
  Private <FONT color=#B22222>Extern floor_C</font>(xF As Float) As Float In "<FONT color=#B22222>libm</font>" <FONT color=#B22222>'''Exec "floor"'''</font>
+
  Private <FONT color=#B22222>Extern floor_C</font>(xF As Float) As Float In "<FONT color=#B22222>libm:6</font>" <FONT color=#B22222>'''Exec "floor"'''</font>
 
 
 
 
  
 
Semplice esempio di uso in Gambas:
 
Semplice esempio di uso in Gambas:
  <FONT color=Gray>' ''double floor(double x)''</font>
+
  <FONT color=Gray>' ''double floor(double x)''
  Private <FONT color=#B22222>Extern floor_C</font>(xF As Float) As Float In "<FONT color=#B22222>libm</font>" <FONT color=#B22222>'''Exec "floor"'''</font>
+
' ''Largest integer not greater than X.''</font>
 +
  Private <FONT color=#B22222>Extern floor_C</font>(xF As Float) As Float In "<FONT color=#B22222>libm:6</font>" <FONT color=#B22222>'''Exec "floor"'''</font>
 
   
 
   
 
   
 
   
  '''Public''' Sub Main()
+
  Public Sub Main()
 
   
 
   
 
   Dim fl As Float
 
   Dim fl As Float
 
   
 
   
  fl = <FONT color=#B22222>floor_C</font>(3.456)
+
  fl = <FONT color=#B22222>floor_C</font>(3.456)
 
   
 
   
  Print fl
+
  Print fl
 
    
 
    
  '''End'''
+
  End

Versione attuale delle 15:13, 14 giu 2024

La funzione della libreria di Math

double floor(double x)

ritorna x arrotondato all'intero più grande uguale o non maggiore di x.


Volendola utilizzare direttamente in Gambas, bisognerà dichiararla con Extern, nonché dichiarare la libreria Math: libm.so, nella quale la funzione è contenuta. Da sottolineare che, poiché questa funzione esterna di C "floor()" è omonima alla funzione di Gambas Floor, bisognerà assegnarle un nome a piacere, ma si dovrà anche richiamare il suo vero nome con il comando Exec.

Dunque avremo ad esempio:

Private Extern floor_C(xF As Float) As Float In "libm:6" Exec "floor"

Semplice esempio di uso in Gambas:

' double floor(double x)
' Largest integer not greater than X.
Private Extern floor_C(xF As Float) As Float In "libm:6" Exec "floor"


Public Sub Main()

 Dim fl As Float

 fl = floor_C(3.456)

 Print fl
 
End