[*]Profan

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*

Yo emfinde esta Operator como Quatsch.

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

Jörg
Sellmeyer

Algo como tal vez?
Kompilieren Marca Separació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 ...

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):
Kompilieren Marca Separació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ónx!=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

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.

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.

RGH

¡Hola Franco, Su Ejemplo ginge auch así: Kompilieren Marca Separació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 ▲ Vollständiges Zitat Absatzweise Cita Zeilenweise Cita

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

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.