Español
Wünsche y Sugerencias

Wunsch: Neuer relationaler Operator "ungefähr"

 

Frank
Abbing
Yo wünsche me (en erster Linie para Floats) el neuen relationalen Operator: Ungefähr o. Fast igual. Also quasi una Gleichheitszeichen con uno frei einstellbaren Toleranz, z.B.:

~=

oder

><

Und dazu una Función, en el Toleranzwert (en positiver y gleichzeitig auch negativer Richtung) a conjunto, como z.B.:

Conjunto(About, 0.0001)

Das todo wäre auch sinnvoll para Integer-Pagar. In el Fall setzt uno eben ganzzahlige Werte:

Conjunto(About,3)

Hierzu Por favor, auch lesen: [web]https://www.rgh-soft.de/forum01/read.php?f=7&i=12824&t=12824[/web] y [web]https://de.wikipedia.org/wiki/Gleichheitszeichen[/web]
 
08.11.2007  
 




Hubert
Binnewies
Finde Yo auch muy sinnvoll.....

Yo habe así una Konstrukt auch ya veces verwendet.
Damals a Veces des ATARI ST gab lo en seinem Betriebssystem (damals TOS genannt) una Systemvariable el una solche dreiwertige Logik enthielt.

Sie enthielt una 0 en : Diskette no cambiado, una 1 en Diskette cambiado y una 2 en Diskette möglicherweise cambiado.

Als Yo damals con un Freund el Tools ST schrieb, el encima Data Becker vertrieben wurde, war Yo en algunos Fällen encima esta Dreiwertige Logik bastante glücklich.

Saludo Hubert
 
WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"
10.11.2007  
 




Frank
Abbing
*Hochschieb*
 
13.11.2007  
 



Yo emfinde esta Operator como Quatsch.
 
13.11.2007  
 



Ist ungefähr como el berühmte Jaein de Dostojewski
 
13.11.2007  
 




Jörg
Sellmeyer
Algo como tal vez?
KompilierenMarcaSeparación
Proc RoundAbout

    Parameters F!,n%,G&
    Declare r%
    r% = Round(F!,n%) = G&
    Print Str$(F!) +  =  + Str$(G&) + :  + Str$(r%)
    Return r%

EndProc

RoundAbout(0.99993,1,5)
RoundAbout(1.09993,1,2)
RoundAbout(2.99993,3,3)
RoundAbout(0.99093,1,1)
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
13.11.2007  
 




Frank
Abbing
@Jörg, no Función para Runden, pero una Condición!
@ IF, gerade de dir hätte Yo esperado, una sinnvolle Vereinfachung a erkennen.

Natürlich lässt se el auch así abfragen (Ejemplo):
KompilierenMarcaSeparación
x!=1.573525
y!=1.573524

WhileLoop 100

    If ((y!>=x!-0.0000001) and (y!<=x!+0.0000001))

        Print x!, y!

    EndIf

    x!=x!+0.0000001
    y!=y!+0.00000015

KompilierenMarcaSeparación
x!=1.573525
y!=1.573524
Conjunto(About, 0.0000001)

WhileLoop 100

    If y!><x!

        Imprimir x!, y!

    EndIf

    x!=x!+0.0000001
    y!=y!+0.00000015

EndWhile

 
13.11.2007  
 



Nun como Vereinfachung erkenne Yo sehrwohl, sólo el Sinnvoll reicht me hier para una Implementierung no bastante de - simplemente porque Yo incluso todavía no Fall hatte en el Yo hätte brauchen puede. Kann aber bien ser el Yo hier sólo algo übersehe - kann mich sólo sólo no erinnern derartiges veces irgendwo benötigt a haben.
 
13.11.2007  
 




Frank
Abbing
Dann hantierst du no oft con Floats. Intento doch sólo veces, zwei Floats en Gleichheit a prüfen. Das allein kann ya böse en el Hose ir, si du con el Pagar vorher gerechnet hast. Auch para el Fall wäre el neue Operator geeignet.
 
13.11.2007  
 




RGH
¡Hola Franco,
Su Ejemplo ginge auch así:
KompilierenMarcaSeparación
Var x!=1.573525
Var y!=1.573524

WhileLoop 100

    If Round(y!,7) = Round(x!,7)

        Print x!, y!

    EndIf

    x!=x!+0.0000001
    y!=y!+0.00000015

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4
13.11.2007  
 



@Franco: Yo handtiere oft con Floats, auch en Kalkulation de Zahlenreihen y Tabellen como z.B. Preisberechnungsblättern y/oder Abrechnungsformularen. Yo nutze si überhaupt Round.
 
13.11.2007  
 




Frank
Abbing

Lo ha ya seinen Sinn, dass el Round-Función en una beliebige Anzahl Nachkommastellen runden kann!


Mag ser. Aber Por favor, erstelle auch veces una simples Ejemplo, en zwei beliebige Floats en Gleichheit a prüfen. Zwei Floats, el no gerundet voluntad dürfen.
 
13.11.2007  
 




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

11.631 Views

Untitledvor 0 min.
Walter03.12.2020
iF01.12.2014
holmol9330.05.2013
RICOSCH29.11.2011

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