XProfan

Título de la ventana "  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.Pájaro carpintero, Vienna/Austria. Ohne jede Garantie.
Declarar x!,xint!,xfrac!,eps! , Z&,N&, Zu&,Nu&, Zo&,No& , w$,v$
Neu:
Claro x!,xint!,xfrac!,eps! , Z&,N&, Zu&,Nu&, Zo&,No& , w$,v$
Cls Rgb(200+Rnd(56),200+Rnd(56),200+Rnd(56)):Conjunto("decimals",17)
Font 0
Imprimir "\n\n\n   Vorfrage: Auf wieviele Stellen genau se el Bruch stimmen?: ";:Entrada v$

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

    eps!=Val("1E-"+v$)
    Imprimir "\n Max.Fehler epsilon = ";Formato$("%g",eps!)
    hop:
    Font 2
    Imprimir "\n Su Zahlenwert: ",:Entrada w$
    w$=Translate$(w$,",",".")

    If Upper$(w$)="PI":w$=Str$(Pi()):Imprimir w$:EndIf

        If Upper$(w$)="E":w$=Str$(Exp(1)):Imprimir w$:EndIf

            x!=Val(w$)

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

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

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

                    Cls Rgb(200+Rnd(56),200+Rnd(56),200+Rnd(56))
                    Imprimir "\n\n Ergebnis (en ";v$;" Kommastellen): "
                    Imprimir "\n ";Formato$("%g",x!);" ~ ~ ";
                    Case xint!:Imprimir Int(xint!);
                    caso (Z&<>0) And (xint!<>0):imprimir " & ";
                    Case Z&:Imprimir Z&;"/";N&;
                    Imprimir:Imprimir:WaitInput:cls:Goto "hop"

                EndIf

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

                If xfrac!<(Z&/N&)

                    Zo&=Z&:No&=N&

                ElseIf xfrac!>(Z&/N&)

                    Zu&=Z&:Nu&=N&

                EndIf

                Imprimir Z&;"/";N&

                If %csrlin>27:cls:EndIf

                    Goto "nochma"