home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 6_2lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  94 lines
  1. 1 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
  2. 2 poke53280,1:poke53281,1:z$=chr$(34):goto108
  3. 3 print"[147]":fori=1to39:printc$;:next:fori=1to22:print"[157]"c$;:next:print"[157]";
  4. 4 fori=1to38:print"[157]"c$"[157]";:next:printc$
  5. 5 fori=1to23:print"[145]"c$"[157]";:next:return
  6. 7 geta$:ifa$=""then7
  7. 8 print:return
  8. 108 print"[147]"tab(13)"matrizen":print"zusaetzlich zu den oben erwaehnten
  9. 110 [153]"variablen bietet ihnen forbasic die moeg-
  10. 111 print"lichkeit,[129] indizierte variablen zu       benutzen."
  11. 112 print"[129]indizierte variablen werden haeufig bei
  12. 114 [153]"listen, tabellen und anderen abhaengigen";:[153]"mengen verwendet.
  13. 116 print"sie koennen einen, zwei oder mehr":print"indizes benutzen.":gosub7
  14. 118 print"[147]hier einige beispiele fuer[129] indizierte":print"variablen:"
  15. 120 print"  a(6)":print"  r$(4)":print"  r1(21,7)":print"  ff$(k)":print"  u$(r,c)
  16. 121 [153]"  m(2*i+3)
  17. 122 print"eine [129]indizierte variable ist eine
  18. 123 [153]"variable unter hinzufuegung einer liste
  19. 124 print"durch kommata getrennter ausdruecke,
  20. 125 [153]"die in klammern eingeschlossen ist.":[141]7
  21. 140 [153]"loadeine liste von indizierten variablen
  22. 142 print"nennt man [129]vektor (ein index) oder [129]matrix";:print"(mehr als ein index).
  23. 144 [153]"die ausdruecke innerhalb der klammern
  24. 145 print"[129](indizes) geben die [129]position der":print"variablen in der matrix an."
  25. 146 print"in der folgenden graphik wird gezeigt,"
  26. 148 print"wie die indizierten variablen eines ":print"vektors angeordnet sind:"
  27. 150 print"     [207][163][163][163][163][163][207][163][163][163][163][163][207][163][163][163][163][163][207][163][163][163][163][208]":print"     [165]c(0) [165]c(1) [165]c(2) [165]c(3)[167]
  28. 152 [153]"     (NULL)tototototo(NULL)tototototo(NULL)tototototo(NULL)totototosqr
  29. 154 print"der index teilt dem datenspeicher die
  30. 155 [153]"position der variable im vektor mit,"
  31. 156 [153]"so wie der index 2 in c(2) auf den
  32. 157 print"dargestellten platz verweist.":gosub7
  33. 158 y=14:gosub900:printtab(18):fori=1to20:print"c(2)[146][157][157][157][157]";:forj=1to40:next:print"c(2)";
  34. 159 print"[157][157][157][157]";
  35. 160 fork=1to50:next:next:gosub7
  36. 162 y=23:gosub900:print"bitte beachten sie:[129] die erste variable
  37. 164 [153]"des vektors hat den index 0.":[141]7
  38. 165 [153]"loadwie die elemente einer matrix angeordnet";
  39. 166 [153]"sind, wird in der folgenden graphik":[153]"gezeigt:":[153]
  40. 168 [153]"  (NULL)tab(tab(tab(tab(tab(tab(tab((NULL)tab(tab(tab(tab(tab(tab(tab((NULL)tab(tab(tab(tab(tab(tab(tab((NULL)tab(tab(tab(tab(tab(tab((NULL)
  41. 170 print"  [165]c(0,0) [165]c(0,1) [165]c(0,2) [165]c(0,3)[167]
  42. 172 [153]"  (NULL)tototototototo(NULL)tototototototo(NULL)tototototototo(NULL)totototototosqr
  43. 173 print"  [207][163][163][163][163][163][163][163][207][163][163][163][163][163][163][163][207][163][163][163][163][163][163][163][207][163][163][163][163][163][163][208]
  44. 174 [153]"  fnc(1,0) fnc(1,1) fnc(1,2) fnc(1,3)then
  45. 176 print"  [204][164][164][164][164][164][164][164][204][164][164][164][164][164][164][164][204][164][164][164][164][164][164][164][204][164][164][164][164][164][164][186]
  46. 177 [153]"  (NULL)tab(tab(tab(tab(tab(tab(tab((NULL)tab(tab(tab(tab(tab(tab(tab((NULL)tab(tab(tab(tab(tab(tab(tab((NULL)tab(tab(tab(tab(tab(tab((NULL)
  47. 178 print"  [165]c(2,0) [165]c(2,1) [165]c(2,2) [165]c(2,2)[167]
  48. 179 [153]"  (NULL)tototototototo(NULL)tototototototo(NULL)tototototototo(NULL)totototototosqr
  49. 180 print"wieder teilt der index dem datenspeicher";
  50. 181 print"die position der variable in der matrix":print"mit,
  51. 182 [153]"so wie c(1,3) die dargestellte position":[153]"inne hat.":[141]7
  52. 186 y[178]8:[141]900:[153][163]27):[129]i[178]1[164]20:[153]"c(1,3)waitcmdcmdcmdcmdcmdcmd";:[129]j[178]1[164]40:[130]
  53. 188 [153]"c(1,3)cmdcmdcmdcmdcmdcmd";:[129]j[178]1[164]50:[130]:[130]:[141]7
  54. 189 [153]"load"[163]12)"dim-anweisung":[153]"diefor dimensionsanweisung (kurz: dim-"
  55. 190 [153]"anweisung) forsetzt die maximale groesse
  56. 192 print"eines vektors oder einer matrix fest.
  57. 194 [153]"zum beispiel besagt die anweisung:"
  58. 195 [153]"     30 dim a(20), c$(15,3)
  59. 196 print"dass ein vektor, genannt a[146],
  60. 197 [153]"21 elemente haben soll (indizes 0-20)"
  61. 200 [153]"und dass eine matrix, genannt c$wait,
  62. 202 print"16 reihen und 4 spalten haben soll.":print"bem.: 0 ist immer der";
  63. 204 print" erste index.":print"die[129] dim-anweisung ist nur notwendig,
  64. 206 [153]"forwenn die indizes die zahl 10 ueber-":[153]"schreiten.":[141]7
  65. 210 c$[178]"(NULL)":[141]3:[153]""[163]10)"ende von lektion 6":[137]1000
  66. 900 [153]"":[129]i[178]0[164]y[171]1:[153]"";:[130]:[153]"onon";:[142]
  67. 910 [129]j[178]1[164]20:[153]">";:[129]i[178]1[164]50:[130]:[153]"cmd cmd";:[129]k[178]1[164]50:[130]:[130]:[142]
  68. 920 y[178]y1:[141]900:[129]i[178]0[164]y2[171]y1:[153]"                                       ":[130]
  69. 922 [141]900:[142]
  70. 1000 [153]" lektion 7 usw. befindet sich auf  wait"
  71. 1010 [153]" der rueckseite der kassette.      wait"
  72. 1020 [153]" spulen sie deshalb vor beantwortenwait"
  73. 1030 [153]" der frage an das bandende und     wait"
  74. 1040 [153]" drehen sie die kassette um !      wait"
  75. 1050 [153]"wenn sie bereit sind fuer lektion 7,"
  76. 1060 [153]"antworten sie bitte mit j  (=ja)"
  77. 1070 [153]"sonst mit n  (=nein)"
  78. 1080 [161]a$:[139]a$[178]"n"[167]1500
  79. 1090 [139]a$[179][177]"j"[167]1080
  80. 1100 [153]"load"
  81. 1110 [153]"     dann weiterhin viel vergnuegen !"
  82. 1120 [147]"7/1lektion",8
  83. 1500 [153]""
  84. 1510 [129]i[178]1[164]15:[153]"                                     "
  85. 1520 [129]k[178]1[164]10:[130]:[130]
  86. 1600 [153]"onononononononononononschade! es macht freude, mit ihnen  "
  87. 1610 [153]"zu arbeiten !!"
  88. 1620 [153]"lassen sie mich nicht lange"
  89. 1630 [153]"warten, bis zu unserer naechsten "
  90. 1640 [153]"sitzung bei     lektion 7wait"
  91. 1660 [129]z[178]1[164]700:[130]z
  92. 1670 [158]64738
  93. 12311 f
  94.