home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 93xx / 9301.d64 / determinator (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 1 PRINTCHR$(14);CHR$(8);"[147][158]";TAB(14);"[196][197][212][197][210][205][201][206][193][212][207][210]":POKE53280,0:POKE53281,0
  2. 2 PRINT"F1[146] [204]INEARE [199]LEICHUNGEN":PRINT"F3[146] [209]UADRATISCHE [199]LEICHUNGEN"
  3. 3 PRINT"F5[146] [204]INEARE [199]LEICHUNGSSYSTEME":PRINT"   MIT ZWEI [214]ARIABLEN":PRINT"F7[146] [197]NDE"
  4. 4 GETA$:A$=A$+CHR$(0):IFASC(A$)<133ORASC(A$)>136THEN4
  5. 5 ON ASC(A$)-133GOTO9,14,19
  6. 6 PRINT"[147]       A*X+B=0":GOSUB20:PRINT"           A,B":PRINT"EIN.":INPUTA,B
  7. 7 IFA=0THENPRINT"[196]IESER [198]ALL IST NICHT DEFINIERT!!!":WAIT198,1:GOTO1
  8. 8 PRINT"[167][204]=[";-B/A;"]":WAIT198,1:GOTO 1
  9. 9 PRINT"[147]       A*X^2+B*X+C=0":GOSUB20:PRINT"           A,B,C":PRINT"
  10. 10 [133]A,B,C:D[178]B[174]2[171]4[172]A[172]C:[139]A[178]0[167]A[178]B:B[178]C:[137]7
  11. 11 [139]D[177]0[167][153]"THEN(null)=[";([171]B[170][186](D))[173](2[172]A);";";([171]B[171][186](D))[173](2[172]A);"]":[146]198,1:[137]1
  12. 12 [139]D[178]0[167][153]"THEN(null)=[";[171]B[173]2[172]A;"]":[146]198,1:[137] 1
  13. 13 [153]"THEN(null)=[]":[146]198,1:[137]1
  14. 14 [153]"LOAD       A1*X+B2*Y+C1=0":[153]"       A2*X+B2*X+C2=0":[141]20:[153][163]11);"";
  15. 15 [153]"A1,B1,C1":[153][163]11)"A2,B2,C2":[153]"EIN.":[133]A,B,C,A2,B2,C2:D[178]A[172]B2[171]A2[172]B
  16. 16 DX[178]B[172]C2[171]B2[172]C:DY[178]C[172]A2[171]C2[172]A:[139]D[179][177]0[167][153]"THEN(null)=[(";DX[173]D;"THEN";DY[173]D;")]":[146]198,1:[137]1
  17. 17 [139]DX[178]0[175]DY[178]0[167][153]"THEN(null)=[(XTHENY)THEN";A1;"*X+";B1;"*Y+";C1;"=0]":[146]198,1:[137]1
  18. 18 [153]"THEN(null)=[]":[146]198,1:[137]1
  19. 19 [158]64738:[143] SYS-BEFEHL KANN DURCH <END> ERSETZT WERDEN
  20. 20 [153]"PEEKITTE GEBEN (null)IE DIE (null)OEFFIZIENTEN IN DERASCORM":[142]
  21.