home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 5
/
Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
5_2lektion
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
68 lines
0 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
1 poke53280,1:poke53281,1
2 q$="[145] [145][145]":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 print"[147]":printtab(10)"if...then-befehl":printtab(11)"(fortsetzung)":gosub6
120 print"[147]der if...then-befehl ermoeglicht eine
121 [153]"bedingte aenderung der reihenfolge der
122 print"programmschritte, in abhaengigkeit von der [129]erfuellung einer bedingung.
123 [141]7:[153]"eine forbedingung hat die form:":[141]7
124 [153]"for ausdruckwait relation ausdruckwait":[141]7
125 [153]"wobei fogende relationen zulaessig":[153]"sind:
126 print"[129] relation[146] bedeutung[146]":print:print" = gleich
127 [153]" > groesser als":[153]" < kleiner als
128 print" >= groesser als oder gleich":print" <= kleiner";
129 print"als oder gleich":print" <> nicht gleich":gosub6
130 y1=9:y2=22:gosub5000:gosub6000:gosub7
132 print"ein if...then-befehl hat folgendes ":print"format:
136 [153]"forzeilen#1wait if bedingungwait then zeilen#2wait":[141]7:[141]7
142 [153]"die bedingung ist ein test.":[141]7
144 [153]"ist die forbedingung erfuellt, so wird im naechsten ";
146 [153]"programmschritt der befehl in":[153]"zeilen#2wait ausgefuehrt.":[141]7
148 [153]"ist die forbedingung nicht erfuellt, so wird als ";
149 [153]"naechstes der befehl in der":[153]"zeile nach zeilen#1wait ausgefuehrt.
150 gosub6
156 print"[147]einige beispiele fuer if...then-befehle:":gosub7
158 print"2 if a=0 then 10":gosub7:print"4 if x<=99 then 2":gosub7
159 print"6 if r+w>p-t+1 then 55":gosub7list159-
160 print"8 if a$="z$"nein"z$"then 88":gosub6
163 print"[147]1 if a=2*b+cc then 10":print"2 if p*3+u/1.5 > then 18"
164 print"3 if a$="z$"nein"z$" then 100
165 [153]:[153]"welche der obigen anweisungen ist keinwait zulaessiger ";
166 [153]"if...then-befehl (1, 2 oder 3)";:[133]x$:[153]:[153]
167 [145][197](x$)[137]169,174,172
168 [153]q$:[137]163
169 [153]"fornein, dieser befehl ist korrekt!":[153]
170 [153]"eine relation zwischen einer variablen und einem term ist zulaessig.
171 print:print"bitte, versuchen sie es nocheinmal!":gosub6:print"[147]":goto163
172 print"[129]nein, dieser befehl ist korrekt!":print:print"eine relation zwischen einem";
173 print" string und einer stringvariablen ist zulaessig." :goto171
174 print"ganz genau! zeile 2 ist falsch,da rechtsneben der relation kein";
175 print" ausdruck steht.":gosub6:goto200
176 print"[147]moechten sie den abschnitt ueber":print"if..then-befehle noch einmal"
178 input"lesen (ja oder nein)";a$:ifa$="ja"then120
179 ifa$="nein"then400
180 printq$:goto176
200 print"[147]noch eine andere form des if...then- befehls ist moeglich, naemlich:
202 [141]7:[153]"for zeilen#wait if bedingungwait then befehl":[141]7
204 [153]"ist diefor bedingung erfuellt, so wird der befehlwait und dann der ";
205 [153]"befehl der zeile nach zeilen#wait ausgefuehrt.":[141]7
207 [153]"ist die forbedingung nicht erfuellt, wird befehlwait ausgelassen und ";
208 [153]"das programm wirdmit der zeile nach zeilen#wait fortgesetzt.":[141]7
209 [153]"einige beispiele:":[141]7:[153]" 45 if x>12 then print "z$"ja"z$:[153]
210 [153]" 65 if a$="z$"nein"z$" then input b$":[153]:[153]" 8 if r=t then v=v+1":[153]
212 [153]" 7 if l>=100 then end";:[141]6
250 [137]176
400 c$[178]"(NULL)":[141]3:[153]""[163]7)"ende von lektion 5 teil 2
402 print" bitte warten sie, bis teil 3":print" eingelesen ist.
403 [153]"
404 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/3lektion",8