home *** CD-ROM | disk | FTP | other *** search
AMOS Source Code | 1993-01-17 | 966 b | 42 lines |
- Rem ----------------------------------------
- Rem - -
- Rem - Routine to solve Quadratic Equations -
- Rem - -
- Rem - Written in AMOS Basic -
- Rem - -
- Rem - by G. Albrow '91 -
- Rem - -
- Rem ----------------------------------------
- '
- '
- ' + _________
- ' -b - \/ b^2-4ac
- ' x = ----------------
- ' 2a
- '
- '
- Screen Open 1,640,200,4,Hires
- Curs Off : Paper 0 : Hide : Fix 3
- '
- BEGN:
- '
- Cls 0
- Locate 0,0
- Centre "Quadratic Equation Solver"
- Locate 0,1 : Centre "-------------------------"
- Locate 0,5 : Input "Enter a,b and c (separated by commas) : ";A#,B#,C#
- '
- X1#=(-B#+Sqr(B#^2-(4*A#*C#)))/(2*A#)
- X2#=(-B#-Sqr(B#^2-(4*A#*C#)))/(2*A#)
- '
- Locate 35,10
- Print "x = ";X1#
- Locate 31,12
- Print "or"
- Locate 35,14
- Print "x = ";X2#
- Curs Off
- '
- Wait Key
- '
- Goto BEGN