[OT] Divisioni e numeri reali con la CPU

[Rising1]

Stavo creando un'applicazione in Delphi quando ho notato uno strano fenomeno:

Funzione realtostr, che trasforma numeri reali in stringhe:

function realstr(x:real):string;
var tempx, i:integer;
begin
realstr:='';
tempx:=trunc(x);
realstr:=realstr+inttostr(tempx)+',';
x:=x-tempx;
repeat
tempx:=trunc(x*10);
x:=(x*10)-tempx;
realstr:=realstr+intstrnew(tempx);
until (x=0) and (tempx=0);
end;

il problema e che se in input viene dato per esempio 3.4 l'output in stringa è:

3,3999999999999911182158 etc....

Ho escluso un difetto nel codice, optando invece per un qualche errore (c'entra niente l'overflow?) relativo al processore e di come questo rappresenta i numeri reali.
Ma qual'è il vero motivo? E come potrei fare per eluderlo mantenendo però la corrispondenza perfetta tra input e output?

[oregon]

Leggi a partire da

Representable numbers, conversion and rounding

in

http://en.wikipedia.org/wiki/Floating_point

[Rising1]

vediamo se sbaglio:

3.4 in binario è rappresentato come

11.(0110)

quindi con notazione esponenziale

0.110110 x2^2

rappresentato dal calcolatore come

1000 0010 (esponente) 0(segno)101100110 etc...

giusto?

vediamo se ora applicando quello che c'è scritto su wiki riesco a trarre qualche conclusione.
Grazie per il link

[Paulin]

vediamo se ora applicando quello che c'è scritto su wiki riesco a trarre qualche conclusione.

La conclusione a livello pratico è che per evitare di avere 3.3 (se si tronca la parte frazionaria) anziché 3.4 si opera un arrotondamento per cui 3.3(9999xxx) diviene 3.4 come ci si aspetta.

Il problema è abbastanza comune, ci sono molti documenti in rete che si riferiscono alla Floating Point Question, e per quanto ne so la soluzione più ricorrente a questo problema è il rounding.

[MItaly]

Se invece errori di questo genere non sono tollerabili (ad esempio se si stanno gestendo valori monetari) si usano i vari tipi decimal, che esistono sia in virgola mobile che in fixed point.

[Rising1]

[QUOTE]Originariamente inviato da MItaly

si usano i vari tipi decimal, che esistono sia in virgola mobile che in fixed point.

GRANDE!!
ecco cosa ho trovato
http://delphi.about.com/library/rtl/...loatFormat.htm

è proprio quello che mi serviva! Applico e vi faccio sapere

[Rising1]

ok, risolto con la funzione floattostrf(x,ffgeneral,8,4);

[MItaly]

Originariamente inviato da Rising1
ok, risolto con la funzione floattostrf(x,ffgeneral,8,4);

Vabbé, ma così stai barando, ti limiti ad arrotondare...

[Rising1]

Originariamente inviato da MItaly
Vabbé, ma così stai barando, ti limiti ad arrotondare...

scusa, la funzione era floattostrf(x,ffgeneral,8,8); con ffgeneral comunque, oltre ad evitare i problemi di arrotondamento della mia funzione evito pure che ci siano inutili "0".

123.4300 ad esempio lo fa diventare semplicemente 123.43. è Proprio quello che cercavo di fare con la mia funzione.

quello che credevo era però che, togliendo ad ogni moltiplicazione per 10 la parte intera del numero, "dessi più spazio alla parte decimale" per avere una migliore precisione, ma mi sbagliavo. Avevo provato altri metodi ma il difetto di arrotondamento era comunque presente.

Non la conoscevo proprio questa funzione, SysUtils mi stupisce sempre di più