home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / maths / exam02.dba < prev    next >
Encoding:
Text File  |  2000-04-09  |  1.4 KB  |  59 lines
  1. Rem * Title  : Maths Expressions
  2. Rem * Author : DBS-MB
  3. Rem * Date   : 1st August 99
  4. rem =========================================
  5. rem DARK BASIC EXAMPLE PROGRAM 2
  6. rem =========================================
  7. rem This program will use some maths command
  8. rem -----------------------------------------
  9.  
  10. rem Set the ink to white and paper color to black 
  11. ink rgb(244,214,210),1
  12.  
  13. print 
  14. rem the sqrt() command
  15. print "THE SQUARE ROOT OF 25 IS ",sqrt(25)
  16. print
  17. rem the abs() command
  18. print "THE POSITIVE NUMBER OF -100.0 IS ",abs(-100.0)
  19. print
  20. rem the acos() command
  21. print "THE ARC COSINE OF 1.0 IS ",acos(1.0)
  22. print
  23. rem the asin() command
  24. print "THE ARC SIN OF 1.0 IS ",asin(1.0)
  25. print
  26. rem the atan() command
  27. print "THE ARC TANGENT OF 1.0 IS ",atan(1.0)
  28. print
  29. rem the cos() command
  30. print "THE COSINE OF 100 IS ",cos(100)
  31. print
  32. rem the exp() command
  33. print "THE EXPONENT OF THE VALUE 5 IS ",exp(5)
  34. print
  35. rem the hcos() command
  36. print "THE HYPERBOLIC COSINE OF 1.0 IS ",hcos(1.0)
  37. print
  38. rem the hsin() command
  39. print "THE HYPERBOLIC SINE OF 1.0 IS ",hsin(1.0)
  40. print
  41. rem the htan() command
  42. print "THE HYPERBOLIC TANGENT OF 1.0 IS ",htan(1.0)
  43. print
  44. rem the int() command
  45. print "THE INT OF 123.4 IS ",int(123.4)
  46. print
  47. rem the tan() command
  48. print "THE TANGENT OF 45 IS ",tan(45.0)
  49. print
  50. rem the sin() command
  51. print "THE SINE OF 90.0 IS ",sin(90.0)
  52. print
  53.  
  54. rem Will wait for you to press any key
  55. suspend for key
  56.  
  57. rem End the program
  58. end
  59.