home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 5_2lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  68 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]":z$=chr$(34):goto10
  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. 10 print"[147]":printtab(10)"if...then-befehl":printtab(11)"(fortsetzung)":gosub6
  10. 120 print"[147]der if...then-befehl ermoeglicht eine
  11. 121 [153]"bedingte aenderung der reihenfolge der
  12. 122 print"programmschritte, in abhaengigkeit von  der [129]erfuellung einer bedingung.
  13. 123 [141]7:[153]"eine forbedingung hat die form:":[141]7
  14. 124 [153]"for    ausdruckwait relation ausdruckwait":[141]7
  15. 125 [153]"wobei fogende relationen zulaessig":[153]"sind:
  16. 126 print"[129]     relation[146] bedeutung[146]":print:print"        =     gleich
  17. 127 [153]"        >     groesser als":[153]"        <     kleiner als
  18. 128 print"        >=    groesser als oder gleich":print"        <=    kleiner";
  19. 129 print"als oder gleich":print"        <>    nicht gleich":gosub6
  20. 130 y1=9:y2=22:gosub5000:gosub6000:gosub7
  21. 132 print"ein if...then-befehl hat folgendes ":print"format:
  22. 136 [153]"forzeilen#1wait if bedingungwait then zeilen#2wait":[141]7:[141]7
  23. 142 [153]"die bedingung ist ein test.":[141]7
  24. 144 [153]"ist die forbedingung erfuellt, so wird im  naechsten ";
  25. 146 [153]"programmschritt der befehl in":[153]"zeilen#2wait ausgefuehrt.":[141]7
  26. 148 [153]"ist die forbedingung nicht erfuellt, so    wird als ";
  27. 149 [153]"naechstes der befehl in der":[153]"zeile nach zeilen#1wait ausgefuehrt.
  28. 150 gosub6
  29. 156 print"[147]einige beispiele fuer if...then-befehle:":gosub7
  30. 158 print"2 if a=0 then 10":gosub7:print"4 if x<=99 then 2":gosub7
  31. 159 print"6 if r+w>p-t+1 then 55":gosub7list159-
  32. 160 print"8 if a$="z$"nein"z$"then 88":gosub6
  33. 163 print"[147]1 if a=2*b+cc then 10":print"2 if p*3+u/1.5 > then 18"
  34. 164 print"3 if a$="z$"nein"z$" then 100
  35. 165 [153]:[153]"welche der obigen anweisungen ist keinwait  zulaessiger ";
  36. 166 [153]"if...then-befehl (1, 2 oder 3)";:[133]x$:[153]:[153]
  37. 167 [145][197](x$)[137]169,174,172
  38. 168 [153]q$:[137]163
  39. 169 [153]"fornein, dieser befehl ist korrekt!":[153]
  40. 170 [153]"eine relation zwischen einer variablen  und einem term ist zulaessig.
  41. 171 print:print"bitte, versuchen sie es nocheinmal!":gosub6:print"[147]":goto163
  42. 172 print"[129]nein, dieser befehl ist korrekt!":print:print"eine relation zwischen einem";
  43. 173 print" string und einer stringvariablen ist zulaessig." :goto171
  44. 174 print"ganz genau! zeile 2 ist falsch,da rechtsneben der relation kein";
  45. 175 print" ausdruck steht.":gosub6:goto200
  46. 176 print"[147]moechten sie den abschnitt ueber":print"if..then-befehle noch einmal"
  47. 178 input"lesen (ja oder nein)";a$:ifa$="ja"then120
  48. 179 ifa$="nein"then400
  49. 180 printq$:goto176
  50. 200 print"[147]noch eine andere form des if...then-    befehls ist moeglich, naemlich:
  51. 202 [141]7:[153]"for  zeilen#wait if bedingungwait then befehl":[141]7
  52. 204 [153]"ist diefor bedingung erfuellt, so wird der befehlwait und dann der ";
  53. 205 [153]"befehl der zeile    nach zeilen#wait ausgefuehrt.":[141]7
  54. 207 [153]"ist die forbedingung nicht erfuellt, wird  befehlwait ausgelassen und ";
  55. 208 [153]"das programm wirdmit der zeile nach zeilen#wait fortgesetzt.":[141]7
  56. 209 [153]"einige beispiele:":[141]7:[153]"  45 if x>12 then print "z$"ja"z$:[153]
  57. 210 [153]"  65 if a$="z$"nein"z$" then input b$":[153]:[153]"  8 if r=t then v=v+1":[153]
  58. 212 [153]"  7 if l>=100 then end";:[141]6
  59. 250 [137]176
  60. 400 c$[178]"(NULL)":[141]3:[153]""[163]7)"ende von lektion 5 teil 2
  61. 402 print"  bitte warten sie, bis teil 3":print"  eingelesen ist.
  62. 403 [153]"
  63. 404 goto7000
  64. 5000 print"";:fori=1toy1:print"";:next:print"[145]";:forj=0toy2-y1
  65. 5001 print"                                       ":next:return
  66. 6000 print"";:fori=1toy1:print"";:next:print"[145]";:return
  67. 7000 load"5/3lektion",8
  68.