XProfan

Titre de la fenêtre "      p.specht´s   U I P R    Einphasen-Rechner"
' (D) Demo by P.Specht, Vienna/Austria. NO WARRANTY WHATSOEVER!
Fenêtre Style 24:font 2:set("decimals",17)
'  Fenêtre 200,100 - 400,175
Déclarer U!,I!,P!,R!, u$,i$,p$,r$ , l1$,l2$,l3$
font 2:imprimer "\n  cette calculateur verknüpft qui quatre Größen "
imprimer "  Spannung, Strom, Leistung et Widerstand. "
font 0:imprimer "    qui letzten beiden Eingaben se mettre qui "
imprimer "    jeweils vorgegebenen Größen dar. qui à-"
imprimer "    en beiden Werte volonté errechnet et "
font 2:imprimer "    sommes dans  fetter Schrift dargestellt."
font 0:imprimer " RETOUR springt de champ trop champ. sans Einga-"
imprimer "    bewerte (zB: 1e-6) wird rien modifié,"
imprimer "    mais seulement weitergesprungen! ";
font 2:imprimer "   [Start]";:waitinput
Repeat:Cls:Imprimer "Geg.:"

si (l1$="U") or (l2$="U"):font 0:d'autre:font 2:endif

    locate 3,1 :Imprimer l1$;l2$;"   Spannung U [Volt V] =                         ";
    locate 3,26:Imprimer format$("%g",U!);

    si (l1$="I") or (l2$="I"):font 0:d'autre:font 2:endif

        locate 5,1 :Imprimer l1$;l2$;"   Strom I  [Ampere A] =                         ";
        locate 5,26:Imprimer format$("%g",I!);

        si (l1$="P") or (l2$="P"):font 0:d'autre:font 2:endif

            locate 7,1 :Imprimer l1$;l2$;"   Leistung P [Watt W] =                         ";
            locate 7,26:Imprimer format$("%g",P!);

            si (l1$="R") or (l2$="R"):font 0:d'autre:font 2:endif

                locate 9,1 :Imprimer l1$;l2$;"   Widerstand R  [Ohm] =                         ";
                locate 9,26:Imprimer format$("%g",R!);
                locate 3,26:input u$:si u$>»:U!=val(u$):l3$=l2$:l2$=l1$:l1$="U":goto "calc":endif
                locate 5,26:input i$:si i$>»:I!=val(i$):l3$=l2$:l2$=l1$:l1$="I":goto "calc":endif
                locate 7,26:input p$:si p$>»:P!=val(p$):l3$=l2$:l2$=l1$:l1$="P":goto "calc":endif
                locate 9,26:input r$:si r$>»:R!=abs(val(r$)):l3$=l2$:l2$=l1$:l1$="R":goto "calc":endif
                calc:

                si l1$="U"

                    si l2$="U":l2$=l3$:l3$=» :goto "calc"

                    elseif l2$="I":P!=U!*I!:cas i!=0:i!=val("1e-50"):R!=abs(U!/I!)

                    elseif l2$="P":cas u!=0:u!=val("1e-50"):I!=P!/U!:cas P!=0:P!=val("1e-50"):R!=abs(sqr(U!)/P!)

                    elseif l2$="R":cas r!=0:r!=val("1e-50"):I!=U!/R!:P!=sqr(U!)/R!

                    endif

                elseif l1$="I"

                    si l2$="U":P!=U!*I!:cas i!=0:i!=val("1e-50"):R!=abs(U!/I!)

                    elseif l2$="I":l2$=l3$:l3$=» :goto "calc"

                    elseif l2$="P":cas i!=0:i!=val("1e-50"):U!=P!/I!:R!=abs(P!/sqr(I!))

                    elseif l2$="R":U!=I!*R!:P!=sqr(I!)*R!

                    endif

                elseif l1$="P"

                    si l2$="U":cas u!=0:u!=val("1e-50"):I!=P!/U!:cas P!=0:P!=val("1e-50"):R!=abs(sqr(U!)/P!)

                    elseif l2$="I":cas i!=0:i!=val("1e-50"):U!=P!/I!:R!=abs(P!/sqr(I!))

                    elseif l2$="P":l2$=l3$:l3$=» :goto "calc"

                    elseif l2$="R":U!=sqrt(abs(P!*R!)):cas R!=0:R!=val("1e-50"):I!=sqrt(abs(P!/R!))

                    endif

                elseif l1$="R"

                    si l2$="U":cas r!=0:r!=val("1e-50"):I!=U!/R!:P!=sqr(U!)/R!

                    elseif l2$="I":U!=I!*R!:P!=sqr(I!)*R!

                    elseif l2$="P":U!=sqrt(abs(P!*R!)):cas R!=0:R!=val("1e-50"):I!=sqrt(abs(P!/R!))

                    elseif l2$="R":l2$=l3$:l3$=» :goto "calc"

                    endif

                endif

            until 0