Lektion10; Lektion11 - Kleincomputer KC85 Einleitung

BASIC-LERNEN

2.10. LEKTION10

Das Programm "Runden" zeigt Ihnen die eingegebene Zahl und das
Quadrat gerundet an.
Im Programm "Sparen" sollen die Werte Z= Zinsen und K =
auf zwei Stellen nach dem Komma gerundet werden. Analog zu dem
Programm "Runden" wird auch hier eine Funktion definiert (DEF
FNRIND(x)). Folgende Zeilen müssen im Programm eingefügt werden:
15 DEF FNRIND(x)= INT (100 * X + .5 * SGN(x))/100
90 PRINT A$, FNRIND(z), FNRIND(k)
Nun soll die
Programm auf den Zeilen 5000 bis 5080 erfolgen.
der Anweisung:
5090 RETURN
das Programm als Unterprogramm definiert,
Hauptprogramm zurück gesprungen wird. Im Hauptprogramm ist die
Zeile 90 wie folgt zu ändern:
90 PRINT A$;: A=Z: GOSUB 5000: PRINT A$;:A=K: GOSUB 5000:PRINT A$;
Dabei bedeuten:
PRINT A$: - Ausgabe Jahre auf Bildschirm,
A=Z: - Parameterübergabe A an das Unterprogramm,
GOSUB 5000 - Aufruf Unterprogramm,
PRINT A$ - Ausgabe Zinsen auf Bildschirm,
A=K - Parameterübergabe A an das Unterprogramm,
GOSUB 5000 - Aufruf Unterprogramm,
PRINT A$ - Ausgabe Guthaben auf Bildschirm.
Das Programm
zu ändern, daß die
Nachdem Sie mit LIST 155 sich die Zeilen angesehen haben, sind
folgende Änderungen vorzunehmen:
155 ON K GOTO 300, 400, 500, 600
160 IF K=0 THEN END
Da der Wert K nicht 0 sein darf (für ON-GOTO), wurde hier die IF-
THEN-Anweisung verwendet.

2.11. LEKTION11

Das Programm "Koordinatensystem" zeichnet eine Sinusfunktion,
wenn Sie es so verändern:
10 WINDOW0,31,0,39: CLS
20 ! KOORDINATENSYSTEM
30 REM X-ACHSE
40 FOR X=12 TO 300: PSET X, 140: NEXT X
50 REM Y-ACHSE
60 FOR Y=0 TO 255: PSET 12, Y: NEXT Y
70 REM KURVE
80 FOR X=0 TO 2 *PI STEP .1
90 PSET 40 * X +12, 40 * SIN(X) + 140: NEXT
14
Formatierung
"Mittelwert" ist in
BASIC-Anweisung ON-GOTO eingesetzt wird.
des Programms
den Zeilen 155 BIS
Guthaben
"Sparen" über das
Dabei wird mit
von wo aus in das
190 so