Posted By: OOK (--volna noha user--) on 'CZprogram'
Title:     Re: Zaokrouhlovani cisla typu Extended
Date:      Mon May  6 17:45:35 2002

Dzemene, ty jsi nechodil na Kleckovou ?

                   MK


> Cau!
> 
> Co rikate nasledujicimu:
> 
> 1) 1. pocitac, Celeron 333MHz, Windows 98 Second Edition
> 
> A := 824.5
> Writeln(A) vypise 824.49999999.... {OK, to bych jeste zkousnul}
> A := A + 0.000001;
> Writeln(A) vypise 824.500001 {Nevim, jestli je pocet nul spravne, ale proste
>                               je to pres polovinu}
> Str(A:1:2, S);
> Val(S, A, Code);
> {Ted by melo byt v A cislo 824.5, protoze jsem "oriznul tu jednicku"}
> Writeln(A) vypise 824.49999999 ;-(((
> Takze trik s prictenim/odectenim "smeti" je na ......
> 
> 2) 2. pocitac, Celeron 333MHz, Windows NT 4.0 SP 6a
> 
> - vsechno naprosto v pohode, tj. po prirazeni A := 824.5 a Writeln(A) ji 
> proste na tech 824.5 vypise. Veskere dalsi operace "se smetim" take
> probehnou 
> tak, jak to je spravne.... 
> 
> 
> Program je napsan Delphi 5.0.
> A dela to same i s jinymi cisly, napr. 4346.035 (zobrazuje jako
> 4346.03499999).
> Chapal bych to, kdyby to bylo na obou pocitacich stejne dobre/spatne, ale 
> program je ten samej a procesor taky, tak kde je chyba? ;-((
> 
> 
> Dzemen 


... i kdybych vedel ze za pet minut zanikne svet, jeste bych se sel podivat na 
Fila, jak cisti SUE zuby ... A dokonce ne fernetem, ale zbuni pastou. Kam ten 
svet speje ?