document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public Sub _new(...)
  4.  
  5.   Select Case Param.Count
  6.     Case 2
  7.       Print "-----------------------------------------------------------"
  8.       Print "Circulo definido por el radio y la coordenada del centro"
  9.       Print "Ciculo radio: ", Param[0]
  10.       Print "Coordenada Centro: ("; Param[1][0]; " , "; Param[1][1]; ")"
  11.       \'el primer dato es el radio
  12.       \'el segundo dato es una cordenada
  13.       \'a continuación el algoritmo del cálculo del círculo dado el centro y su radio.
  14.      
  15.     Case 3
  16.       Print "-----------------------------------------------------------"
  17.       Print "Circulo definido por 3 pares de coordenadas, (3 puntos por donde debe de pasar el circulo)"
  18.       \'se dan 3 puntos por los cuales debe de pasar el circulo  
  19.       Print "Coordenada Punto 1: ("; Param[0][0]; " , "; Param[0][1]; ")"
  20.       Print "Coordenada Punto 2: ("; Param[1][0]; " , "; Param[1][1]; ")"
  21.       Print "Coordenada Punto 3: ("; Param[2][0]; " , "; Param[2][1]; ")"
  22.       \'a continuación el algoritmo del cálculo del circulo que pase los 3 puntos
  23.   End Select
  24.  
  25. End
');