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