home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 5
/
Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
7_2lektion
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
59 lines
1 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
2 poke53280,1:poke53281,1:z$=chr$(34):goto110
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
110 print"[147]"tab(10)"for...next-befehle ":gosub7
112 print"der [129]for...next-befehl wird benutzt,
114 [153]"wenn eine bestimmtefor anzahl von schleifenausgefuehrt werden sollen.
116 gosub7:print"das folgende programm soll die werte
118 [153]"eines vektors zunaechst einlesen und":[153]"dann drucken.":[141]7
120 [153]" 2 for i=1 to 10":[153]" 4 read a(i)":[153]" 6 print a(i)":[153]" 8 next i
122 print" 9 data 3.1,1.4,8,9.4,2,5,7,8.6,3,14.7":gosub7:print"der [129]for[146]-befehl"
123 y=11
124 gosub9:gosub11:gosub7:y=17:gosub9:printtab(15)"bewirkt die wiederholung
126 [153]"der anweisungen,die vor dem fornextwait-befehl":y[178]14:[141]7:[141]9
127 [141]11:[141]7:y[178]19:[141]9:[153]"stehen, solange bis der endwert fuer
128 print"die variable i (i=10) erreicht ist.":print
130 print"die anweisungen werden also fuer i=1,
131 [153]"fuer i=2, usw bis i=10 ausgefuehrt.
132 gosub7:y1=17:y2=23:gosub13:gosub9:print"bem.:zu jedem for[146]-befehl gehoert ein
133 [153]" nextwait-befehl.
135 gosub7:print"[147]eine sehr nuetzliche ergaenzung zum
136 [153]"forforwait-befehl ist die forstepwait-anweisung.":[153]:[153]
137 [153]"mit derfor stepwait-anweisung legen sie die
138 print"[129]schrittweite im for...next[146]-befehl fest.
139 [153]"hier ein beispiel:":[141]7
140 [153]" 2 for i=1 to 6
142 print" 4 read a(i)":print" 6 next i":print" 8 for i=6 to 1 step -1":print" 10 print a(i)
144 [153]" 12 next i":[153]" 14 data 3.2, 2, 5.1, 0.1, 66, .7":[141]7
146 [153]"zunaechst werden die daten im vektor a gespeichert.":y[178]11:[141]7
148 [141]9:[129]m[178]1[164]20:[153][163]9)"a(i)on":[153][163]9)"a(i)on":[129]l[178]1[164]60:[130]:[130]
150 y[178]20:[141]9:[153]"und dann werden die daten in der zweiten";
151 [153]"schleife (zeile 8 bis 12)":[141]7
152 [129]y[178]12[164]14:[141]9:[141]11:[130]:y[178]21:[141]9
153 [153]:[153]"in umgekehrter reihenfolge gedruckt.":[141]7
154 [153]"da die schrittweite -1 betraegt, hat iwait
156 print"zunaechst den wert 6, dann i=5 usw bis":print"schliesslich gilt: i=1.
157 [141]7:[153]:[153]"wenn keine schrittweite angegeben ist
158 print"[129](step[146] wurde weggelassen), dann wird
159 [153]"die forschrittweite 1 festgelegt.
160 gosub7:print"[147]der [129]for...-befehl hat das format:":gosub7
162 print"[129]zeilen#[146] for variable[146] = y[146] to z[146] step s":gosub7
164 print"wobei y, z, und s[146] zahlen, variablen ":print"oder terme sein koennen."
165 gosub7
166 print"der[129] next-befehl hat das format:":gosub7
168 print"[129]zeilen#[146] next variable":gosub7
170 print"wobei die gleiche variable[146] wie im":print"[129]for-befehl benutzt werd
175 [141]7
210 c$[178]" ":[141]3:[153]"ende von lektion 7 teil 2
212 print"bitte warten sie, bis teil 3":printtab(7)"eingelesen ist.
213 [153]"
240 load"7/3lektion",8