Posted By: dzemen () on 'CZprogram' Title: Zaokrouhlovani cisla typu Extended Date: Mon May 6 13:22:20 2002 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