XProfan

- page 3 -

Julian
Schmidt

quoi im Zusammenhang de Quadratischen Funktionen encore intéressant wäre, ist qui Berechnung des Scheitelpunktes.
Diesen peux du sur qui Quadratische Ergänzung ou bien sur den Mittelwert qui Nullstellen et anschließenden einsetzten pour X ausrechnen.

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

Gary12345

nous voilà justement im Matheunterricht

plutôt pas. j'ai une plan, quoi je einbaue et den werde je erstmal durchnehmen, quoi ensuite wird, sais je encore pas sans équivoque.

XProfan X2
MfG
Gary12345

Gary12345

Salut,

derzeitiger Code:
Kompilieren Marque Séparation

'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! imprimer test6! imprimer test7! WaitInput

OK-habe eh bien alle Funktionen incorporé, qui je volontiers avons voudrais (scheint aussi trop marcher).

une globale Fehlervariable comment mErr& trop verwenden.

qu'est-ce que c'est? dans qui Aider finde je rien?

LG

XProfan X2
MfG
Gary12345

Julian
Schmidt

simple une globale Variable dans qui du alle Flags trop Fehlern speicherst.
entier dessus simple per declare mErr& déclarer.

dans den Routinen ensuite qui faute dans cet neue Variable écrivons. Hat dem Vorteil cela du entier simple pour den Effectuer et à chacun Stelle des Programmes überprüfen peux, si qui dernier mathématique opération erfolgreich était. Weil es häufig bzw. toujours chez einem faute keinen Sinn pouvoir versuchen plus trop le calcul. qui Variable dans chacun Routine seulement sur Standart zurücksetzen!
Kompilieren Marque Séparation

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

la fois un paire kleine Anregungen et Tipps trop deinen Include.

1. peux du deine ganzen Textes aus qui Info-Routine direct dans qui betreffende Routine comme Kommentar écrivons. Kommentare volonté simple avec ' bzw // begonnen.
2. Sollten dans einem gutem Matheinclude qui Funktionsnamen aussi pour den richtigen mathematischen Begriffen benannt son. Etwa statt partager, Dividieren. sous Umständen devrait sogar qui paramètre anderen benannt volonté. dans qui Routine "Teilen" beispielsweise Dividend et Divisor. Dabei sollte on mais abwägen si qui Code dadurch schlechter lesbar wird et deswegen peut-être. pour gängigen Abkürzungen chercher.
3. chez Volumen de Körpern ist qui Öberfläche pas large.

Gary12345

ne...aucune Problem, wird alles gemacht.

seulement un Problem pour dem anderen Problem

je versteh pas pourquoi "If mErr& = 1". pourquoi = 1? je veux doch abfragen, si negative Werte vorhanden sommes?

et je devrait ensuite pratique überall qui Fehlervariable avec clear dans allen Procs déclarer?

LG

XProfan X2
MfG
Gary12345

écrivons.
Den Wert une habe je comme Flag pour den faute negative Wurzel gewählt. Du könntest pour autre faute dans qui Procedur encore autre Flags vergeben. Z.B. si qui le cas Division par zéro vorkommt, pour cette mErr&=2. aucun faute wäre ici mErr&=0.
maintenant peux du per IF simple abfragen si ne...aucune faute (mErr&=0), un faute (mErr&<>0), bzw. quel faute aufgetreten ist (mErr&=1 ou bien mErr&=2)

Gary12345 (30.01.13)

Julian
Schmidt

Gary12345 (30.01.13)

je versteh pas pourquoi "If mErr& = 1". pourquoi = 1? je veux doch abfragen, si negative Werte vorhanden sommes?

qui Wert 1 ist plus ou bien moins willkürlich.
avec qui la ligne
Kompilieren Marque Séparation

case a!<0 : mErr&=1

prüfst du, si qui Wert dans qui Wurzel négative ist, et si oui wird qui Fehlervariable mErr& juste 1 gesetzt.
Du könntest alors genauso
Kompilieren Marque Séparation

If a!<0

    mErr&=1

Endi

et je devrait ensuite pratique überall qui Fehlervariable avec clear dans allen Procs déclarer?

qui Variable wird avec Claire pas deklariert, mais zurückgesetzt. peux aussi simple mErr& = 0 écrivons. Ist nötig, là beim erfolgreichen Durchlaufen (sans faute) ansonsten qui alten Fehlerwerte stehen blieben

Kompilieren Marque Séparation

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

ensuite sollte ca mais aller? mais es venez devant toujours qui Fehlermelung. avec Claire habe je qui Variable oui zurückgesetzt...

merci!

XProfan X2
MfG
Gary12345

Julian
Schmidt

là la hâte du qui falschen Reihenfolge. Du musst seulement den faute avec Si-Abfragen et si un faute auftritt aus qui Funktion springen z.B. avec return. qui Fehlermeldung venez toujours chez une Math-Error et ensuite stützt cela Programme ab.
Probier beim prochain la fois simple avec Einzelschritt-Modus sur qui Solution trop venons. Führst du simple per Traceon am Anfang qui Routine\Programmes aus et schließt du wieder per Traceoff

Kompilieren Marque Séparation

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

alors so stimmt cela ensuite?

XProfan X2
MfG
Gary12345

Gary12345

non so venez zwar cela richtige Ergebnis raus, mais so ist es eleganter:
Kompilieren Marque Séparation

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 je droite?

MfG
Gary12345