Delphi (XE) Valori numerici

[oregon]

Come ti avevo già scritto


"Prevedi che anche X, Y siano variabili di tipo Double."

[camaleonteplus]

Come ti avevo già scritto


"Prevedi che anche X, Y siano variabili di tipo Double."

No ho cambiato cosi:

procedure Tresc1.Button2Click(Sender: TObject);
var
X:REAL;
K,A,Y,Z:INTEGER;
S:STRING[10];
begin
  VAL(lmm.text,A,Z);
  VAL(Materiale.Caption,Y,Z);
  VAL(smm.text,K,Z);
  X:= (Y * (A / (K * K)));
  STR(X:10:2,S);
  Label1.Caption := S;
end;

ma nenche va bene.