XProfan

- Página 3 -

Julian
Schmidt

Was en el Zusammenhang de Quadratischen Características todavía interessant wäre, Es el Berechnung des Scheitelpunktes.
Diesen kannst du en Quadratische Ergänzung oder encima el Mittelwert el Nullstellen y anschließenden einsetzten para X ausrechnen.

XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

Gary12345

Como son wir gerade en el Matheunterricht

Eher no. Yo habe una Plan, Yo einbaue y el voluntad Yo primero durchnehmen, qué Luego se, weiß Todavía no eindeutig.

XProfan X2
MfG
Gary12345

Gary12345

¡Hola,

derzeitiger Code:
Kompilieren Marca Separación

'Include programmiert von Gary12345

Proc Summe

    parameters a!,b!
    declare Summe!
    set("decimals",2)
    Summe! = a!+b!
    return ROUND(Summe!,2)

EndProc

Proc Info'Muss noch weiter ausgebaut werden!

    print "Summe: Addiert zwei Zahlen. Summe(a,b). Es werden a und b miteinander addiert.a+b=Ergebnis"
    print ""
    print "Minus: Subtrahiert zwei Zahlen. Minus(a,b). Es werden a und b miteinander subtrahiert.a-b=Ergebnis"
    print ""
    print "Teilen: Teilt zwei Zahlen. Fehler bei Divison durch 0. Teilen(a,b). a wird durch b geteil.a:b=Ergebnis"
    print ""
    print "Multiplizieren: Multipliziert zwei Zahlen. Multiplizieren(a,b). Es werden a und b miteinander multipliziert.a*b=Ergebnis"
    print ""

EndProc

Proc Minus

    parameters a!,b!
    declare Minus!
    set("decimals",2)
    Minus! = a!-b!
    return ROUND(Minus!,2)

EndProc

Proc Teilen

    parameters a!,b!
    declare Teilen!
    set("decimals",2)
    Teilen! = a!/b!
    return ROUND(Teilen!,2)

EndProc

Proc Multiplizieren

    parameters a!,b!
    declare multiplizieren!
    set("decimals",2)
    multiplizieren! = a!*b!
    return ROUND(Multiplizieren!,2)

EndProc

Proc Wurzel

    parameters a!
    declare Wurzel!
    set("decimals",2)
    Wurzel! = sqrt(a!)
    return Round(Wurzel!,2)

EndProc

Proc ADreieck

    parameters a!,b!
    declare ADreieck!
    set("decimals",2)
    ADreieck! = 0.5*a!*b!
    return ROUND(ADreieck!,2)

EndProc

Proc AQuadrat

    parameters a!
    declare Quadrat!
    set("decimals",2)
    Quadrat!=a!*a!
    return ROUND(Quadrat!,2)

EndProc

Proc ARechteck

    parameters a!,b!
    declare Rechteck!
    set("decimals",2)
    Rechteck! = a!*b!
    return ROUND(Rechteck!,2)

EndProc

Proc AKreis

    parameters a!
    declare Kreis!
    set("decimals",2)
    Kreis! = @Pi()*a!
    return ROUND(Kreis!,2)

EndProc

Proc ATrapez

    parameters a!,c!,h!'Trapezformel: 0.5*(a+c)*höhe! (h!)
    declare Trapez!
    set("decimals",2)
    Trapez! = 0.5*(a!+c!)*h!
    return ROUND(Trapez!,2)

EndProc

Proc AParallelogramm

    parameters g!,h!
    declare Parallelogramm!
    set("decimals",2)
    Parallelogramm! = g!*h!'Grundfläche*Höhe
    return ROUND(Parallelogramm!,2)

EndProc

Proc VWürfel

    Parameters a!
    declare Würfel!
    set("decimals",2)
    Würfel! = a!*a!*a!
    return ROUND(Würfel!,2)

EndProc

Proc VQuader

    Parameters a!,b!,c!
    declare Quader!
    set("decimals",2)
    Quader! = a!*b!*c!
    return ROUND(Quader!,2)

EndProc

Proc VKugel

    parameters r!
    declare Kugel!
    set("decimals",2)
    Kugel! = 4/3*@PI()*r!*r!*r!
    return ROUND(Kugel!,2)

EndProc

Proc VKegel

    parameters r!,h!
    declare Kegel!
    set("decimals",2)
    Kegel! = 1/3*@PI()*r!*r!*h!
    return ROUND(Kegel!,2)

EndProc

Proc Lösungsformel1'Wert bei -b-...

    parameters a!,b!,c!
    set("decimals",2)
    var Lösungsformel1! = -((b!/a!)/2)+sqrt(abs(((b!/a!)/2)^2-(c!/a!)))
    var Lösungsformel2! = -((b!/a!)/2)-sqrt(abs(((b!/a!)/2)^2-(c!/a!)))
    return Str$(ROUND(Lösungsformel1!,2))+" | "+Str$(ROUND(Lösungsformel2!,2))

EndProc

Proc Höhensatz

    parameters p!,q!
    declare Höhensatz!
    set("decimals",2)
    Höhensatz! = p!*q!'p*q=h²
    return ROUND(sqrt(Höhensatz!),2)

EndProc

Proc Hypothenusensatz

    parameters a!,b!
    declare c!
    set("decimals",2)
    c!=b!*b!+a!*a!
    return ROUND(sqrt(c!),2)

EndProc

Proc Kathetensatz1

    parameters p!,c!
    declare b!
    set("decimals",2)
    b!=c!*p!
    return ROUND(sqrt(b!),2)

EndProc

Proc Kathetensatz2

    parameters q!,c!
    declare a!
    set("decimals",2)
    a!=c!*q!
    return ROUND(sqrt(a!),2)

EndProc

Proc VPrisma

    parameters g!,h!
    declare v!
    set("decimals",2)
    v! = g!*h!'Grundfläche*Höhe!
    return ROUND(v!,2)

EndProc

Proc VZylinder

    parameters r!,h!
    declare v!
    set("decimals",2)
    v! = @pi()*r!*r!*h!
    return ROUND(v!,2)

EndProc

cls
var test1! = Lösungsformel1(2,3,-4)
var test2! = Höhensatz(6,7)'p*q=h²
var test3! = Hypothenusensatz(2,3)
var test4! = Kathetensatz1(4,2)
var test5! = Kathetensatz2(4,2)
var test6! = VPrisma(2,4)
var test7! = VZylinder(2,3)
print test1!
print test2!
print sqrt(42)
print test3!
print sqrt(13)
print test4!
print sqrt(8)
p

a> test5! imprimir test6! imprimir test7! WaitInput

OK-habe nun todos Características instalado, el Me gusta haben möchte (scheint auch a trabajo).

una globale Fehlervariable como mErr& utilizarse.

Was es el? In el Ayuda finde Yo nichts?

LG

XProfan X2
MfG
Gary12345

Julian
Schmidt

Einfach una globale Variable en el du todos Flags a Fehlern speicherst.
Ganz oben simplemente por declarar mErr& deklarieren.

In el Routinen entonces el Fehler en esta neue Variable escribir. Sombrero el Vorteil el du bastante simplemente después de el Ausführen y a cada Punto des Programmes überprüfen kannst, si el letzte matemático Operation erfolgreich war. Weil lo häufig o. siempre en una Fehler no Sinn macht versuchen más a rechnen. El Variable en cada Rutina sólo en Standart zurücksetzen!
Kompilieren Marca Separación

declare mErr&
print Wurzel(-1)

If mErr&=1

    print "Negative Wurzel"

Else

    print "keine Fehler"

EndIf

waitinput

Proc Wurzel

    parameters a!
    clear mErr&
    declare Wurzel!
    set("decimals",2)
    case a!<0 : mErr&=1'Flag für eine negative Wurzel
    Wurzel! = sqrt(abs(a!))
    return Round(Wurzel!,2)

ENDPROC

Julian
Schmidt

Tiempo unos pocos kleine Y sugerencias Tipps a deinen Incluir.

1. ¿Puede du deine ganzen Textos de el Info-Rutina direkt en el betreffende Rutina como Kommentar escribir. Kommentare voluntad simplemente con ' o // comenzó.
2. Sollten en un gutem Matheinclude el Funktionsnamen auch después de el richtigen mathematischen Begriffen benannt ser. Etwa en lugar de Teilen, Dividieren. Bajo Umständen debería incluso el Parámetro otro benannt voluntad. In el Rutina "Teilen" por ejemplo Dividend y Divisor. Dabei debería uno aber abwägen si el Code dadurch schlechter lesbar se y deswegen evtl. después de gängigen Abkürzungen suchen.
3. En Volumen de Körpern Es el Öberfläche no weit.

Gary12345

Kein Problema, se alles gemacht.

Nur una Problema después de el otro Problema

Yo versteh no por qué "If mErr& = 1". ¿Por qué = 1? Yo voluntad doch abfragen, si negative Werte disponible son?

Und Yo debería entonces praktisch überall el Fehlervariable con clear en allen Procs deklarieren?

LG

XProfan X2
MfG
Gary12345

escribir.
Den Valor eins Yo como Flag para el Fehler negative Wurzel gewählt. Usted könntest para otro Fehler en el Procedur todavía otro Flags vergeben. Z.B. si la Fall Division por Null vorkommt, para esta mErr&=2. Keine Fehler wäre hier mErr&=0.
Jetzt kann du por IF simplemente abfragen si kein Fehler (mErr&=0), una Fehler (mErr&<>0), o. welcher Fehler aufgetreten es (mErr&=1 oder mErr&=2)

Gary12345 (30.01.13)

Julian
Schmidt

Gary12345 (30.01.13)

Yo versteh no por qué "If mErr& = 1". ¿Por qué = 1? Yo voluntad doch abfragen, si negative Werte disponible son?

Der Valor 1 es o más weniger willkürlich.
Mit el Línea
Kompilieren Marca Separación

case a!<0 : mErr&=1

prüfst du, si el Valor en el Wurzel negativo es, y si sí se el Fehlervariable mErr& igual 1 gesetzt.
Usted könntest also genauso
Kompilieren Marca Separación

If a!<0

    mErr&=1

Endi

Und Yo debería entonces praktisch überall el Fehlervariable con clear en allen Procs deklarieren?

El Variable es con Claro no deklariert, pero zurückgesetzt. ¿Puede auch simplemente mErr& = 0 escribir. Ist nötig, como beim erfolgreichen Durchlaufen (sin Fehler) ansonsten el alten Fehlerwerte posición blieben

Kompilieren Marca Separación

Gary12345

Proc Teilen

    parameters a!,b!
    clear mErr&
    declare Teilen!
    set("decimals",2)
    Teilen! = a!/b!
    return ROUND(Teilen!,2)

    If b! = 0

        mErr& = 1

    EndIf

    If mErr&=1

        print "Division durch 0!"

    EndIf

ENDPROC

Dann debería dies aber ir? Aber lo kommt davor siempre todavía el Fehlermelung. Mit Claro Yo el Variable sí zurückgesetzt...

Gracias!

XProfan X2
MfG
Gary12345

Julian
Schmidt

Como hast du el falschen Reihenfolge. Usted musst sólo el Fehler con If-Abfragen y si una Fehler auftritt de el Función springen z.B. con volver. El Fehlermeldung kommt siempre en una Math-Error y luego stützt el Programa de.
Probier beim nächsten veces simplemente con Einzelschritt-Modus en el Solución a kommen. Führst du simplemente por Traceon al Anfang el Rutina\Programmes de y schließt du otra vez por Traceoff

Kompilieren Marca Separación

Gary12345

Proc Teilen

    parameters a!,b!
    clear mErr&
    declare Teilen!
    set("decimals",2)

    If b! = 0

        mErr& = 1

    EndIf

    If mErr&=1

        print "Division durch 0!"
        return

    EndIf

    Teilen! = a!/b!
    ROUND(Teilen!,2)

ENDPROC

Also así stimmt el entonces?

XProfan X2
MfG
Gary12345

Gary12345

Nein así kommt zwar el richtige Ergebnis fuera, aber así es eleganter:
Kompilieren Marca Separación

Proc ADreieck

    parameters a!,b!
    declare ADreieck!
    set("decimals",2)

    If a! or b!>0

        mErr&=3

    EndIf

    If mErr&=3

        print "Unlogisches Ergebnis, da - Flächeninhalt!"
        return

    Else

        ADreieck! = 0.5*a!*b!
        return ROUND(ADreieck!,2)

    EndIf

ENDPROC

Hab Yo bastante?

MfG
Gary12345