home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 4_3lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  69 lines
  1. 0 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
  2. 1 poke53280,1:poke53281,1
  3. 2 z$=chr$(34):q$="[145]                                      [145][145][145]":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. 9 gosub7:print"try again!":gosub6:return
  10. 10 z$=chr$(34)
  11. 14 print"":fori=1tou-1:print:next:fori=1to24-u
  12. 15 print"                                       ":next:print"":fori=1tou-1:print:next
  13. 16 return
  14. 20 print"[147]"tab(10)"terme":printtab(5)"(fortsetzung von 4.2)":gosub7
  15. 358 print"einige beispiele fuer terme:":gosub7
  16. 360 printtab(10)"   x+2          ":printtab(10)"   a*365        "
  17. 362 printtab(10)"   r^2+a2/b3    ":printtab(10)"   n-k9*q       "
  18. 364 printtab(10)" (2*m-n)/(2*m+n)":gosub7
  19. 370 print"da fuer jede variable eine zahl
  20. 372 [153]"gespeichert ist, repraesentiert ein
  21. 373 print"berechneter term einen numerischen wert.":gosub6:gosub5000:gosub6
  22. 374 print"[147]"tab(12)"1.  s-.1*h*r":printtab(12)"2.  73/(q*s*t)":printtab(12)"3.  b+365a"
  23. 375 gosub7:print"welcher der obigen terme ist in basic
  24. 376 [153]"nichtwait richtig geschrieben(1,2 oder 3)";:[133]a$
  25. 377 [139][197](a$)[177]3[167]379
  26. 378 [145][197](a$)[137]380,380,395
  27. 379 [153]q$:[137]374
  28. 380 [153]"fornein dieser term ist richtig!":[141]7
  29. 382 [153]"natuerlich muss fuer jede variable eine
  30. 383 print"zahl gespeichert worden sein, bevor der
  31. 384 [153]"computer den wert des terms berechnet.
  32. 385 gosub7:print"versuchen sie es nocheinmal!":gosub6:goto374
  33. 395 print"":for i=1to15:print"richtig!!![157][157][157][157][157][157][157][157][157][157][146]richtig!!![145]":next:gosub7
  34. 397 print"dieser term ist in basic nicht richtig":print"geschrieben, da das mult";
  35. 398 print"iplikations-" :print"zeichen zwischen 365[146] und a[146] fehlt.":gosub7
  36. 399 print"korrekt ist die form:    b+365*a":gosub6
  37. 400 print"[147]"tab(8)"[129]hierarchie von operationen":gosub7
  38. 402 print"manchmal kann bei der berechnung eines
  39. 403 [153]"termes die reihenfolge der ausfuehrung ":[153]"der operationen unklar sein.
  40. 404 gosub7:print"zum beispiel haengt bei dem term:":gosub7
  41. 405 printtab(14)"b + 365*a":gosub7:print"das ergebnis von der reihenfolge der
  42. 407 [153]"ausfuehrung der operationen ab.":[141]7
  43. 410 [153]"angenommen, fuer await wurde der wert 10
  44. 411 print"und fuer b[146] der wert 9 gespeichert, so
  45. 412 [153]"koennte nun berechnet werden:":[141]7
  46. 413 [153]"  9 + 365 = 374, und   374*10 = 3740"
  47. 414 [153]"oder":[153]"  365*10 = 3650, und 9 + 3650 = 3659":[141]6
  48. 416 [153]"loadum solche mehrdeutigkeiten auszu-":[153]"schliessen gilt die regel:
  49. 417 print"der computer fuehrt operationen in der":print"folgenden reihenfolge aus:"
  50. 418 gosub7:print" 1. potenzieren [146]"tab(33)" ^ [146]
  51. 420 [153]" 2. multiplikation und division wait"[163]33)"* /
  52. 422 print" 3. addition und subtraktion [146]"tab(33)"+ -":gosub7
  53. 424 print"ferner gilt:":print"operationen der gleichen prioritaet
  54. 425 [153]"werden nacheinander von links nach ":[153]"rechts ausgefuehrt.":[141]7
  55. 426 [153]"zum beispiel:":[141]7
  56. 428 [153][163]14)"20/5*2":[141]7:[153]"hat den wert 8, und nicht 2.":[141]6
  57. 430 [153]"loadeine weitere moeglichkeit zur fest-
  58. 431 print"legung der reihenfolge bietet die ":print"[129]klammerung.":gosub7
  59. 434 print"dazu einige beispiele:":gosub7:printtab(14)"(a+b)*2":
  60. 435 printtab(14)"(x+2)*(x-2)
  61. 436 [153][163]14)"f-(g1-hh)
  62. 4000 gosub6:c$="[216]":gosub3:print"[129]ende von lektion 4 teil 3
  63. 4002 [153]"bitte warten sie,bis teil 4
  64. 4004 print"eingelesen ist."
  65. 4006 load"4/4lektion",8
  66. 5000 print"[129](beachten sie bitte, dass die division"
  67. 5010 print"durch das zeichen /[146] dargestellt wird.)"
  68. 5020 return
  69.