home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 5
/
Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
7_1lektion
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
77 lines
1 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
2 poke53280,1:poke53281,1:goto16
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
7 geta$:ifa$=""then7
8 print:return
9 print"":fori=0toy-1:print"";:next:print"[145][145]";:return
11 forj=1to15:print">";:fori=1to40:next:print"[157]>[146][157]";:fork=1to20:next:next:print" ":return
13 y=y1:gosub9:fori=0toy2-y1:print" ":next
14 gosub9:return
15 fori=1to1000:next:return
16 z$=chr$(34):c$="[166]":gosub3:print""tab(12)"lektion 7"
17 printtab(9)"1. schleifen
18 [153][163]9)"2. for...next-befehle":[153][163]9)"3. rem-anweisung
19 printtab(9)"4. programmbeispiel":gosub7
20 print"[147]"tab(12)"schleifen":gosub7:print"eine der nuetzlichsten eigenschaften
22 [153]"ihres cbm 64 ist die moeglichkeit, sich"
23 [153]"oft wiederholende vorgaenge einfach
24 print"und schnell auszufuehren.":gosub7
32 print"[147]es soll nun an einem programm zur
33 [153]"berechnung verschiedener arbeitsloehne"
34 [153]"der gebrauch von forschleifen illustriert ":[153]"werden:"
36 [141]7:[153]" 95 read n$,r,h":[153]" 100 if n$="z$"ende"z$" then 755
38 print" 110 print"z$"der lohn fuer"z$"n$"z$"betraegt"z$"r*h";
39 print" 115 goto 95
40 [153]" 120 data "z$"r. braun"z$", 3.50, 40":[153]" 125 data "z$"k. blau"z$",3.75, 20
42 print" 130 data "z$"hans dampf"z$", 4.00, 38
44 [153]" 140 data "z$"anna ros"z$", 4.10, 40":[153]" 199 data "z$"ende"z$", 0, 0
46 print" 755 end":gosub7:print"das obige programm wiederholt die
47 [153]"befehle der zeilen 95 bis 115,
48 gosub7:fory=6to9:gosub9:gosub11:next:y=18:gosub9
50 printtab(31)"solange":print"bis in zeile 199 ende[146] und die werte 0,"
51 print"0 eingelesen worden sind.":gosub7
52 y=14:gosub9:gosub11:gosub7:y=22:gosub9:print"die[129] schleife wird durch den ";
53 print"goto[146]-befehl":print"in zeile 115 geschlossen.
54 [141]7:y[178]9:[141]9:[141]11:[141]7
55 y1[178]17:y2[178]23:[141]13:y[178]17:[141]9
56 [153]"der if-befehl in zeile 100 beendet die":[153]"forschleife,sobald endewait";
58 [153]" eingelesen wurde.":[141]7:y[178]7:[141]9:[141]11:[141]7:y[178]20:[141]9
60 [153]"der eigentliche wert dieses programmes
61 print"wird erst offensichtlich, wenn es fuer
62 [153]"viele arbeiter durchgefuehrt wird.":[141]7:y2[178]24:[141]13:[141]9
64 [153]"um das programm fuer mehr arbeiter aus-
65 print"zufuehren,muessen nur mehr data-befehle"
66 print"gegeben werden (fuer jeden arbeiter":print"einer).[145]":gosub7
72 gosub13:gosub9:print"[156]ein quiz!":gosub7:c=0:gosub13
74 print"wie oft fuehrt der computer befehl 95":print"aus":y=6
75 gosub9:gosub11:y=18:gosub9:input"(1, 4 oder 5) mal ";a$
76 ifa$<>"1"anda$<>"4"anda$<>"5"thenprintq$:print"[145][145][145][145]":goto74
77 gosub13:y=17:gosub9:ifa$="5"andc=0then98
78 ifa$="5"andc=1then100
79 ifa$="5"then104
80 ifa$="4"then92
82 c=c+1:print"[129]nein, denken sie daran, dass der
83 [153]"forgotobefehl die wiederholung der befehle"
84 [153]"in den zeilen 95 bis 115 bewirkt.":[141]7
85 [153]"derfor ifbefehl beendet die schleife erst,"
86 [153]"wenn durch den befehl in zeile 199 endewait":[153]"eingelesen wurde.
88 gosub7:y=14:gosub9:gosub11:gosub7:gosub13
90 y=17:gosub9:print"versuchen sie es nochmal!":gosub7:gosub13:y=17
91 gosub9:gosub74
92 print"[129]nein, 4 mal ist nicht richtig."
93 print"beachten sie, dass zeile 95 fuer jeden
94 [153]"data-befehl einschliesslich zeile 199":[153]"einmal ausgefuehrt wird.
95 gosub7:print"versuchen sie es nochmal!":c=c+1:gosub7
96 gosub13:y=17:gosub9:goto74
98 print"auf anhieb richtig!!":gosub7:goto106
100 print"beim zweiten versuch richtig!":gosub7:goto106
104 print"richtig.
106 [153]"der read-befehl wird 5 mal ausgefuehrt,"
107 [153]"fuer jeden daten-befehl einmal.
210 gosub7:c$=" ":gosub3:print"ende von lektion 7 teil 1
211 [153]"bitte warten sie, bis teil 2
212 print"eingelesen ist.
214 [147]"7/2lektion",8