home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / amos1.34_progs / quadratic.amos / quadratic.amosSourceCode
Encoding:
AMOS Source Code  |  1993-01-17  |  966 b   |  42 lines

  1. Rem ---------------------------------------- 
  2. Rem -                                      - 
  3. Rem - Routine to solve Quadratic Equations - 
  4. Rem -                                      - 
  5. Rem -        Written in AMOS Basic         - 
  6. Rem -                                      - 
  7. Rem -          by  G. Albrow '91           - 
  8. Rem -                                      - 
  9. Rem ---------------------------------------- 
  10. '
  11. '
  12. '          +   _________   
  13. '       -b - \/ b^2-4ac  
  14. '   x = ----------------   
  15. '              2a  
  16. '
  17. '
  18. Screen Open 1,640,200,4,Hires
  19. Curs Off : Paper 0 : Hide : Fix 3
  20. '
  21. BEGN:
  22. '
  23. Cls 0
  24. Locate 0,0
  25. Centre "Quadratic Equation Solver"
  26. Locate 0,1 : Centre "-------------------------"
  27. Locate 0,5 : Input "Enter a,b and c (separated by commas) : ";A#,B#,C#
  28. '
  29. X1#=(-B#+Sqr(B#^2-(4*A#*C#)))/(2*A#)
  30. X2#=(-B#-Sqr(B#^2-(4*A#*C#)))/(2*A#)
  31. '
  32. Locate 35,10
  33. Print "x = ";X1#
  34. Locate 31,12
  35. Print "or"
  36. Locate 35,14
  37. Print "x = ";X2#
  38. Curs Off 
  39. '  
  40. Wait Key 
  41. '
  42. Goto BEGN