Français
Wünsche et Anregungen

Wunsch: Neuer relationaler Operator "ungefähr"

 

Frank
Abbing
je wünsche mir (dans erster ligne number pour Floats) den neuen relationalen Operator: Ungefähr bzw. presque juste. alors quasi un Gleichheitszeichen avec einer libre einstellbaren Toleranz, z.B.:

~=

ou bien

><

et en supplément une Funktion, um den Toleranzwert (dans positiver et gleichzeitig aussi negativer direction) trop mettons, comment z.B.:

Set(About, 0.0001)

cela ganze wäre aussi sinnvoll pour Integer-payons. dans dem le cas mets on plan ganzzahlige Werte:

Set(About,3)

Hierzu s'il te plaît aussi lesen: [web]https://www.rgh-soft.de/forum01/read.php?f=7&i=12824&t=12824[/web] et [web]https://de.wikipedia.org/wiki/Gleichheitszeichen[/web]
 
08.11.2007  
 




Hubert
Binnewies
Finde je aussi très sinnvoll.....

j'ai so un Construire aussi déjà la fois verwendet.
autrefois trop Zeiten des ATARI ST donnais es dans seinem Betriebssystem (autrefois TOS genannt) une Systemvariable qui une solche dreiwertige Logik enthielt.

vous enthielt une 0 chez : Diskette pas modifié, une 1 chez Diskette modifié et une 2 chez Diskette möglicherweise modifié.

comme je autrefois avec einem ami cela Tools ST schrieb, cela sur Data Becker vertrieben wurde, était je dans einigen Fällen sur cet Dreiwertige Logik entier glücklich.

Salut 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  
 



je emfinde cette Operator comme Quatsch.
 
13.11.2007  
 



Ist ungefähr so comment cela berühmte Jaein de Dostojewski
 
13.11.2007  
 




Jörg
Sellmeyer
Quelque chose comme peut-être?
KompilierenMarqueSéparation
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, aucun Funktion zum Runden, mais une Condition!
@ iF, justement de dir hätte je erwartet, une sinnvolle simplification trop erkennen.

Bien sûr peut sich cela aussi so abfragen (Beispiel):
KompilierenMarqueSéparation
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

KompilierenMarqueSéparation
x!=1.573525
y!=1.573524
Set(About, 0.0000001)

WhileLoop 100

    Si y!><x!

        Imprimer x!, y!

    EndIf

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

Endwhile

 
13.11.2007  
 



eh bien comme simplification erkenne je es sehrwohl, seulement cela Sinnvoll reicht mir ici pour une Implementierung pas entier aus - simple weil je selbst encore keinen le cas hatte chez dem je es hätte brauchen peut. peux mais bien son le moi ici seulement quelque chose übersehe - peux mich arrêt seulement pas erinnern derartiges la fois irgendwo nécessaire trop avons.
 
13.11.2007  
 




Frank
Abbing
ensuite hantierst du pas souvent avec Floats. Versuch doch seulement la fois, deux Floats sur Gleichheit trop vérifier. cela seul peux déjà böse dans qui Hose aller, si du avec den payons auparavant gerechnet la hâte. aussi pour den le cas wäre qui neue Operator approprié.
 
13.11.2007  
 




RGH
allô Frank,
Dein Beispiel ginge aussi so:
KompilierenMarqueSéparation
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  
 



@Frank: je handtiere souvent avec Floats, aussi chez qui calculation de Zahlenreihen et Tabellen comment z.B. Preisberechnungsblättern et/ou bien Abrechnungsformularen. je nutze si überhaupt Round.
 
13.11.2007  
 




Frank
Abbing

Es hat déjà seinen Sinn, dass qui Round-Funktion sur une beliebige Anzahl Nachkommastellen runden peux!


Mag son. mais s'il te plaît erstelle aussi la fois un simples Beispiel, um deux beliebige Floats sur Gleichheit trop vérifier. deux Floats, qui pas gerundet volonté dürfen.
 
13.11.2007  
 




répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

11.543 Views

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

Themeninformationen



Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie