SkullBox Forum  |  Development  |  Delphi & Pascal  |  Topic: round error

In delphi 7 incerc sa fac un programel care sa calculeaze ceva chestie ... Ca sa aflu rezutlatu real trebuie sa rotunjesc... in pascal era cu round() dar aicea nu reusesc am asa :

la compilare imi zice :
stie cineva cum sa fac sa imi dea bine ?


Pace

cas e de tip Int64 ?

^ merge merci mult dau o bere

iar daca imi explici ce inseamna Int64 iti dau si 1 vin


ah si inca o intrebare ... da nu stiu prea bine cum sa ma exprim ...

sa zicem ca programu imi calculeaza XYZ = -12

cum fac eu sa nu il lase adica daca XYZ <0 sa preaia automat val. de 0


ceva de genu : if XYZ < 0 then XYZ:=0 ...

Int64 este un numar intreg pe 64 de biti.

Tipuri de date:

byte : numar natural pe 8 biti,  0..255 = 2^8 -1;
word : numar natural pe 16 biti, 0..2^16-1;
dword, doubleword : numar natural pe 32 de biti, 0..2^32-1;
longint: numar INTREG pe 32 de biti: -2^31 .. 0 .. 2^31;
Int64: numar intreg be 64 de biti: -2^63 .. 0 .. 2^63;

acuma faci cinste 

Bun, ce bere preferi ? la vin lacrima lui ovi e oke ?

in vacanta si asa merg prin mai multe orase prin tara ... tu pe unde esti ? sa trec pe la tine sa iti las 'marfa'

^^^ Faci exact cum ai spus.


^^ Ai uitat de integer : - 2^15 .. 2^15 - 1 (in pascal) sau este egal cu longint, in delphi.

^^ mai si glumim pe aici, nu o lua in serios.

mai bine dai un exemplu de cod real.

^ am rezolvat cum am zis in topicu ala eu acuma incer sa fac 1 programel care calculeaza salarul net din brut ... am incercat si acum ceva timp sa il fac dar mam enervat ca nu reuseam cu cu ceva prostie  

aici calculeaza impozitul pentru 4 sau mai multe persoane in intretinere .... si soramea cum e contabilia mi-a explicat ca impozitul nu poate sa fie negativ ... da am reusit

daca mai am ceva intrebari legate o sa pun aicea daca nu ne vedem cand il termin

p.s.: eu nu glumeam cu berea si vinu

* iar ceva de rotunit si chiar nu reuesc sa rotunjesc zecimlele ....

exemple : 10,9 - 10
              13.2 - 10
              15.5 - 20


se poate asa ceva ? ;;D

De putut se poate, dar nu cu functii standard de Delphi. Round (vezi exemplele din stanga sus) stie doar de zecimale. Daca vrei tu neaparat, fa-ti o functie care sa considere unitatea ca fiind 10, iar in rest sa functioneze ca si Round

Alta solutie ar fi sa imparti numerele tale la 10, sa le dai Round si sa le inmultesti din nou cu 10.

^ MERGE   o sa folosesc GAGA / 10  ... 
ce faci in weekand ? unde bem 1 suc ?

Ma bucur

In Arad, daca vii : p