XProfan

Kompilieren Marque Séparation

- page 4 -

Gary12345

Proc Wurzel

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

    If a!<0

        mErr&=2

    EndIf

    If mErr& = 2

        print "Negative Wurzel!"
        return

    Else

        Wurzel! = sqrt(a!)
        Return Round(Wurzel!,2)

    EndIf

EndProc

Proc ADreieck

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

    If (a!<0) 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

Proc AQuadrat

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

    If a! <0

        mErr&=4

    EndIf

    If mErr&=4

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

    Else

        Quadrat!=a!*a!
        return ROUND(Quadrat!,2)

    EndIf<

a class=s4 href='./../../references-fonction/XProfan/endproc/'>ENDPROC

Gibt alle Werte richtig aus. Habe es pas so mise en œuvre, comment Du es im obrigen Beispiel gemacht la hâte! Ist à meinem quoi faux? Kanns mir nich présenter!
ADreieck gibt es keinen negativen Flächeninhalt.Daher habe je cela gemacht-

XProfan X2
MfG
Gary12345

Julian
Schmidt

Bien sûr gibt es alle Werte richtig aus et ist deswegen aussi korrekt.
Allerdings peux du dir une la quantité Zeilen sparen, weil qui zweite IF-Condition Theoretisch unnötig ist.
ici Lösungen quelle dans Ordre sommes.
Kompilieren Marque Séparation

Proc Wurzel

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

    If a!<0

        mErr&=2'Negative Wurzel
        Return -1

    EndIf

    Wurzel! = sqrt(a!)
    Return Round(Wurzel!,2)

KompilierenMarqueSéparationProc Wurzel

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

    Si a!<0

        mErr&=2'Negative Wurzel

    D'autre

        Wurzel! = sqrt(a!)
        Retour Round(Wurzel!,2)

    EndIf

    Retour -1

ENDPROC


qui untere Solution ist denke je am übersichtlichsten.

Gary12345  (30.01.13)

ADreieck gibt es keinen negativen Flächeninhalt.Daher habe je cela gemacht-


était dessus quelque chose verwirrend là dans deiner Condition défini wurde, dass alle positiven Werte comme faute behandelt volonté devoir. la hâte du oui eh bien korrigiert.

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

Gary12345

je suis honnête: je lasse es so comment je es hab, là je mich avec cela am Besten zurechtfinde. Werde maintenant weitere Fehlervariablen einbauen.

merci!

XProfan X2
MfG
Gary12345

Julian
Schmidt

ensuite empfehle je dir mindestens nochmal IF-Bedingungen et Proc's anzuschauen.
Entweder dans qui normalen XProfan-Aider.
ou bien im XProfan-Lehrbuch [...]

bzw. Programmieren kinderleicht avec XProfan[...]

sur deine Art sommes pro Proc mindestens 20% plus Code et c'est wesentlich unübersichtlicher!

Gary12345

Sei mir nich böse, mais pour mich ist es so leichter vorerst. Wenns allez, fais je es pas pour mich schwieriger. qui Hauptfaktor ist, dass es MIR léger fällt

quand même vielen, vielen Dank!

suis Dir un virtuelles bière schuldig.

XProfan X2
MfG
Gary12345

Julian
Schmidt

un virtuelles bière nehme je naturellement dankend à.

J'ai pensé cette Fil wäre une Übung um irgendwann den BKA Remover [...]

fertigzustellen. Pour cette wirst du sur jeden le cas qui Handhabung de Bedingungen, Schleifen et Routinen besoin. je serait sur jeden le cas la fois une perspective dans Dietmars [...]

werfen. Insbesondere dans le chapitre 2,4,5 & 11.

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

Gary12345

bof, je denke, dass qui BKA Remover une Schitt trop hoch pour mich ist. Lesen tue je im grand Lehrbuch déjà

et dans qui Aider naturellement aussi!

XProfan X2
MfG
Gary12345

Gary12345

Neue Version ist raus.

Verbesserungen:

- neue Funktionen
- Fehlervariable incorporé
- weitgehenst langage technique verwendet
- weitgehenst Variablen avec ?_ deklariert
- et encore quelques plus

quoi je überlegen werde ist Vieta. Vll peux Je l' encore einbauen. Erstmal meldet mir s'il te plaît faute im Code. Bzw. Im Programme.

prochain Version volonté aussi Beispielcodes beigelegt!

LG

MfG
Gary12345

ici appelles du zB qui Proc Addieren avec Retour nochmal sur et erhälst une endlose Répétition.
et solange du Set("Décimal",2) et Round dans deiner Procédure la hâte, sommes qui Funktionen schlicht inutilisable.
Aussi: la fois entier sous uns... si je x = 1+3 écrivons peux, pourquoi sollte je ensuite x = Addieren(1,3) écrivons?

avec cela veux je gar pas dire, dass du pas weitermachen sollst. Ist bestimmt ne gute Übung pour toi. mais häng doch simple alles quelque chose tiefer. Anstatt que voici comment qui Neuerfindung de geschnittenem Brot anzupreisen, schreib simple, dass du cela ganze pour toi zum apprendre très nützlich findest.

Jörg
Sellmeyer

Du musst dir quelques Sachen dans qui Aider et ici im Fil encore plusieurs fois et très gründlich durchlesen!!
Kompilieren Marque Séparation

Proc Addieren//Addiert Floatwerte a! und b! miteinander. Funktion ist also: Addieren(a!,b!). Beispiel dazu wäre: Addieren(2,4). Das Ergebnis wäre dann logischerweise 6

    parameters a!,b!
    declare ?_Addieren!
    set("decimals",2)//Kürzt die Zahl auf zwei Nachkommastellen
    ?_Addieren! = a!+b!//Funktion
    return ROUND(?_Addieren!,2)//Rundet die Zahlen auf zwei Nachkommastellen

En

/a>

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Gary12345

aller wird qui l'affaire la fois entier gechillt à

avec Retour veux je cela Ergebnis Round(?_Addieren!,2) angeben. cela wurde mir ici sogar im Fil dit. avec cela wird une Procédure abgeschlossen.

avec Set("Décimal",2) veux je qui Nachkommastellen sur 2 kürzen et cet ensuite sur deux Nachkommastellen runden. Siehe là keinen faute.

si je un modèle mathématique Include écrivons veux, pourquoi pas juste alltägliche Funktionen? vois là déjà den Sinn.

ou bien verstehe je avec Retour quoi falsches?
salut

MfG
Gary12345

Julian
Schmidt

Gary12345 (31.01.13)

avec Set("Décimal",2) veux je qui Nachkommastellen sur 2 kürzen et cet ensuite sur deux Nachkommastellen runden. Siehe là keinen faute.

qui faute liegt y, cela du avec cela den Anwender vorschreibst, dass il payons avec deux Nachkommastellen verwenden muss.
Besser wäre, si du den Programmierer den Freiraum läst cet selbst trop définir, sans cela il dans deinen Include-Code herumwühlen muss.

Julian
Schmidt

Gary12345 (31.01.13)

si je un modèle mathématique Include écrivons veux, pourquoi pas juste alltägliche Funktionen? vois là déjà den Sinn.

ensuite wenigsten Funktionen, quelle gleichwertig avec XProfan-Funktionen sommes.

dans XProfan peux du Beispielsweise aussi Summen avec mehreren Summand ausrechnen. chez dir peut jusqu'alors seulement maximum deux Summanden angegeben werde, andernfalls muss on plusieurs Funktionsaufrufe ineinander verknüpfen.

Du könntest eh bien hergehen et dans deiner Funktion qui angabe de unendlich vielen Summanden comme paramètre erlauben. ensuite serait deine Funktion sous Umständen sogar Vorteile apporter, weil on moins Klammern setzten devrait.
si du es versuchen veux exposition dir %ParCount dans Kombination avec einer whileloop-Boucle à. qui paramètre bekommt du ensuite per @!(N).