| | |
| 6. WURZEL AUS QUADRATISCHEN GLEICHUNGEN | |
| Allgemein gesagt haben quadratische Gleichungen die Form ax** 2 + bx + c = 0, wobei a, b und c die konstanten Koeffizienten sind und x die unbekannte Variable. Mit diesem Programm können Sie leicht die Wurzel daraus (Werte von x) ziehen. | |
| | |
| 10 REM ROOTS OF QUADRATIC | |
| 20 REM EQUATION | |
| 30 CLS | |
| 40 PRINT "QUADRATISCHE GLEICHUNG" | |
| 50 PRINT "A*X^2+B*X+C=0" | |
| 60 PRINT "KOEFFIZIENTEN EINGEBEN "; | |
| 70 PRINT "A,B,C" | |
| 80 INPUT A,B,C | |
| 90 D = B ^ 2 - 4 * A * C | |
| 100 IF D < 0 THEN 160 | |
| 110 D = SQR (D) | |
| 120 PRINT "DIE WURZELN SIND :" | |
| 130 PRINT ( - B - D) / (2 * A); | |
| 140 PRINT ( - B + D) / (2 * A) | |
| 150 GOTO 170 | |
| 160 PRINT "KEINE ECHTE WURZEL" | |
| 170 END | |
