home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 September / 64er_Magazin_85-09_1985_Markt__Technik_de.d64 / prg.logelei-2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  64 lines
  1. 1 rem *********************************
  2. 2 rem *                               *
  3. 3 rem * die schlussfolgerungsmaschine *
  4. 4 rem *       bis zu 4 variable       *
  5. 5 rem *                               *
  6. 6 rem *  heimo ponnath  hamburg 1985  *
  7. 7 rem *                               *
  8. 8 rem *********************************
  9. 9 rem
  10. 10 printchr$(147):poke53280,0:poke53281,0:poke646,5:goto30
  11. 15 rem **** up cursor setzen ****
  12. 20 poke211,s:poke214,z:sys58640:return
  13. 25 rem **** hp-1: funktioneneingabe ***
  14. 30 s=7:z=5:gosub20:poke646,7:print"schlusfolgerungsmaschine
  15. 35 s[178]10:z[178]6:[141]20:[151]646,2:[153]"bis zu 4 variable"
  16. 40 s[178]6:z[178]9:[141]20:[151]646,5:[153]"im programm ist die funktion:"
  17. 45 k[178]1:[141]100:k[178]0:s[178]0:z[178]12:[141]20:[153]"y="l$
  18. 46 z[178]14:[141]20:[153]"mit "n" variablen"
  19. 50 s[178]6:z[178]16:[141]20
  20. 55 [153][199](18)"a"[199](146)"lte oder "[199](18)"n"[199](146)"eue funktion ?"
  21. 60 [161]a$:[139]a$[179][177]"a"[175]a$[179][177]"n"[167]60
  22. 62 z[178]17:[141]20:[153]"wieviele variable (max 4)";:[133]b$
  23. 63 n[178][197](b$):[139]n[179]1[176]n[177]4[167]62
  24. 65 [139]a$[178]"a"[167]95
  25. 70 s[178]0:z[178]19:[141]20:[153]"y(a,b,..)=";:[133]l$:[151]781,19:[158]59903
  26. 75 [141]20:[153]"y="l$:[129]i[178]0[164]500:[130]:[151]646,0
  27. 80 [153][199](147)[199](17):[153]"100l$="[199](34)l$[199](34)
  28. 85 [153]"110deffnl("[199](64[170]n)")="l$:[153]"120n="n:[153]"run95"[199](19);
  29. 90 [151]631,13:[151]632,13:[151]633,13:[151]634,13:[151]198,4:[128]
  30. 94 [143] **** hp-2: berechnungen ****
  31. 95 [151]646,5:[153][199](147)
  32. 100 l$[178]"((a>=b)and(b>=c)and(c>=d))>=(a>=d)"
  33. 110 [150][165]l(d)[178]((a[177][178]b)[175](b[177][178]c)[175](c[177][178]d))[177][178](a[177][178]d)
  34. 120 n[178] 4
  35. 125 c$[178]"    --------------------------------"
  36. 130 [139]k[178]1[167][142]
  37. 140 s[178]2:z[178]0:[141]20:[151]646,2:[153]"hier ist die wahrheitstabelle von:"
  38. 145 s[178]0:z[178]2:[141]20:[153]"y="l$:[151]646,1:[153]:[153]c$:[151]646,5
  39. 150 [145]n[141]200,300,400,500:[153]:[151]646,1:[153]c$:[151]646,5:[153]
  40. 155 [153]"wenn alle ergebnisse -1 lauten, dann"
  41. 160 [153]"ist der schluss richtig ! (taste)":[151]198,0:[146]198,1
  42. 190 [128]
  43. 195 [143] ***** 1 variable *****
  44. 200 [153][163]15)"a"[163]30)"ergibt":[151]646,1:[153]c$:[153]:[151]646,5
  45. 205 [129]a[178][171]1[164]0:[153][163]15)a[163]30)[165]l(a)
  46. 210 [130]a:[142]
  47. 295 [143] ***** 2 variable *****
  48. 300 [153][163]5)"a"[163]10)"b"[163]30)"ergibt":[151]646,1:[153]c$:[153]:[151]646,5
  49. 305 [129]a[178][171]1[164]0:[129]b[178][171]1[164]0
  50. 310 [153][163]5)a[163]10)b[163]30)[165]l(b)
  51. 315 [130]b:[130]a:[142]
  52. 395 [143] ***** 3 variable *****
  53. 400 [153][163]5)"a"[163]10)"b"[163]15)"c"[163]30)"ergibt"
  54. 405 [151]646,1:[153]c$:[153]:[151]646,5
  55. 410 [129]a[178][171]1[164]0:[129]b[178][171]1[164]0:[129]c[178][171]1[164]0
  56. 415 [153][163]5)a[163]10)b[163]15)c[163]30)[165]l(c)
  57. 420 [130]c:[130]b:[130]a:[142]
  58. 495 [143] ***** 4 variable *****
  59. 500 [153][163]5)"a"[163]10)"b"[163]15)"c"[163]20)"d"[163]30)"ergibt"
  60. 505 [151]646,1:[153]c$:[153]:[151]646,5
  61. 510 [129]a[178][171]1[164]0:[129]b[178][171]1[164]0:[129]c[178][171]1[164]0:[129]d[178][171]1[164]0
  62. 515 [153][163]5)a[163]10)b[163]15)c[163]20)d[163]30)[165]l(d)
  63. 520 [130]d:[130]c:[130]b:[130]a:[142]
  64.