| |
|
|
Gary12345 | ¡Hola,
Yo una Incluir basierend en leichtem XPROFAN Code erstellt.
Descargar
Características de el Code ablesbar! |
|
|
| |
|
|
|
| |
|
| |
|
|
|
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 |
|
|
| |
|
|
|
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 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 |
|
|
| 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 |
|
|
| |
|
|
|
| |
|
| |
|
|
|
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! |
|
|
| |
|
|
|
Gary12345 | KompilierenMarcaSeparación 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 Gracias para eure Ayuda ya veces en el Vorraus! |
|
|
| |
|
|
|
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 Dann podría el User auch todavía como Opción el número el Nachkommastellen festlegen.
an& = readini ......... set("decimals",an&) |
|
|
| XProfan X2Er 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. |
|
|
| |
|
|
|
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 |
|
|
| |
|
|
|
| Ehm?
r!=b!+sqrt(b!*b!-4*a!*c!) / 2*a! |
|
|
| |
|
|