XProfan

Español

Declare x!,y!,a!,b!
Cls
showmax
a!=0
b!=-20
x!=0
y!=-10

Whileloop 100

    y!=y!-0.1

EndWhile

If ((x!=a!) and (y!=b!))

    Print "Ist gleich"

EndIf

decimals 20
Print x!,y!,a!,b!
WaitInput

Der Code zeigt por desgracia, no Ist igual a, aber él debería.

Durch el Decimals-Línea hebe Yo hervor por qué el Imprimir no ausgeführt se.

05.05.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

¡Hola David,

el Imprimir X!,Y!,A!,B! zeigt sí bastante deutlich, por qué Y! eben siempre todavía ungleich B! es. En Floats (= Double en otro Idiomas) son eben no todos Werte 100%ig exakt darzustellen. El Genauigkeit es sólo en 15 Stellen begrenzt. Durch el mehrmalige Addition con 0.1 summiert se en Y! el Fehler en una Ungenauigkeit en el 16. Punto, sodaß el Resultat eben no exakt -20 es, pero eben -20.000000000000035.
En Fließkommazahlen debería uno por lo tanto nie en Gleichheit prüfen, pero siempre en >=, <=, etc.
Das trifft en el übrigen en todos Programmiersprachen a, el en el Normal no BCD-Dartstellung de Fließkommazahlen bieten.
(Una excepción war PowerBasic para DOS, welches Fließkommazahlen en el BCD-Formato darstellte.)

Saludo
Roland

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

05.05.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jut!

Also con round o. con int(f!*1x) gerundet vergleichen, así komm Yo klar.

05.05.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita