home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 7_3lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  78 lines
  1. 1 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
  2. 2 poke53280,1:poke53281,1:z$=chr$(34):q$="[145]                          [145][145][145][145]":goto168
  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=1to8:print">";:fori=1to50:next:print"[157] [157]";:fork=1to50:next:next:return
  10. 13 y=y1:gosub9:fori=0to24-y1:print"                                       ":next
  11. 14 gosub9:return
  12. 168 print"[147]"tab(8)"for...next (fortsetzung)":gosub7
  13. 170 print"[147]welcher der folgenden befehle ist nicht[146]":print"richtig:
  14. 172 [153]"":[153]"1.wait 12 for k=1 to 100":[153]"   14 print k
  15. 174 print"   16 next":print"2.[146] 1 a=10":print"   3 b=3":print"   5 for x=a to b step -1
  16. 176 [153]"   7 input r(x)":[153]"   9 next":[153]"3.wait 9  for y+z=1 to 10
  17. 178 print"   11 print y,z":print"   13 next":input"(1, 2 oder 3)";a$
  18. 180 onval(a$)goto184,190,200
  19. 183 printq$:goto178
  20. 184 print"[129]nein, dieser for...next-befehl ist":print"korrekt.":gosub7
  21. 185 y1=21:gosub13:y=21:gosub9
  22. 186 print"es werden die zahlen 1 bis 100 in einer reihe gedruckt.
  23. 188 [153]"ueberlegen sie nochmal!":[141]7:[137]170
  24. 190 [153]"fornein, dieser befehl ist korrekt!
  25. 191 print"variablen und terme koennen  start-":print"und endwert sein.[145][145]"
  26. 193 gosub7:y1=21:y=21:gosub13:gosub9
  27. 194 print"der wert der schrittlaenge kann negativ":print"sein.":gosub7
  28. 196 gosub13:gosub9:print"der input-befehl wird zunaechst mit dem
  29. 198 [153]"wert x=10, dann mit x=9, usw. bis ":[153]"schliesslich mit x=3 ausgefuehrt.
  30. 199 gosub7:gosub13:gosub9:print"ueberlegen sie nochmal!":gosub7:goto170
  31. 200 print"ja, richtig!":print"terme (wie y+z[146]) duerfen nicht links
  32. 202 [153]"von dem zeichen =wait stehen.onon":[141]7
  33. 204 [153]"loades ist zulaessig, und haeufig auch
  34. 205 print"nuetzlich,[129] mehrere for...next-schleifen":print"ineinander zu schachteln."
  35. 206 print"im folgenden beispiel wird diese praktik";:print"illustriert:
  36. 208 [153]"  10 for i=1 to 5":[153]"  20 for j=1 to 3":[153]"  30 input m(i,j)":[153]"  40 next j
  37. 210 print"  50 next i":print"dieses programm erlaubt die eingabe von"
  38. 212 print"15 zahlen in die matrix m.
  39. 214 [153]"bitte beachten sie, dass fuer die
  40. 215 print"auessere schleife die variable i
  41. 216 [153]"benutzt wird, waehrend die variable
  42. 217 print"fuer die innere schleife j heisst.":gosub7
  43. 218 y=8:gosub9:print"[207][163][157][157][165][157][165][157][165][157][204][164]":y=9:gosub9:print"[207][157][165][157][204]":gosub7:y1=14
  44. 219 gosub13
  45. 220 print"da j die werte 1, 2, 3 fuer jedes i an-
  46. 221 [153]"nimmt, sieht die matrix m folgender-":[153]"massen aus.
  47. 222 print"":print"m(1,1)":print"m(1,2)":print"m(1,3)":print"m(2,1)
  48. 224 [153]"m(2,2)":[153]"usw.":[141]7
  49. 226 [153]"load"[163]12)"rem-befehl":[153]"der forrem-befehl ermoglicht es, bemer-"
  50. 228 [153]"kungen in das programm zu schreiben."
  51. 230 [153]"sie koennenfor rem-befehle benutzen, um
  52. 231 print"das programm verstaendlicher zu machen.":print"dazu nun ein beispiel:"
  53. 232 print" 10 rem dieses programm druckt hallo":print" 20 print "z$"hallo"z$
  54. 234 print"jede aussage nach einem [129]rem-befehl
  55. 235 [153]"wird vom computer nicht beachtet. ":[141]7
  56. 300 [153]"loadbevor sie mit lektion 8 fortfahren,
  57. 301 print"versuchen sie bitte, ein programm zu":print"schreiben und zu rechnen,";
  58. 302 print"das die zahlen 1 bis 100 in die eine reihe";
  59. 303 print" druckt und":print"in die reihe daneben ihre quadrate.
  60. 304 [153]"(zum beispiel ist das quadrat von 5 ":[153]" 5*5=25)
  61. 306 print"[156]bitte notieren sie die aufgabe,         [146]"
  62. 307 print"bevor sie eine beliebige taste druecken.[146]
  63. 308 [141]7
  64. 910 c$[178]" wait":[141]3:[153]""[163]10)"ende von lektion 7
  65. 917 print"wenn sie bereit sind fuer lektion 8,
  66. 918 [153]"antworten sie bitte mit j (=ja)"
  67. 919 [153]"sonst mit n (=nein)"
  68. 920 [161]a$:[139]a$[178]"n"[167]1000
  69. 930 [139]a$[179][177]"j"[167]920
  70. 940 [153]"load"
  71. 950 [153]"clr     der endspurt beginnt !"
  72. 960 [147]"8/1lektion",8
  73. 1000 [153]"load"
  74. 1010 [153]"clr    sie haben sich eine kleine pause"
  75. 1020 [153]"    redlich verdient !"
  76. 1040 [129]i[178]1[164]700:[130]i
  77. 1050 [158]64738
  78.