Radice Quadrata (Delphi 7)

[camaleonteplus]

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?!?

[oregon]

http://www.delphibasics.co.uk/RTL.asp?Name=Sqrt

[camaleonteplus]

Ho fatto in questo modo:

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?

[oregon]

Ma cosa te ne fai di

squareRoot

ora che l'hai calcolato?

[camaleonteplus]

faccio la radice quadrata

[oregon]

Originariamente inviato da camaleonteplus
faccio la radice quadrata

Che risposta è?

La domanda è "cosa te ne fai del risultato della radice quadrata"?

[camaleonteplus]

scusami non avevo capito, il risultato viene visualizzato in label13

[oregon]

Originariamente inviato da camaleonteplus
scusami non avevo capito, il risultato viene visualizzato in label13

Ti sembra che sia così come dici?

squareRoot := Sqrt(number);
Label13.Caption := FloatToStr(Round(nDouble));

[camaleonteplus]

Ho risolto in questo modo:

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;