The second of James Hale's routines. This one solves quadratic equations for you Very useful The program asks for three values : a, b and c. The computer then does the rest. 1 ' Quadsolver
2 ' by James Hale
3 ' Amstrad Action May 88
10 MODE 2:DIM q$(8)
20 PRINT"Program to solve quadratic equations"
30 PRINT"------------------------------------":PRINT
40 PRINT"Type in the three coefficients a,b,c with a comma between terms."
50 PRINT"Then press enter."
60 INPUT a,b,c:IF a<>0 THEN 80
70 PRINT:PRINT"This is not a quadratic equation.":GOTO 180
80 d=b*b-4*a*c:IF d<>0 THEN 110
90 PRINT"Both roots are equal,and have the value:";-b/(2*a)
100 GOTO 180
110 PRINT:IF d>0 THEN 130
120 PRINT"This equation does not have real roots.":GOTO 180
130 d=SQR(d):IF b>=0 THEN 150
140 r1=(-b+d)/(2*a):GOTO 160
150 r1=(-b-d)/(2*a)
160 r2=c/(a*r1)
170 PRINT"The two roots are ";r1;"and ";r2
180 ENDAA#32
| ★ AMSTRAD CPC ★ DOWNLOAD ★ |
|
CPCrulez[Content Management System] v8.732-desktop/c
Page créée en 021 millisecondes et consultée 1263 foisL'Amstrad CPC est une machine 8 bits à base d'un Z80 à 4MHz. Le premier de la gamme fut le CPC 464 en 1984, équipé d'un lecteur de cassettes intégré il se plaçait en concurrent du Commodore C64 beaucoup plus compliqué à utiliser et plus cher. Ce fut un réel succès et sorti cette même années le CPC 664 équipé d'un lecteur de disquettes trois pouces intégré. Sa vie fut de courte durée puisqu'en 1985 il fut remplacé par le CPC 6128 qui était plus compact, plus soigné et surtout qui avait 128Ko de RAM au lieu de 64Ko. |
|
|
