home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 4_4lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  94 lines
  1. 0 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
  2. 1 poke53280,1:poke53281,1
  3. 2 q$="[145]                                     [145][145][145]":z$=chr$(34):goto20
  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. 8 gosub7:print"versuchen sie es nochmal!":gosub6:return
  10. 9 print"[145][145][145][207]";:fori=1to37:print"[163]";:next:print"[208]":print"[165]"tab(38)"[167]":print"[165]"tab(38)"[167]
  11. 10 [153]"(NULL)";:[129]i[178]1[164]37:[153]"to";:[130]:[153]"sqr":[142]
  12. 20 [153]"load"[163]10)"hierarchie":[153][163]5)"(fortsetzung von 4.3)":[141]6
  13. 442 [153]"loadangenommen fuer die variablen r, s, t
  14. 443 print"werden folgende werte eingegeben:":gosub7:printtab(12)"r = 4
  15. 444 [153][163]12)"s = 7":[153][163]12)"t = 9":[141]7
  16. 446 [153]"und es soll der term (s+3+2*r)/t+1wait
  17. 447 print"berechnet werden.":print:print"wie lautet ihrer meinung nach das
  18. 448 [153]"ergebnis (sollten sie es nicht wissen,":[153]"geben sie bitte 0wait ein.)"
  19. 450 [133]a:[153]:[139] a[178]3 [137] 470
  20. 451 [139]a[178]0[137]458
  21. 452 [153]a"for ist nicht richtig!":[141]7:[153]"wollen sie die richtige antwort sehen,
  22. 453 print"dann geben sie r[146] ein.":print"wollen sie es nochmal versuchen, dann"
  23. 454 print"geben sie v[146] ein.":print"(r oder v)";:inputa$
  24. 455 ifa$="v"then442
  25. 456 ifa$="r"then458
  26. 457 printq$:print"[147]":goto452
  27. 458 print"[147]das ergebnis von (s+3+2*r)/t+1[146] ist 3,"
  28. 459 print"sie erhalten dieses ergebnis folgender-":print"massen:
  29. 460 [141]7:[153][163]8)"  2*rwait  ergibt  8wait ,und ":[141]7:[153][163]6);
  30. 461 [153]"(s+3+8)wait  ergibt 18wait ,und":[141]7:[153][163]8)" 18/twait  ergibt  2wait ,und"
  31. 462 [141]7:[153][163]8)"  2+1wait  ergibt  3":[141]6
  32. 464 [137]500
  33. 470 [153]"richtig - das ergebnis ist 3!":[141]6
  34. 500 [153]"load"[163]15)" let wait":[141]7
  35. 502 [153]"ein forlet-befehl ermoeglicht die forzuordnung";
  36. 503 [153]"einer zahl oder eines strings zu einer":[153]"variablen.":[141]7
  37. 504 [153]"einige beispiele:":[141]7:[153][163]8)"15 let a=4
  38. 506 printtab(8)"25 let r$=";z$;"alles klar ?";z$:printtab(8)"30 x=x+1"
  39. 508 printtab(8)"55 z$=p$":gosub6
  40. 510 print"[147]ein [129]let-befehl hat folgendes format:":gosub7
  41. 512 print"[129]zeilen#[146] let variable[146] = term[146] oder string[146]
  42. 514 [141]7:[153]"das wort for l e t wait kann auch weggelassen  werden.":[141]7
  43. 518 [153]"bem.:das zeichen =wait bedeutet ersetztwait":[153][163]5)"durchwait und nicht ";
  44. 520 [153]"gleichwait.":[141]7:[153]"der befehl:":[153][163]8)"30 let x=x+1"
  45. 521 [141]7
  46. 522 [153]"bildet die summe x+1, und speichert das
  47. 523 print"ergebnis in der variablen x.":gosub6
  48. 524 print"[147]welche der folgenden anweisungen ist":print"kein[146] let-befehl:":gosub7
  49. 526 print"535 let 4=e":print"720 let g=2*g+h":print"340 f$=";z$;"ja";z$:print"270 i=j"
  50. 528 input"(535, 720, 340, oder 270)";a$:ifval(a$)=535goto550
  51. 529 ifval(a$)=720goto540
  52. 530 ifval(a$)=340orval(a$)=270then532
  53. 531 printq$"":goto524
  54. 532 print"[129]nein, der befehl ist richtig!":gosub7:print"das wort l e t darf";
  55. 534 print" weggelassen werden.":gosub8:goto524
  56. 540 print"[129]nein, der befehl ist richtig!":gosub7
  57. 541 print"zu dem produkt g*2 wird h addiert, und"
  58. 542 print"das ergebnis wird in g gespeichert.":gosub8
  59. 544 goto524
  60. 550 print"richtig!
  61. 554 [153]"forlinks neben dem zeichen =wait muss eine":[153]"forvariable stehen."
  62. 560 [141]7:[153]"bevor sie mit lektion 5 weitermachen,
  63. 561 print"versuchen sie vielleicht, folgendes ":print"programm zu schreiben."
  64. 562 gosub6
  65. 570 print"[147]bitte schreiben und rechnen sie ein
  66. 572 [153]"programm, das den durchschnittlichen
  67. 574 print"benzinverbrauch (dbv) verschiedener":print"autos berechnet.":print
  68. 576 print"(dbv = 100*(liter benzin dividiert durch";
  69. 577 print"        gefahrene kilometer))":gosub7
  70. 578 print"hierbei sollen folgende daten eingegeben";:print"werden:
  71. 580 [153][163]7)"forkfz-kennzeichen":[153][163]7)"verbrauchtes benzin in liter
  72. 582 printtab(7)"gefahrene kilometer":print:print"der computer soll das kfz-kennzeichen "
  73. 584 print"und den durchschnittlichen benzinver-":print"brauch fuer 100km ausdrucken.
  74. 585 [153]:[153]"bitte schreiben sie die aufgabe ab,     "
  75. 586 [153]"bevor sie eine beliebige taste druecken.":[141]6
  76. 600 c$[178]"(NULL)":[141]3:[153]""[163]10)"ende von lektion 4
  77. 610 print"sind sie bereit fuer lektion 5 ?"
  78. 615 print"druecken sie wie bisher"
  79. 618 print"eine der tasten"
  80. 620 print"j = ja, oder"
  81. 630 print"n = nein"
  82. 640 geta$:ifa$="n"then700
  83. 645 ifa$<>"j"then640
  84. 650 print"[147]in wenigen sekunden folgt"
  85. 660 print"lektion 5[146]"
  86. 670 load"5/1lektion",8
  87. 700 gosub3
  88. 710 print"sie haben schon die 1. haelfte[146]"
  89. 720 print"des kurses erfolgreich bestanden.[146]"
  90. 730 print"seien sie weiter so eifrig dabei ab"
  91. 740 printtab(15)"lektion 5[146]"
  92. 760 forz=1to700:nextz
  93. 770 sys64738
  94.