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 ?