home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 7_2lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  59 lines
  1. 1 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
  2. 2 poke53280,1:poke53281,1:z$=chr$(34):goto110
  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. 9 print"":fori=0toy-1:print"";:next:print"[145][145]";:return
  9. 11 forj=1to15:print">";:fori=1to40:next:print"[157]>[146][157]";:fork=1to20:next:next:print" ":return
  10. 13 y=y1:gosub9:fori=0toy2-y1:print"                                       ":next
  11. 14 gosub9:return
  12. 110 print"[147]"tab(10)"for...next-befehle ":gosub7
  13. 112 print"der [129]for...next-befehl wird benutzt,
  14. 114 [153]"wenn eine bestimmtefor anzahl von schleifenausgefuehrt werden sollen.
  15. 116 gosub7:print"das folgende programm soll die werte
  16. 118 [153]"eines vektors zunaechst einlesen und":[153]"dann drucken.":[141]7
  17. 120 [153]" 2 for i=1 to 10":[153]" 4 read a(i)":[153]" 6 print a(i)":[153]" 8 next i
  18. 122 print" 9 data 3.1,1.4,8,9.4,2,5,7,8.6,3,14.7":gosub7:print"der [129]for[146]-befehl"
  19. 123 y=11
  20. 124 gosub9:gosub11:gosub7:y=17:gosub9:printtab(15)"bewirkt die wiederholung
  21. 126 [153]"der anweisungen,die vor dem fornextwait-befehl":y[178]14:[141]7:[141]9
  22. 127 [141]11:[141]7:y[178]19:[141]9:[153]"stehen, solange bis der endwert fuer
  23. 128 print"die variable i (i=10) erreicht ist.":print
  24. 130 print"die anweisungen werden also fuer i=1,
  25. 131 [153]"fuer i=2, usw bis i=10 ausgefuehrt.
  26. 132 gosub7:y1=17:y2=23:gosub13:gosub9:print"bem.:zu jedem for[146]-befehl gehoert ein
  27. 133 [153]"     nextwait-befehl.
  28. 135 gosub7:print"[147]eine sehr nuetzliche ergaenzung zum
  29. 136 [153]"forforwait-befehl ist die forstepwait-anweisung.":[153]:[153]
  30. 137 [153]"mit derfor stepwait-anweisung legen sie die
  31. 138 print"[129]schrittweite im for...next[146]-befehl fest.
  32. 139 [153]"hier ein beispiel:":[141]7
  33. 140 [153]" 2  for i=1 to 6
  34. 142 print" 4  read a(i)":print" 6  next i":print" 8  for i=6 to 1 step -1":print" 10 print a(i)
  35. 144 [153]" 12 next i":[153]" 14 data 3.2, 2, 5.1, 0.1, 66, .7":[141]7
  36. 146 [153]"zunaechst werden die daten im vektor a  gespeichert.":y[178]11:[141]7
  37. 148 [141]9:[129]m[178]1[164]20:[153][163]9)"a(i)on":[153][163]9)"a(i)on":[129]l[178]1[164]60:[130]:[130]
  38. 150 y[178]20:[141]9:[153]"und dann werden die daten in der zweiten";
  39. 151 [153]"schleife (zeile 8 bis 12)":[141]7
  40. 152 [129]y[178]12[164]14:[141]9:[141]11:[130]:y[178]21:[141]9
  41. 153 [153]:[153]"in umgekehrter reihenfolge gedruckt.":[141]7
  42. 154 [153]"da die schrittweite -1 betraegt, hat iwait
  43. 156 print"zunaechst den wert 6, dann i=5 usw bis":print"schliesslich gilt: i=1.
  44. 157 [141]7:[153]:[153]"wenn keine schrittweite angegeben ist
  45. 158 print"[129](step[146] wurde weggelassen), dann wird
  46. 159 [153]"die forschrittweite 1 festgelegt.
  47. 160 gosub7:print"[147]der [129]for...-befehl hat das format:":gosub7
  48. 162 print"[129]zeilen#[146] for variable[146] = y[146] to z[146] step s":gosub7
  49. 164 print"wobei y, z, und s[146] zahlen, variablen ":print"oder terme sein koennen."
  50. 165 gosub7
  51. 166 print"der[129] next-befehl hat das format:":gosub7
  52. 168 print"[129]zeilen#[146] next variable":gosub7
  53. 170 print"wobei die gleiche variable[146] wie im":print"[129]for-befehl benutzt werd
  54. 175 [141]7
  55. 210 c$[178]" ":[141]3:[153]"ende von lektion 7 teil 2
  56. 212 print"bitte warten sie, bis teil 3":printtab(7)"eingelesen ist.
  57. 213 [153]"
  58. 240 load"7/3lektion",8
  59.