XProfan

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

Tip:

Usted schreibst z.B.:
Kompilieren Marca Separación

Proc ADreieck

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

E

richtiger wäre:
Kompilieren Marca Separación

Proc ADreieck

    parámetros a!,b!
    declarar ADreieck!
    set("decimals",2)
    ADreieck! = 0.5*a!*b!
    volver ROUND(ADreieck!,2)

ENDPROC

oder igual:
Kompilieren Marca Separación

Proc ADreieck

    parámetros a!,b!
    set("decimals",2)
    volver ROUND(0.5*a!*b!,2)

ENDPROC

Gary12345

¿Por qué? Scheint doch alles correcto a gehe? Yo verstehe simplemente el volver no bastante, obwohl Yo tausendmal en el Ayuda nachgelesen habe o.O

XProfan X2
MfG
Gary12345

Jörg
Sellmeyer

Como son wir todos froh, dass el ganzen Rechenoperationen no mehr con Características ausgeführt voluntad necesario, pero direkt con el Operanden hecho voluntad puede y du willst ellos otra vez einführen?

Volver kehrt de uno Procedimiento direkt a el Punto zurück en el Hauptprogramm. Wenn uno Nach Volver una Valor schreibt, se dieser Valor como Ergebnis de el Procedimiento zurückgeliefert:
Kompilieren Marca Separación

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

Es una wenig elegante Método, zeigt aber, como Volver funktioniert.
Besser wäre gewesen, en el If-Abfrage el String Rueckgabe$ con el deseado Ergebnis a bestücken y bastante al Ende el Procedimiento con Volver Rueckgabe$ a verlassen:
Kompilieren Marca Separación

Proc Ergebnis

    Parámetros Valor$
    Declarar Rueckgabe$
    Rueckgabe$ = "Nix passiert"

    If Valor$ = "Ja"

        Rueckgabe$ = Valor$

    ElseIf Valor$ = "Nein"

        Rueckgabe$ = "Da podría sí cada kommen"

    EndIf

    Volver Rueckgabe$

ENDPROC

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

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

Gary12345

¡Hola,
Kompilieren Marca Separación

'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>(Kegel!,2)

ENDPROC

Sprich, el wäre entonces correcto?

LG

XProfan X2
MfG
Gary12345

oder igual:
Kompilieren Marca Separación

IF (27.01.13)

...

richtiger wäre:
Kompilieren Marca Separación

Proc ADreieck

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

En

/a>

Proc ADreieck

    parámetros a!,b!
    set("decimals",2)
    volver ROUND(0.5*a!*b!,2)

ENDPROC

...

Ergo?

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

Gary12345

Tomar Opción2. El Aunque länger, aber scheint me leichter a ser. Dann es mein Code doch correcto.

Werde entonces vll nochmals nachfragen, porque I una Problema gestoßen bin. Erstmal en Handarbeit nachrechnen y luego el Fehler suchen (In Mathe bin Yo sí nich el beste ;) )

Gracias!

XProfan X2
MfG
Gary12345

Kompilieren Marca Separación

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>

Yo definiere, Yo hacer voluntad:

1. Was es una quadratische Gleichung?

ax²+bx+c=0

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

2. ¿Cómo se puede uno solche quadratischen Gleichungen ausrechnen?

Puesto que hay lo una offizielle Formel (genannt Lösungsformel el quadratischen Gleichungen):

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

Soweit verstanden?

3. ¿Cómo se puede Yo el en XPROFAN umwandeln?

Oben habt ihr bisher geschriebenen Code para esta Formel. Nun liefert ellos falsche Werte y stürzt en negativen Werten de? (EDIT: Stürzt no sólo en negativen Werten de!)

Posesiones el en praktischer Form intenta (also handschriftlich), komme sin embargo siempre todavía no a Solución des Problems (Umwandlung en XPROFANCODE).

Testwert, wo lo en me accidentes:
Kompilieren Marca Separación

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

Gracias para eure Ayuda ya veces en el Vorraus!

MfG
Gary12345

Dieter
Zornow

Das set("decimals",2) braucht uno doch no en cada proc. Einmal al Anfang außerhalb el Procs einfügen reicht doch.
Kompilieren Marca Separación

set("decimals",2)

Proc Summe

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

EndProc

proc .......

endproc

proc ........

endproc

usw.

Dann podría el User auch todavía como Opción el número el 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

Yo gehe incluso soweit, dass weder DECIMALS todavía ROUND algo en el PROC a suchen a haben. Es en el Programa a regeln. Berechnungen debería max. Nachkommastellen haben en weitere Berechnungen no a verfälschen.

Gruß Thomas
Windows XP SP2, XProfan X2

Gary12345

Jo Gracias. Yo sería ehrlicherweise primero todavía pocos Características einbauen, danach podría Yo mich en dieses Problema kümmern.

Sombrero alguien una Idea de quadratischen Gleichungen. Post siehe 2-3 Beiträge encima me

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!