Double va in overflow? N**E sbaglia se N intero

[corradoventu]

Ho un problema con numero definito Double. Lo calcolo come N1**E1 definiti shortint. Ho creato un piccolo progetto per riprodurre il problema. Accludo schermata. Volendo inviare progetto cosa dovrei mandare? la directory contiene i file qui sotto:

Codice: [Seleziona]

corrado@corrado-zesty:/media/corrado/dati1/lazarus/project1$ ls
backup            project1.lps      ScrollZ.lps  SZ.lpi.bak  unit1.lfm
lib               project1.lps.bak  scrollz.pas  SZ.lpr      unit1.lfm.bak
project1          project1.res      ScrollZ.res  SZ.lps      unit1.pas
project1.ico      ScrollZ.ico       SZ.ico       SZ.lps.bak  unit1.pas.bak
project1.lpi      scrollz.lfm       sz.lfm       sz.pas
project1.lpi.bak  ScrollZ.lpi       sz.lfm.bak   sz.pas.bak
project1.lpr      ScrollZ.lpr       SZ.lpi       SZ.res
corrado@corrado-zesty:/media/corrado/dati1/lazarus/project1$ 

ci ho salvato altri progetti, ma ho fatto casino, il progetto in prova si chiama project1.

[nomorelogic]

invece di double, prova a definire come: extended

per vedere quali file inviare, devi vedere quali file sono usati nel .lpr

è meglio iniziare a fare un progetto per ogni cartella...

[corradoventu]

Ho fatto altre prove, sia con Single che con eXtended. Il problema rimane. La colpa è della istruzione N**E che sbaglia oltre 10E18. Se faccio N=10 e E=18 N**E * 1000 è BUONO. Ripulisco il progetto demo e tento di inviarlo. Grazie.

[corradoventu]

Ho ripulito il progetto che ho chiamato 'over' mi sembra che il problema sia nella istruzione D=N**E, con N=10 ed E<=19 tutto bene, da 19 in poi sbaglia, sia con D:Double che con Single o eXtended. Se invece faccio 10**18 e poi moltiplico il risultato per 1000 va tutto bene. Ho zippato il progetto e provo a spedirlo. Grazie. Se mi confermate che non dipende da mio errore tento di aprire il problema su http://www.lazarus-ide.org/
sto usando Lazarus 1.6.2 su Ubuntu 17.04 Zesty ma il problema è uguale con Lazarus 1.6.

[corradoventu]

Trovato!! non funziona con N:smallint, funziona bene con N:Double. Il fatto è che N**E non avverte se N non è float, mentre IntPower avverte, da ora in poi userò IntPower.
Se non avete di meglio da fare vi prego di farmi sapere se il mio progetto è arrivato 'comprensibile'.
GRAZIE ancora.
PS: ho modificato il titolo del post per essere + aderente al vero problema.
PPS: anche power(N,E) funziona bene ... anche con N intero!!

[Stilgar]

Ciao.
Ho controllato il progetto, visto che chiedevi se è comprensibile.
Comprensibile è comprensibile.
Notavo l'uso delle variabili globali.
Piccola nota "stilistica" se vuoi. Usa variabili locali al metodo o d'istanza alla classe.
Personalmente eviterei l'uso delle variabili globali per fare dei conteggi all'interno di un metodo.

Codice: [Seleziona]

var
  Form1: TForm1;
  N,E:smallint;
  S,S3,S4:Single;
  D,D3,D4:Double;
  X,X3,X4:Extended;  

Nel caso di istanze multiple della form (virtualmente potresti istanziare n volte la stessa form) tutte insisterebbero sulle variabili globali, con confusione nei risultati.
Tutte le variabili possono essere spostate nel metodo che fa i conteggi, per intenderci :

Codice: [Seleziona]

procedure TForm1.ButCalcClick(Sender: TObject);
var
  N,E:smallint;
  S,S3,S4:Single;
  D,D3,D4:Double;
  X,X3,X4:Extended;  
begin
  E := ScrollBarE.Position;
  N := ScrollBarN.Position;
  S:=N**E;
  D:=N**E;
  X:=N**E;
{....}
end;

Ma considerato che è un test credo non sia un grosso problema.
 
Stilgar

[SB]

Mescoli tipi di dato diversi con conversioni implicite da un tipo di numero ad un altro... non c'è da meravigliarsi se le cose non vanno come ti aspetti...

Aggiungo una nota anch'io... in un processore a 64 bit usare smallint o single è una inutile complicazione che non porta ad alcun risparmio significativo. Anzi rischi di avere problemi come nel tuo caso.

[corradoventu]

GRAZIE a TUTTI dei consigli, credo mi saranno preziosi.

[corradoventu]

@Stilgar: usando variabili locali vedo che escono messaggi MOLTO utili riguardanti le variabili usate, tipo: variable not used, variable assigned but never used ... grazie ancora

[Stilgar]

🖖