[*]Profan

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*

je emfinde cette Operator comme Quatsch.

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

Jörg
Sellmeyer

Quelque chose comme peut-être?
Kompilieren Marque Sé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 ...

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):
Kompilieren Marque Sé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éparationx!=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

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.

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é.

RGH

allô Frank, Dein Beispiel ginge aussi so: Kompilieren Marque Sé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 ▲ Vollständiges citation Absatzweise Citation Zeilenweise Citation

@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.

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.