Das habe ich ja bis jetzt aber jetzt will er nicht richtig rechnen:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var r, h, PI, v, o, s: Real;
begin
Pi :=3.1415926;
r :=strtofloat(Edit11.Text);
h :=strtofloat(Edit12.Text);
v :=((1/3)*(PI)*r*r*h);
s :=(sqrt(h*h)+(r*r));
o :=PI*r*(r + s);
Edit13.Text :=floattostr(v);
Edit14.Text :=floattostr(o);
end;
die oberfläche wird nicht richtig ausgerechnet, ich glaube der zieht die Wurzel nicht?
Bitte um Hilfe.