Delphi - Radice Quadrata (Delphi 7)

Forum - Delphi - Radice Quadrata (Delphi 7)

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 12:49
Martedì, 22/11/2011

Codice sorgente - presumibilmente Delphi

procedure TForm8.Button3Click(Sender: TObject);
begin
var
X,Y,Z:INTEGER;
S:STRING[10];
nDouble: Double;
begin
  VAL(Edit10.text,X,Z);
  nDouble := StrToFloatDef(Edit9.text, 0);
  nDouble := (nDouble * X);
  STR(X,S);
  Label13.Caption := FloatToStr(Round(nDouble));
end;

con il codice sopra riportato effettuo questa formula Watt X Corrente adesso ne vorrei fare la radice qadrata come faccio? Che?!?

nessuno (Normal User)
Guru^2

Messaggi: 6402
Iscritto: 03/01/2010

Postato alle 13:37
Martedì, 22/11/2011

Vedi

http://forum.html.it/forum/showthread.php?s=&postid=134897 ...

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 23:12
Mercoledì, 23/11/2011

Ho fatto in questo modo:

Codice sorgente - presumibilmente Delphi

procedure TForm8.Button3Click(Sender: TObject);
var
X,Y,Z:INTEGER;
S:STRING[10];
nDouble: Double;
number, squareRoot : Extended;
begin
  VAL(Edit12.text,X,Z);
  nDouble := StrToFloatDef(Edit11.text, 0);
  STR(X,S);
  number  := nDouble * X;
  squareRoot := Sqrt(number);
  Label13.Caption := FloatToStr(Round(nDouble));
end;

Ma c'è un problema che non riesco a risolvere, quando inserisco i dati nell'edit11 e l'edit 12 e premo il pulsante calcola correttamente il valore, adesso se cambio il valore da calcolare nell'edit11 e premo il pulsante calcola bene, il problema arriva quando cambio il valore nell'edit12, premendo il pulsante il risultato resta uguale, come mai?

Poggi Marco (Member)
Guru

Messaggi: 969
Iscritto: 05/01/2010

Postato alle 14:15
Giovedì, 24/11/2011

Ciao!
In che senso, il risultato rimane uguale?
(Che valori metti negli edit, e che numeri vengono calcolati?)

Qual' è lo scopo del programma?

Hai fatto il de bug?

A mio avviso, va rivista le conversioni tra stringhe e numeri.

Ultima modifica effettuata da Poggi Marco il 24/11/2011 alle 14:20

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 22:25
Giovedì, 24/11/2011

in pratica deve fare questo: 34X45 il risulato poi va fatta la radice quadrata.

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 22:48
Giovedì, 24/11/2011

Ho risolto in questo modo:

Codice sorgente - presumibilmente Delphi

procedure TForm8.Button3Click(Sender: TObject);
var
X,Y,Z:INTEGER;
S:STRING[10];
nDouble: Double;
begin
  VAL(Edit12.text,X,Z);
  nDouble := StrToFloatDef(Edit11.text, 0);
  nDouble := Sqrt(nDouble * X);
  STR(X,S);
  Label13.Caption := FloatToStr(Round(nDouble));
end;