home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9003a.d64 / algebra (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  543b  |  33 lines
  1. 10 REM MPK1 QUADRATISCHE GLEICHUNGEN
  2. 15 :
  3. 20 REM ALGEBRAISCHE LOESUNG
  4. 25 :
  5. 30 REM WERTE NACH DER GLEICHUNG:
  6. 40 REM A*X^2+B*X+C=0
  7. 45 :
  8. 50 REM VORGABEN:
  9. 55 :
  10. 60 A=1: B=-20: C=51
  11. 65 :
  12. 70 REM BERECHNUNG/AUSGABE:
  13. 75 :
  14. 80 D=B^2-4*A*C: REM DISKRIMINANTE
  15. 85 :
  16. 90 IF D<0 THEN 210
  17. 100 IF D=0 THEN X=-B/(2*A): GOTO 180
  18. 110 :
  19. 120 X1=-(B+SQR(D))/(2*A)
  20. 130 X2=-(B-SQR(D))/(2*A)
  21. 135 :
  22. 140 PRINT"ES GIBT ZWEI LOESUNGEN:"
  23. 150 PRINT"X1=";X1
  24. 160 PRINT"X2=";X2
  25. 170 END
  26. 175 :
  27. 180 PRINT"ES GIBT GENAU EINE LOESUNG:"
  28. 190 PRINT"X=";X
  29. 200 END
  30. 205 :
  31. 210 PRINT"DIESE GLEICHUNG BESITZT KEINE LOESUNG."
  32. 220 END
  33.