XProfan

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

- Page 4 -

Gary12345

Compile Mark Separation

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<

gives any values correctly. from. have not so umgesetzt, How You it in the obrigen example made have! is on my what wrong? Kanns me Nich present!
ADreieck there none negativen Flächeninhalt.therefore have I the made-

XProfan X2
MfG
Gary12345

Julian
Schmidt

naturally there any values correctly. from and is therefore too correctly.
though can you you a crowd Lines save, because the second IF-circumstance theoretical unnecessary is.
here Solutions which aale are.
Compile Mark Separation

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)

CompileMarkSeparationProc root

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

    If a!<0

        mErr&=2'negatives root

    Else

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

    EndIf

    Return -1

ENDPROC


The downstairs Solution is think I on the übersichtlichsten.

gary12345  (30.01.13)

ADreieck there none negativen Flächeninhalt.therefore have I the made-


was supra something verwirrend there in your circumstance definiert watts, that any positive values as error treats go should. have you got Yes now korrigiert.

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

Gary12345

i'm sincere: I let it so How I it Have, I me so on the best zurechtfinde. will be now further Fehlervariablen install.

Thank you!

XProfan X2
MfG
Gary12345

Julian
Schmidt

then recommend I you at least again IF-terms and Proc's anzuschauen.
either in the normalen XProfan-Help.
or in the XProfan-Textbook [...]

or. program dead easy with XProfan[...]

On your manner are per Proc at least 20% More code and its integral unübersichtlicher!

Gary12345

be me Nich angry, but for me is it so leichter for the time being. If goes, make I not for me tougher. The Hauptfaktor is, that it MIR slight falls

nevertheless many, many Thanks!

be you one virtuelles beer due.

XProfan X2
MfG
Gary12345

Julian
Schmidt

One virtuelles beer take I naturally dankend on.

I thought this Thread would a Übung circa sometime whom BKA Remover [...]

fertigzustellen. for this become You In any drop The management of terms, creep and routines need. i'd In any drop time a look in Dietmars [...]

throwing. particularly in chapter 2,4,5 & 11.

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

Gary12345

Well, i think, that the BKA Remover a Schitt To high for me is. reading do I in large Textbook already

and in the Help naturally too!

XProfan X2
MfG
Gary12345

Gary12345

new Version is out.

Improvements:

- New Features
- Fehlervariable installed
- weitgehenst Fachsprache uses
- weitgehenst variables with ?_ declared
- and yet some More

what I consider will be is Vieta. Vll can I whom yet install. Erstmal reports me Please Errors in the code. or. in the Program.

next Version go too Beispielcodes settled!

LG

MfG
Gary12345

here call You zB The Proc add with Return again on and erhälst a endlose Repeat.
and as long as You Set("Decimals",2) and Round in your procedure have, are The functions crept useless.
Also: time integrally under us... if I x = 1+3 write can, Why ought to I then x = add(1,3) write?

so I will none say, that You not go on should. Is determined ne good Übung for you. but häng still simply everything something deeper. instead of that here as Neuerfindung of geschnittenem bread anzupreisen, schreib simply, that You the whole for you to that learn very useful find.

Jörg
Sellmeyer

You must you some things in the Help and here in the Thread yet number of times and very thoroughly durchlesen!!
Compile Mark Separation

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

weg becomes The thing time integrally gechillt on

with Return I will the Result Round(?_Addieren!,2) indicate. the watts me here even in the Thread said. so becomes a procedure completed.

with Set("Decimals",2) I will The Nachkommastellen on 2 curtail and these then on two Nachkommastellen rounds. See there none Error.

If I a mathematical Include write wants, Why not same alltägliche functions? see there already whom sense.

or understand I with Return what Wrong?
Hello

MfG
Gary12345

Julian
Schmidt

gary12345 (31.01.13)

with Set("Decimals",2) I will The Nachkommastellen on 2 curtail and these then on two Nachkommastellen rounds. See there none Error.

The Error lying therein, that you so whom users vorschreibst, that it numbers with two Nachkommastellen use must.
rather would, if You whom Programmer whom Freiraum läst these self To define, without the it in your Include-code herumwühlen must.

Julian
Schmidt

gary12345 (31.01.13)

If I a mathematical Include write wants, Why not same alltägliche functions? see there already whom sense.

then wenigsten functions, which equivalent with XProfan-functions are.

In XProfan can you in example too sums with several Summand calculate. with you can bislang only maximum two Summanden indicated will be, otherwise must one several Funktionsaufrufe ineinander link.

You could now hergehen and your function The indicated of infinite many Summanden as Parameter permit. then would your function under Umständen even advantages bring, because one less clinging set should.
if You it try want look you %ParCount in combination with of/ one whileloop-Loop on. The Parameter get You then by @!(n).