home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 5
/
Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
4_2lektion
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
73 lines
0 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
1 poke53280,1:poke53281,1:q$="[145][145] [145][145]":goto18
2 print"[129][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":return
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"versuchen sie es nocheinmal!":gosub7:print"[147]
10 z$[178][199](34)
12 [129]i[178]1[164]1200:[130]:[142]
14 [153]"";
15 [129]i[178]1[164]u[171]1:[153]:[130]:[129]i[178]u[164]w
16 [153]" ";
17 [130]:[153]"";:[129]i[178]1[164]u[171]1:[153]:[130]:[142]
18 z$[178][199](34)
100 [153]"load string-variablen ":[141]7
225 [153]"sie erinnern sich, dass variablen das"
226 [153]"speichern von zahlen ermoeglichen.":[153]"(lektion 2.1)":[141]7
230 [153]"forstring-variablen ermoeglichen nun das ":[153]"forspeichern von strings.":[141]7
235 [153]"eine forstring-variable wird wie eine"
236 [153]"gewoehnliche variable mit hinzufuegung":[153]"des zeichens for$wait gebildet."
240 [141]7:[153]"einige beispiele fuer string-variablen:"
241 [153]" a$ oder ac$ oder z8$
244 gosub7
245 print"eine [129]string-variable kann mit dem":print"folgenden befehl gespeichert";
246 print" werden:"
250 printtab(15)"input a$[146]":gosub7
255 print"oder mit folgendem befehl aufgerufen":print"werden:";
256 printtab(15)"print a$[146]":gosub6
260 print"[147]10 print"z$"eingabe des namens und alters"z$"
265 [153]"20 print ";z$;"(durch komma getrennt)";z$:[153]"40 input n$,a
270 print"80 print n$ ";z$;"ist";z$;" 365*a ";z$;"tage alt";z$
280 gosub7 :gosub7
290 print"betrachten sie das obige programm."
295 print"koennen sie sich vorstellen, was beim"
300 print"programmablauf geschieht (ja oder nein)":inputa$
302 ifa$="nein"then308
306 if a$="ja"goto324
307 printq$:goto260
308 print"[129]eine stringvariable ermoeglicht nicht-
309 [153]"numerische daten - wie namen, adressen,"
310 [153]"worte, usw. - forin den computer einzulesen";
312 [141]7:[153]"enthaelt ein inputbefehl eine string-
314 print"variable - wie a$ - so teilt diese dem
316 [153]"computer mit, dass nichtnumerische daten":[153]"eingelesen werden sollen."
317 [141]7:[153]"enthaelt ein printbefehl stringvariablen";
318 [153]"- wie a$ - so teilen diese dem computer"
319 [153]"mit, dass nichtnumerische daten"
320 [153]"gedruckt werden sollen.":[141]6:u[178]6:w[178]25:[141]14
322 [141]2:[137]325
324 u[178]6:w[178]25:[141]14:[141]2:[153]"forgut ! ";
325 [153]"das programm druckt also den namen":[153]"und das alter in tagen aus."
327 [141]7:[153]"sehen sie nun, was beim programmablauf ";
330 [153]"passiert.(bitte geben sie name und alter";:[153]"in der angegebenen";
331 [153]" reihenfolge ein!):":[141]7
332 [153]"eingabe des namens und alters":[153]"(durch komma getrennt)":[133]n$,a
334 [153]n$" ist"365[172]a"tage alt";:[141]6
340 [153]"load"[163]18)"terme"
342 [153]"numerische daten werden bei berechnungen";:[153]"benutzt.":[141]7
344 [153]"die grundrechenarten werden in for basic wait":[153]"durch verbindung des entspr";
346 [153]"echenden":[153]"rechenzeichens mit zahlen (konstanten)
347 print"und/oder variablen ausgefuehrt.
348 [141]7:[153]"rechenzeichen (operatoren) sind:":[141]7
350 [153][163]8)"+wait fuer die addition":[153][163]8)"-wait fuer die subtraktion
352 printtab(8)"*[146] fuer die multiplikation":printtab(8)"/[146] fuer die division
354 [153][163]8)"^wait fuer das potenzieren
356 printtab(8)"( )[146] fuer klammerrechnung
400 [141]6:c$[178]"(NULL)":[141]3:[153]"forende von lektion 4 teil 2
404 print"bitte warten sie, bis teil 3":print"eingelesen ist.
406 [153]"
410 load"4/3lektion",8