nochmal: CLS : PRINT "SPANNUNGS-STABILISIERUNG MIT ZENER-DIODE"
PRINT "(Grundschaltung aus Z-Diode und Vorwiderstand)"
INPUT "Wie groá ist die Zener-Spannung (Ausgangsspannung) in Volt"; uz
INPUT "Wie groá ist der maximale Laststrom in mA"; ils
INPUT "Wie groá ist der minimale Zener-Strom in mA"; izmins
IF izmins < 1 THEN PRINT : BEEP: PRINT "Iz sollte mindestens 1 mA betragen": PRINT
zuklein:
INPUT "Wie hoch ist die Eingangsspannung in Volt"; u
IF u <= uz THEN PRINT : BEEP: PRINT "Die Spannung ist zu klein": PRINT : GOTO zuklein
INPUT "Wie hoch ist der Innenwiderstand der Zener-Diode in Ohm"; ri: PRINT
izmin = izmins / 1000: il = ils / 1000: rvmax = (u - uz) / (izmin + il)
prvmax = (u - uz) * (izmin + il): izmax = (u - uz) / rvmax
p = izmax * uz: s1 = (rvmax - ri) / ri
PRINT "Der gr”átm”gliche Vorwiderstand betr„gt"; rvmax; "Ohm"
PRINT "bei einer maximalen Belastung von"; prvmax; "Watt.": PRINT
PRINT "Die Zener-Diode ist dann mit"; izmin * uz; "Watt belastet."
PRINT "Der Siebfaktor betr„gt dann"; s1: PRINT
PRINT "Im Leerlauf ist die Zener-Diode mit max."; p; "Watt"
PRINT "bei"; izmax; "A belastet.": PRINT
IF s1 < 10 THEN PRINT "DER VORWIDERSTAND IST FšR EINE GUTE STABILISIERUNG ZU KLEIN": PRINT : BEEP
INPUT "M”chten Sie nochmal (1) oder das Programm beenden (2)"; grummel
IF grummel = 1 THEN GOTO nochmal
PRINT : PRINT "Programm-Ende"
SYSTEM

