[*]Profan

Hubert
Binnewies

find so did i very meaningfully.....

I have so one Konstrukt already time uses.
then To times the ATARI ST there were in its Betriebssystem (then TOS called) a Systemvariable a such dreiwertige Logik encompassed.

tappt im dunkeln encompassed a 0 with : floppy disk not changed, a 1 with floppy disk changed and a 2 with floppy disk möglicherweise changed.

as i then with a friend the Tools ST wrote, the over Data Becker vertrieben watts, i was in some Make over these Dreiwertige Logik integrally happy.

Greeting 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!"

11/10/07 ▲

Frank
Abbing

*Hochschieb*

I emfinde this Operator as balderdash.

is about so How the berühmte Jaein of Dostojewski

Jörg
Sellmeyer

Something like Perhaps?
Compile Mark Separation

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, no function to that rounds, separate a circumstance!
@ iF, straight of you had I expects, a sinnvolle Vereinfachung To discern.

naturally can itself the too so inquire (example):
Compile Mark Separation

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

CompileMarkSeparationx!=1.573525
y!=1.573524
Set(About, 0.0000001)

WhileLoop 100

    If y!><x!

        Print x!, y!

    EndIf

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

EndWhile

now as Vereinfachung erkenne I it sehrwohl, only the meaningfully reicht me here for a Implementierung not integrally from - simply because myself yet none drop having with the I it had need can. can but well his that I here only slightly übersehe - can me hold only not remind derartiges time somewhere needed to have.

Frank
Abbing

then hantierst You not often with Floats. attempt still only time, two Floats on equality To Verify. the alone can already angry into pants weg, if You with the numbers before calculated have. too for drop would the new Operator suitable.

RGH

Hello Frank, your example went too so: Compile Mark Separation 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	11/13/07 ▲ Vollständiges Quote Absatzweise Quote Zeilenweise Quote

@Frank: I handtiere often with Floats, too with the Kalkulation of Zahlenreihen and tables How z.B. Preisberechnungsblättern and/or Abrechnungsformularen. I use if at all Round.

Frank
Abbing

it has already its sense, that The Round-function on a arbitrary amount Nachkommastellen rounds can!

likes his. but Please create too time one simples example, circa two arbitrary Floats on equality To Verify. two Floats, The not gerundet go can.