XProfan

Titre de la fenêtre "  BRUCHNÄHERUNG PER ´NAIVE ADDITION ZÄHLER+ZÄHLER & NENNER+NENNER"
AppendMenubar 101,"  Early Alphaversion!!!       Besondere Zahlenwerte:  Pi,  E "
'(CL) Copyleft 2020-12 by P.Specht, Vienna/Austria. sans chacun garantie.
Déclarer x!,xint!,xfrac!,eps! , Z&,N&, Zu&,Nu&, Zo&,No& , w$,v$
récente:
Claire x!,xint!,xfrac!,eps! , Z&,N&, Zu&,Nu&, Zo&,No& , w$,v$
Cls Rgb(200+Tour(56),200+Tour(56),200+Tour(56)):Set("decimals",17)
Font 0
Imprimer "\n\n\n   Vorfrage: sur wieviele se mettre oui c'est ca soll qui Bruch stimmen?: ";:Contribution v$

Si v$=»:v$="10":EndIf'default, Genauigkeit 10 Kommastellen

    eps!=Val("1E-"+v$)
    Imprimer "\n Max.faute epsilon = ";Format $("%g",eps!)
    hop:
    Font 2
    Imprimer "\n Dein Zahlenwert: ",:Contribution w$
    w$=Translate$(w$,»,".")

    Si Upper$(w$)="PI":w$=Str$(Pi()):Imprimer w$:EndIf

        Si Upper$(w$)="E":w$=Str$(Exp(1)):Imprimer w$:EndIf

            x!=Val(w$)

            Si x!=0:Goto "Neu":EndIf

                xint!=Int(x!):xfrac!=x!-xint!
                Zu&=0:Nu&=1:Zo&=1:No&=1:N&=1
                Nochma:

                Si Abs(xfrac!-Z&/N&)<eps!

                    Cls Rgb(200+Tour(56),200+Tour(56),200+Tour(56))
                    Imprimer "\n\n Ergebnis (sur ";v$;" Kommastellen): "
                    Imprimer "\n ";Format $("%g",x!);" ~ ~ ";
                    Cas xint!:Imprimer Int(xint!);
                    cas (Z&<>0) And (xint!<>0):imprimer " & ";
                    Cas Z&:Imprimer Z&;"/";N&;
                    Imprimer:Imprimer:WaitInput:cls:Goto "hop"

                EndIf

                Z&=Zu&+Zo&:N&=Nu&+No&

                Si xfrac!<(Z&/N&)

                    Zo&=Z&:No&=N&

                ElseIf xfrac!>(Z&/N&)

                    Zu&=Z&:Nu&=N&

                EndIf

                Imprimer Z&;"/";N&

                Si %csrlin>27:cls:EndIf

                    Goto "nochma"