XProfan

Kompilieren Marca Separación

- Página 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 todos Werte correcto de. Posesiones no así umgesetzt, como Usted lo en el obrigen Ejemplo gemacht hast! Ist a mi qué falso? Kann me nich vorstellen!
ADreieck hay no negativen Flächeninhalt.Daher Yo el gemacht-

XProfan X2
MfG
Gary12345

Julian
Schmidt

Natürlich hay todos Werte correcto de y es deswegen auch korrekt.
Aunque kannst du dir una Menge Zeilen sparen, porque el zweite IF-Condición Theoretisch unnötig es.
Hier Lösungen welche Haga clic en Aceptar son.
Kompilieren Marca Separación

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)

KompilierenMarcaSeparaciónProc Wurzel

    parámetros a!
    clear mErr&
    declarar Wurzel!
    set("decimals",2)

    If a!<0

        mErr&=2'Negative Wurzel

    Más

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

    EndIf

    Volver -1

ENDPROC


El untere Solución es denke Yo al übersichtlichsten.

Gary12345  (30.01.13)

ADreieck hay no negativen Flächeninhalt.Daher Yo el gemacht-


War oben algo verwirrend como en deiner Condición definiert wurde, dass todos positiven Werte como Fehler behandelt voluntad debería. Hast du sí nun korrigiert.

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

Gary12345

Yo bin ehrlich: Yo lasse lo como Yo tener, como Yo mich así al Besten zurechtfinde. Werde ahora weitere Fehlervariablen einbauen.

Gracias!

XProfan X2
MfG
Gary12345

Julian
Schmidt

Dann empfehle Yo dir mindestens otra vez IF-Bedingungen y Proc's anzuschauen.
Entweder en el normalen XProfan-Ayuda.
Oder en el XProfan-Lehrbuch [...]

o. Programmieren kinderleicht con XProfan[...]

Auf deine Art son pro Proc mindestens 20% mehr Code y es wesentlich unübersichtlicher!

Gary12345

Sei me nich böse, aber para mich es así leichter vorerst. Wenns va, mache Yo no para mich schwieriger. Der Hauptfaktor es, dass lo MIR ligeramente fällt

Trotzdem vielen, vielen Dank!

Bin Usted una virtuelles Bier schuldig.

XProfan X2
MfG
Gary12345

Julian
Schmidt

Ein virtuelles Bier Aprovecho natürlich dankend a.

Pensé dieser Hilo wäre una Übung en irgendwann el BKA Remover [...]

fertigzustellen. Für esta wirst du en cada Fall el Handhabung de Bedingungen, Schleifen y Routinen benötigen. Yo sería en cada Fall veces a la Blick en Dietmars [...]

werfen. Insbesondere en Kapitel 2,4,5 & 11.

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

Gary12345

Naja, Yo denke, dass el BKA Remover una Schitt a hoch para mich es. Lesen tue Yo en el großen Lehrbuch ya

Und en el Ayuda natürlich auch!

XProfan X2
MfG
Gary12345

Gary12345

Neue Versión está fuera.

Verbesserungen:

- neue Características
- Fehlervariable instalado
- weitgehenst Fachsprache verwendet
- weitgehenst Variables con ?_ deklariert
- y todavía algunos mehr

Was Yo überlegen voluntad es Vieta. Vll kann Yo, el todavía einbauen. Erstmal meldet me Por favor, Fehler en el Code. Bzw. Im Programa.

Nächste Versión voluntad auch Beispielcodes beigelegt!

LG

MfG
Gary12345

Hier rufst du zB el Proc Addieren con Volver otra vez en y erhälst una endlose Wiederholung.
Und solange du Conjunto("Decimals",2) y Round en deiner Procedimiento hast, son el Características schlicht unbrauchbar.
Außerdem: veces bastante bajo uns... si yo x = 1+3 escribir kann, por qué debería Yo entonces x = Addieren(1,3) escribir?

Damit voluntad Yo nada sagen, dass du no weitermachen sollst. Está decidido ne gute Übung para dich. Aber häng doch simplemente alles algo tiefer. Anstatt que aquí como Neuerfindung de geschnittenem Brot anzupreisen, schreib simplemente, dass Si es usted el todo para dich para Lernen muy nützlich findest.

Jörg
Sellmeyer

Usted musst dir algunos Sachen en el Ayuda y aquí en el Hilo todavía mehrmals y muy gründlich durchlesen!!
Kompilieren Marca Separación

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

Gehen se el Sache veces bastante gechillt a

Mit Volver voluntad Yo el Ergebnis Round(?_Addieren!,2) angeben. Das wurde me hier incluso en el Hilo dijo. Damit se una Procedimiento abgeschlossen.

Mit Conjunto("Decimals",2) voluntad Yo el Nachkommastellen en 2 kürzen y esta entonces en zwei Nachkommastellen runden. Siehe como no Fehler.

Wenn Yo una matemática Incluir escribir voluntad, por qué no es igual alltägliche Características? Sehe como ya el Sinn.

Oder verstehe I, con Volver qué falsches?
Servus

MfG
Gary12345

Julian
Schmidt

Gary12345 (31.01.13)

Mit Conjunto("Decimals",2) voluntad Yo el Nachkommastellen en 2 kürzen y esta entonces en zwei Nachkommastellen runden. Siehe como no Fehler.

Der Fehler liegt en él, el du así el Anwender vorschreibst, dass él Pagar con zwei Nachkommastellen uso muss.
Besser wäre, si du el Programmierer el Freiraum läst esta incluso a definieren, sin el él en deinen Incluir-Code herumwühlen muss.

Julian
Schmidt

Gary12345 (31.01.13)

Wenn Yo una matemática Incluir escribir voluntad, por qué no es igual alltägliche Características? Sehe como ya el Sinn.

Dann wenigsten Características, welche gleichwertig con XProfan-Características son.

In XProfan kannst du Por ejemplo auch Summen con más Summand ausrechnen. En dir puede bislang sólo máximo zwei Summanden angegeben voluntad, de otra manera muss uno mehrere Funktionsaufrufe ineinander verknüpfen.

Usted könntest nun hergehen y deiner Función el angabe de unendlich vielen Summanden como Parámetro erlauben. Dann sería deine Función bajo Umständen incluso Vorteile bringen, porque uno weniger Klammern setzten debería.
Falls du lo versuchen willst mostrar dir %ParCount en Kombination con uno whileloop-Bucle a. El Parámetro bekommt du entonces por @!(N).