hello. i have write this code below on gambas 3.9.2 and when i run that, he 
indique syntaxe error


Function calcul_coefficients(x As Integer, y As Integer, degre As Integer) As 
Float
  'Dim ak As Float
  Dim a As Float
  Dim b As Float
  Dim c As Float
  Dim nbr_coef As Integer
  Dim k As Integer

  nbr_coef = degre + 1
   For k = 0 To degre
    If k == 0
    'ak = (nbr_coef ^ k * ((x ^ (2(1 / (k + 1)))) * y) - (x * (y * (x ^ (- (k - 
1)))))) / ((nbr_coef * x ^ 2) - ((x) ^ 2))
      c = (nbr_coef ^ k * ((x ^ (2(1 / (k + 1)))) * y) - (x * (y * (x ^ (- (k - 
1)))))) / ((nbr_coef * x ^ 2) - ((x) ^ 2))
    Else If k == 1
      b = ((nbr_coef ^ k) * ((x ^ (2(1 / (k + 1)))) * y) - (x * (y * (x ^ (- (k 
- 1)))))) / ((nbr_coef * x ^ 2) - ((x) ^ 2))
    Else If k == 2
      a = ((nbr_coef ^ k) * ((x ^ (2(1 / (k + 1)))) * y) - (x * (y * (x ^ (- (k 
- 1)))))) / ((nbr_coef * x ^ 2) - ((x) ^ 2))
    Else
      Message.Info("unavalaible coefficients")
   Next
   Return a, b, c
End


But i see nothing as error. I need help please
------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user

Reply via email to