XProfan

Título de la ventana upper$("Natürlichen Grenzwert ermitteln")
'(C) 2014-11_ff by P.Pájaro carpintero@gmx.at; frei para private Verwendung, ansonsten bestehen Rechte Dritter!
Ventana de Estilo 24:var wid&=380:var heig&=200:randomize
Ventana (%maxx-wid&)\2,(%maxy-heig&-wid&)\2 - wid&,heig&
declarar v$,c0!,c1!,c2!,ce!,cez!,cen!:start:
cls rgb(200+rnd(56),200+rnd(56),200+rnd(56)):font 0
locate 2,2:imprimir " Basismesswert (t=  0 [s]) = ";:input v$:c0!=val(v$)
locate 4,2:imprimir " Messwert después de (t=1*dt[s]) = ";:input v$:c1!=val(v$)
locate 6,2:imprimir " Messwert después de (t=2*dt[s]) = ";:input v$:c2!=val(v$)
locate 8,2:imprimir mkstr$("-",40):font 2
locate 10,2:imprimir " Strebwert en (t=+-Inf[s])= ";

if  (c0!=c1!) and (c1!=c2!):imprimir format$("%g",c2!)

    más :cen!=2*c1!-c0!-c2!

    if cen!<>0:cez!=(c1!*c1!-c0!*c2!):ce!=cez!/cen!:imprimir format$("%g",ce!)

        más :imprimir "Ohne Grenze!"
        endif:endif:waitinput:goto "start"

Título de la ventana upper$(" P e r i o d e n p r ä d i k t o r")
Cls:font 2:imprimir "\n\n Dieses Programa intenta, de una Basiswert y zwei Folge-"
imprimir "\n werten en una Valor después de uno más Período a schließen."
imprimir "\n (NCL) Noncommercial CopyLeft 2016-07 ff by P. Pájaro carpintero, Vienna / Austria "
imprimir "\n OHNE JEGLICHE GEWÄHR! NUTZUNG AUF EIGENE GEFAHR DES ANWENDERS! \n\n"
set("decimals",17):declarar w0!,w1!,w2!,w3!:imprimir :
waitinput:waitinput 1000

repeat

    CLS
    Imprimir "\n\n\n  Basiswert w0 = ";:input w0!
    Imprimir "\n  Folgewert w1 = ";:input w1!
    Imprimir "\n  Folgewert w2 = ";:input w2!
    imprimir "\n\n  Vorhersage para Período w3: ";
    imprimir if((w1!-w0!)=0,2*(w2!-w1!)+w1!,if((w2!-w1!)=0,w2!,(w2!*w2!-(w1!+w0!)*w2!+w1!*w1!)/(w1!-w0!)))
    waitinput

until .