Lektion7 - Kleincomputer KC85 Einleitung

BASIC-LERNEN
Nun werden Sie beim Abarbeiten gefragt, ob Sie weitere Rechnungen
wollen oder nicht.
Weiterhin sollen nur die Zahlen 1 und 2
Lösungsvorschlag wäre z.B., die Zeile 65 einzufügen:
65 IF Q<>1 AND
oder ändern der Zeile 70 in:
70 IF Q=2 THEN
PRINT "FEHLER": GOTO 60
Vorschlag für das Programmbeispiel zum Lösen von Rechenaufgaben:
10 CLS:PRINT "LOESEN SIE DIESE AUFGABEN"
20 INPUT "4*4=";E
30 IF E=16 THEN Z=Z+1
40 INPUT "9+8=";E
50 IF E=17 THEN Z=Z+1
60 INPUT "3/3=";E
70 IF E=1 THEN Z=Z+1
80 INPUT "5^2=";E
90 IF E=25 THEN Z=Z+1
100 INPUT "SQR(4)=";E
110 IF E=2 THEN Z=Z+1
120 Z=(Z-6)*(-1): IF Z=6 THEN Z=5
130 PRINT "NOTE: ";Z:END

2.7. LEKTION7

Im ersten Programm der Lektion wird der Fahrpreis errechnet.
Programm soll so verändert werden, das die Entfernungen in dem
Feld E abgelegt
dimensioniert werden.
5 DIM E(3)
10 E(0)=0:E(1)=182:E(2)=189:E(3)=162
20 INPUT "FAHRZIEL?(BLN=0/LPZ=1/DRS=2/HAL-3";I
70 P=INT(.8*E(I))/10
80 PRINT "PREIS: ";P;"M"
90 END
Die Zeilen 30 bis 60 können gelöscht werden.
11
Q<>2 THEN 60
PRINT G$"=";(A*B*C)/(1/3): ELSE
werden. Das Feld
zugelassen werden. Ein
IF
E muß daher in
Q<>1 THEN
Das
Zeile 5