home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9011a.d64 / brueche (.txt) next >
Commodore BASIC  |  1995-03-30  |  603b  |  32 lines
  1. 10 PRINT"[147]":REM ADDITION GEMEINER BRUECHE
  2. 20 PRINT"ADDITION GEMEINER BRUECHE"
  3. 30 PRINT"*************************"
  4. 40 PRINT:GOTO130
  5. 50 REM UNTERPR. GGT
  6. 60 IFA<BTHEN S=A:A=B:B=S
  7. 70 C=A/B
  8. 80 IFC=INT(C)THENT=B:RETURN
  9. 90 R=A-INT(C)*B
  10. 100 A=B:B=R
  11. 110 IFR<>0THENT=R:GOTO70
  12. 120 RETURN
  13. 130 INPUT"  1. ZAEHLER ";Z1
  14. 140 PRINTTAB(14)"-----"
  15. 150 INPUT"  1. NENNER  ";N1
  16. 160 PRINT:PRINTTAB(15)"+":PRINT
  17. 170 INPUT"  2. ZAEHLER ";Z2
  18. 180 PRINTTAB(14)"-----"
  19. 190 INPUT"  2. NENNER  ";N2
  20. 200 A=N1:B=N2:GOSUB60
  21. 210 H=N1*N2/T
  22. 220 Z=H*Z1/N1+H*Z2/N2
  23. 230 A=Z:B=H:GOSUB60
  24. 240 PRINT:PRINT:PRINTTAB(6)Z;TAB(20)Z/T
  25. 250 PRINTTAB(6)"-----    =    -----"
  26. 260 PRINTTAB(6)H;TAB(20)H/T
  27. 270 G=INT(Z/H)
  28. 280 Z=Z/T-G*H/T
  29. 290 PRINT:PRINTTAB(20)Z
  30. 300 PRINTTAB(15)"=";G;"-----"
  31. 310 PRINTTAB(20)H/T
  32.