home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 5
/
Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
5_1lektion
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
59 lines
0 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
1 poke53280,1:poke53281,1
2 z$=chr$(34):goto10
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
10 c$="[255]":gosub3:printtab(12)"lektion 5":print
11 printtab(9)"1. programmbeispiel
12 [153][163]9)"2. if/then-befehl":[153][163]9)"3. goto-befehl
14 printtab(9)"4. programmbeispiel":gosub6
16 print"[147]am schluss von lektion 4 wurde ihnen
17 [153]"vorgeschlagen, ein programm fuer den
18 print"durchschnittlichen benzinverbrauch auf":print"100km zu schreiben.":gosub7
20 print"hierfuer gibt es verschiedene richtige"
21 print"moeglichkeiten. eine davon ist das":print"folgende programm.":gosub6
22 print"[147]2 print "z$"kennzeichen, km, liter"z$
24 print"4 input kz$, km, l":print"6 let a = 100*l/km
26 [153]"8 print"z$"der wagen"z$"kz$"z$"verbraucht"z$"a"z$"liter";
27 [129]i[178]1[164]39:[153]"not";:[130]:[153]:[153]
28 [153]"sehen sie nun, was beim programmablauf":[153]"passiert.":[141]6:[141]7
30 [153]"forbitte geben sie ein kennzeichen und zweizahlen ein.wait":[141]7
32 [153]:[153]"kennzeichen, km, liter":[133]kz$,km,l
34 [153]"der wagen "kz$" verbraucht"100[172]l[173]km"liter":[141]6
36 [153]"load"[163]13)"if/then":[141]7:[153]"computerprogramme werden durch sprung-"
38 [153]"befehle sehr viel flexibler." :[141]7
41 [153]"betrachten sie folgendes beispiel:":[141]6
42 [153]"load 2 print "z$"eingabe des alters"z$
44 [153]" 4 input a":[153]" 6 print"z$"angabe in tagen?(ja oder nein)"z$;
46 [153]" 8 input b$":[153]"10 if b$="z$"nein"z$" then 14"
48 [153]"12 print "z$"sie sind"z$" 365*a "z$"tage alt"z$
50 [153]"14 print "z$"sie sind"z$" 12*a "z$"monate alt"z$:y1[178]10:y2[178]24
60 [129]i[178]1[164]39:[153]"not";:[130]:[153]
82 [141]7:[153]"zeile 2 bewirkt den druck von:":[153]" eingabe des alterswait"
84 [153]: [153]"zeile 4 bewirkt die aufforderung zur
85 print"eingabe einer zahl (z.b. 10) durch das":print"zeichen ?[146].":gosub7
88 print"zeile 6 bewirkt den druck von:"
90 print" angabe in tagen?(ja oder nein)"
92 print"zeile 8 bewirkt die aufforderung zur
94 [153]"eingabe der strings jawait oder neinwait ":[153]"durch das zeichen ?wait.
96 gosub6:gosub5000:gosub6000:print"zeile 10 bewirkt die pruefung des in b$
97 [153]"gespeicherten strings,":[153]
98 [153]"und fuer b$=nein, den sprung zu zeile 14";
99 [153]"(zeile 12 wird also ausgelassen.)
100 print:print"fuer b$=ja wird das programm mit":print"zeile 12 fortgesetzt.
102 [141]7:[153]"zeile 12 bewirkt den druck von:":[153]" sie sind 3650 tage altwait"
104 [141]7:[153]"zeile 14 bewirkt den druck von:":[153]" sie sind 100 monate altwait"
106 [153]"damit ist das programm beendet.";
114 [141]6
400 c$[178]"(NULL)":[141]3:[153]""[163]7)"ende von lektion 5 teil 1
403 forz=1to400:nextz
404 print"wir machen gleich weiter mit"
405 print""tab(13)"lektion5/2[146]":goto7000
5000 print"";:fori=1toy1:print"";:next:print"[145]";:forj=0toy2-y1
5001 print" ":next:return
6000 print"";:fori=1toy1:print"";:next:print"[145]";:return
7000 load"5/2lektion",8