- Code: Select all Expand view
#include "FiveWin.ch"
MEMVAR x
FUNCTION MAIN()
// ? 1 ^^ 2
x := Cube( 2 )
? x
RETURN NIL
Function Cube( n )
Return n ** 1.585
Asi, funciona com Harbour y xHarbour, mas no see se está correcto.
https://books.google.com.br/books?id=vrtI4i8kA4EC&pg=PA41&lpg=PA41&dq=operadores+matem%C3%A1ticos+clipper&source=bl&ots=TJukevCRHR&sig=m4pui-IeRVXiRIGHbDlRyk5Mfh4&hl=pt-BR&sa=X&ved=0ahUKEwidhKDsqqLKAhWMIZAKHXKIAo8Q6AEIIjAB#v=onepage&q=operadores%20matem%C3%A1ticos%20clipper&f=false