PC Action 1997 January/PCA0197.ISO/special/baskurs/kurs0014.bas

BASIC Source File | 1996-02-06 | 561b | 26 lines

'Vergleiche mit AND, OR und XOR

COLOR 14, 1
CLS

PRINT "Gib die erste Zahl ein!"
INPUT Zahl1

PRINT "Gib die zweite Zahl ein!"
INPUT Zahl2

PRINT "Es werden folgende Bedingungen erfüllt:"
IF Zahl1 = 100 OR Zahl2 = 100 THEN
 PRINT "Mindestens eine der beiden Zahlen ist 100."
END IF
IF Zahl1 = 100 AND Zahl2 = 100 THEN
 PRINT "Beide Zahlen sind 100."
END IF
IF Zahl1 = 100 XOR Zahl2 = 100 THEN
 PRINT "Genau eine der beiden Zahlen ist 100."
END IF
IF Zahl1 <> 100 AND Zahl2 <> 100 THEN
 PRINT "Keine der beiden Zahlen ist 100."
END IF