home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 4_2lektion (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  3.0 KB  |  73 lines
  1. 0 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
  2. 1 poke53280,1:poke53281,1:q$="[145][145]                                     [145][145]":goto18
  3. 2 print"[129][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":return
  4. 3 print"[147]":fori=1to39:printc$;:next:fori=1to22:print"[157]"c$;:next:print"[157]";
  5. 4 fori=1to38:print"[157]"c$"[157]";:next:printc$
  6. 5 fori=1to23:print"[145]"c$"[157]";:next:return
  7. 6 geta$:ifa$=""then6
  8. 7 print:return
  9. 9 gosub7:print"versuchen sie es nocheinmal!":gosub7:print"[147]
  10. 10 z$[178][199](34)
  11. 12 [129]i[178]1[164]1200:[130]:[142]
  12. 14 [153]"";
  13. 15 [129]i[178]1[164]u[171]1:[153]:[130]:[129]i[178]u[164]w
  14. 16 [153]"                                       ";
  15. 17 [130]:[153]"";:[129]i[178]1[164]u[171]1:[153]:[130]:[142]
  16. 18 z$[178][199](34)
  17. 100 [153]"load       string-variablen ":[141]7
  18. 225 [153]"sie erinnern sich, dass variablen das"
  19. 226 [153]"speichern von zahlen ermoeglichen.":[153]"(lektion 2.1)":[141]7
  20. 230 [153]"forstring-variablen ermoeglichen nun das ":[153]"forspeichern von strings.":[141]7
  21. 235 [153]"eine forstring-variable wird wie eine"
  22. 236 [153]"gewoehnliche variable mit hinzufuegung":[153]"des zeichens for$wait gebildet."
  23. 240 [141]7:[153]"einige beispiele fuer string-variablen:"
  24. 241 [153]"    a$ oder ac$ oder z8$
  25. 244 gosub7
  26. 245 print"eine [129]string-variable kann mit dem":print"folgenden befehl gespeichert";
  27. 246 print" werden:"
  28. 250 printtab(15)"input a$[146]":gosub7
  29. 255 print"oder mit folgendem befehl aufgerufen":print"werden:";
  30. 256 printtab(15)"print a$[146]":gosub6
  31. 260 print"[147]10 print"z$"eingabe des namens und alters"z$"
  32. 265 [153]"20 print ";z$;"(durch komma getrennt)";z$:[153]"40 input n$,a
  33. 270 print"80 print n$ ";z$;"ist";z$;" 365*a ";z$;"tage alt";z$
  34. 280 gosub7 :gosub7
  35. 290 print"betrachten sie das obige programm."
  36. 295 print"koennen sie sich vorstellen, was beim"
  37. 300 print"programmablauf geschieht (ja oder nein)":inputa$
  38. 302 ifa$="nein"then308
  39. 306 if a$="ja"goto324
  40. 307 printq$:goto260
  41. 308 print"[129]eine stringvariable ermoeglicht nicht-
  42. 309 [153]"numerische daten - wie namen, adressen,"
  43. 310 [153]"worte, usw. - forin den computer einzulesen";
  44. 312 [141]7:[153]"enthaelt ein inputbefehl eine string-
  45. 314 print"variable - wie a$ - so teilt diese dem
  46. 316 [153]"computer mit, dass nichtnumerische daten":[153]"eingelesen werden sollen."
  47. 317 [141]7:[153]"enthaelt ein printbefehl stringvariablen";
  48. 318 [153]"- wie a$ - so teilen diese dem computer"
  49. 319 [153]"mit, dass nichtnumerische daten"
  50. 320 [153]"gedruckt werden sollen.":[141]6:u[178]6:w[178]25:[141]14
  51. 322 [141]2:[137]325
  52. 324 u[178]6:w[178]25:[141]14:[141]2:[153]"forgut ! ";
  53. 325 [153]"das programm druckt also den namen":[153]"und das alter in tagen aus."
  54. 327 [141]7:[153]"sehen sie nun, was beim programmablauf  ";
  55. 330 [153]"passiert.(bitte geben sie name und alter";:[153]"in der angegebenen";
  56. 331 [153]" reihenfolge ein!):":[141]7
  57. 332 [153]"eingabe des namens und alters":[153]"(durch komma getrennt)":[133]n$,a
  58. 334 [153]n$" ist"365[172]a"tage alt";:[141]6
  59. 340 [153]"load"[163]18)"terme"
  60. 342 [153]"numerische daten werden bei berechnungen";:[153]"benutzt.":[141]7
  61. 344 [153]"die grundrechenarten werden in for basic wait":[153]"durch verbindung des entspr";
  62. 346 [153]"echenden":[153]"rechenzeichens mit zahlen (konstanten)
  63. 347 print"und/oder variablen ausgefuehrt.
  64. 348 [141]7:[153]"rechenzeichen (operatoren) sind:":[141]7
  65. 350 [153][163]8)"+wait    fuer die addition":[153][163]8)"-wait    fuer die subtraktion
  66. 352 printtab(8)"*[146]    fuer die multiplikation":printtab(8)"/[146]    fuer die division
  67. 354 [153][163]8)"^wait    fuer das potenzieren
  68. 356 printtab(8)"( )[146]  fuer klammerrechnung
  69. 400 [141]6:c$[178]"(NULL)":[141]3:[153]"forende von lektion 4 teil 2
  70. 404 print"bitte warten sie, bis teil 3":print"eingelesen ist.
  71. 406 [153]"
  72. 410 load"4/3lektion",8
  73.