XProfan

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

Tip:

tu écris z.B.:
Kompilieren Marque Séparation

Proc ADreieck

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

E

richtiger wäre:
Kompilieren Marque Séparation

Proc ADreieck

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

ENDPROC

ou bien juste:
Kompilieren Marque Séparation

Proc ADreieck

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

ENDPROC

Gary12345

pourquoi? Scheint doch alles richtig trop vais? je comprends simple cela return pas entier, quoique je es tausendmal dans qui Aider nachgelesen habe o.O

XProfan X2
MfG
Gary12345

Jörg
Sellmeyer

nous voilà alle froh, dass qui ganzen Rechenoperationen pas plus avec Funktionen fonctionnement volonté doit, mais direct avec den Operanden erledigt volonté peut et tu veux vous wieder einführen?

Retour kehrt aus einer Procédure direct à qui Stelle zurück dans cela Hauptprogramm. si on Pour Retour une Wert écrit, wird cette Wert comme Ergebnis aus qui Procédure zurückgeliefert:
Kompilieren Marque Séparation

Proc Ergebnis

    Parameters Wert$
    Declare Rueckgabe$
    Rueckgabe$ = "Nix passiert"

    If Wert$ = "Ja"

        Return Wert$

    ElseIf Wert$ = "Nein"

        Return "Da könnte ja jeder kommen"

    Else

        Return Rueckgabe$

    EndIf

EndProc

Cls
Print Ergebnis("Ja")
Print Ergebnis("Nein")
Print Ergebnis("Vielleicht")
WaitInput

c'est une wenig elegante Methode, zeigt mais, comment Retour funktioniert.
Besser wäre gewesen, dans qui Si-Abfrage den String Rueckgabe$ avec dem gewünschten Ergebnis trop bestücken et entier am Ende qui Procédure avec Retour Rueckgabe$ trop sortir de:
Kompilieren Marque Séparation

Proc Ergebnis

    Paramètres Wert$
    Déclarer Rueckgabe$
    Rueckgabe$ = "Nix passiert"

    Si Wert$ = "Ja"

        Rueckgabe$ = Wert$

    ElseIf Wert$ = "Nein"

        Rueckgabe$ = "Da pourrait oui chacun kommen"

    EndIf

    Retour Rueckgabe$

ENDPROC

Cls
Imprimer Ergebnis("Ja")
Imprimer Ergebnis("Nein")
Imprimer Ergebnis("Vielleicht")
WaitInput

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

Gary12345

Salut,
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 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 ROUNDss=s2>(quille!,2)

ENDPROC

Sprich, cela wäre ensuite richtig?

LG

XProfan X2
MfG
Gary12345

ou bien juste:
Kompilieren Marque Séparation

iF (27.01.13)

...

richtiger wäre:
Kompilieren Marque Séparation

Proc ADreieck

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

En

/a>

Proc ADreieck

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

ENDPROC

...

Ergo?

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

Gary12345

prends Option2. qui ist zwar länger, mais scheint mir leichter trop son. ensuite ist mon Code doch richtig.

Werde ensuite vll nochmals informer, weil je sur un Problem gestoßen suis. Erstmal sur travail manuel nachrechnen et ensuite den faute chercher (dans Mathe suis je oui nich qui beste ;) )

merci!

XProfan X2
MfG
Gary12345

Kompilieren Marque Séparation

Gary12345

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

    parameters a!,b!,c!
    declare Lösungsformel!
    set("decimals",2)
    Lösungsformel! = (-b!-sqrt(b!*b!-4*a!*c!))/(2*a!)
    return ROUND(Lösungsformel!,2)

En

/a>

je definiere, quoi je faire veux:

1. quoi ist une quadratische Gleichung?

ax²+bx+c=0

Beispiel:
3x²+2x+4=0

2. comment peux on solche quadratischen Gleichungen ausrechnen?

là gibt es une offizielle Formel (genannt Lösungsformel qui quadratischen Gleichungen):

-b+Wurzel(b²-4⋅a⋅c) / 2*a
-b-Wurzel(b²-4*a*c) / 2*a

Soweit verstanden?

3. comment peux je cela dans XPROFAN transformer?

dessus avez son bisher geschriebenen Code pour cet Formel. eh bien liefert vous falsche Werte et stürzt chez negativen Werten ab? (EDIT: Stürzt pas seulement chez negativen Werten ab!)

Habe cela dans praktischer forme versucht (alors écrit à la main), viens cependant toujours pas zur Solution des Problems (Umwandlung dans XPROFANCODE).

Testwert, wohin es chez mir abstürzt:
Kompilieren Marque Séparation

var test1! = Lösungsformel1(2,3,4)
imprimer test1!

merci pour eure Aider déjà la fois im Vorraus!

MfG
Gary12345

Dieter
Zornow

cela set("decimals",2) braucht on doch pas dans chacun proc. Einmal am Anfang außerhalb qui Procs insérer reicht doch.
Kompilieren Marque Séparation

set("decimals",2)

Proc Summe

    parameters a!,b!
    return ROUND( a!+b!,2)

EndProc

proc .......

endproc

proc ........

endproc

usw.

ensuite pourrait qui User aussi encore comme Option le nombre qui Nachkommastellen festlegen.

an& = readini .........
set("decimals",an&)

XProfan X2
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Thomas
Freier

je vais sogar soweit, dass weder DECIMALS encore ROUND quelque chose dans qui PROC trop chercher trop avons. c'est im Programme trop régulariser. Berechnungen devrait max. Nachkommastellen avons um weitere Berechnungen pas trop verfälschen.

Gruß Thomas
Windows XP SP2, XProfan X2

Gary12345

Jo merci. je serait ehrlicherweise erstmal encore paire Funktionen einbauen, après pourrait je mich um cet Problem kümmern.

Hat quelqu'un une Ahnung de quadratischen Gleichungen. poste siehe 2-3 Posts sur mir

XProfan X2
MfG
Gary12345

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

Ehm?

r!=b!+sqrt(b!*b!-4*a!*c!) / 2*a!