Español
Incluye

Mathematik ligeramente gemacht - INCLUDE con leichtem Code.

 

Gary12345
¡Hola,

Yo una Incluir basierend en leichtem XPROFAN Code erstellt.

Descargar

Características de el Code ablesbar!

10 kB
Hochgeladen:01.02.2013
Ladeanzahl262
Descargar
 
MfG
Gary12345
27.01.2013  
 



Tip:

Usted schreibst z.B.:
KompilierenMarcaSeparación
Proc ADreieck

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

E

richtiger wäre:
KompilierenMarcaSeparación
Proc ADreieck

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

ENDPROC


oder igual:
KompilierenMarcaSeparación
Proc ADreieck

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

ENDPROC

 
27.01.2013  
 




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
27.01.2013  
 




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:
KompilierenMarcaSeparació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:
KompilierenMarcaSeparació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 ...
27.01.2013  
 




Gary12345
¡Hola,
KompilierenMarcaSeparació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
28.01.2013  
 



IF (27.01.13)


...

richtiger wäre:
KompilierenMarcaSeparación
Proc ADreieck

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

En
/a>

oder igual:
KompilierenMarcaSeparación
Proc ADreieck

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

ENDPROC


...



Ergo?
 
28.01.2013  
 




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
28.01.2013  
 




Gary12345

KompilierenMarcaSeparación
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:
KompilierenMarcaSeparación
var test1! = Lösungsformel1(2,3,4)
imprimir test1!

Gracias para eure Ayuda ya veces en el Vorraus!
 
MfG
Gary12345
28.01.2013  
 




Dieter
Zornow
Das set("decimals",2) braucht uno doch no en cada proc. Einmal al Anfang außerhalb el Procs einfügen reicht doch.
KompilierenMarcaSeparació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
28.01.2013  
 




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
28.01.2013  
 




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

LG
 
XProfan X2
MfG
Gary12345
28.01.2013  
 



Ehm?

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




Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

50.933 Views

Untitledvor 0 min.
Erhard Wirth14.06.2024
XProfan Newbie18.02.2023
rafl21.06.2022
Member 229993121.10.2019
Más...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie