Geometrische Körper ausrechnen

[Coolnes]

Hallo. Ich Programmiere gerade ein Programm mit dem ich Körper ausrechnen kann.
Das wären dann bei mir Quader, Pyramide, Kegel und Zylinder. Die ersten beiden Körper hab ich ja noch hinbekommen, doch beim Kegel weiss ich nicht mehr weiter, wenn ich es Kompiliere, dann steht bei denn Warnungen: "[Warnung] Unit1.pas(105): W1036 Variable 'PI' ist möglicherweise nicht initialisiert worden"

Könnt ihr mir einen kleinen Code-Schnippsel aufschreiben!
Hier ist der Quellcode, welches ich geschrieben habe, ist nur der kleine Teil:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var r, h, PI, v: Real;
begin
r :=strtofloat(Edit11.Text);
h :=strtofloat(Edit12.Text);
v :=((1/3)*(PI)*r*r*h);
Edit13.Text :=floattostr(v);
end;

[JasonDX]

nach dem Begin kommt noch

Delphi-Quellcode:

Pi := 3.1415926; //ect.

oder du lässt die deklaration von PI weg und bindest die unit Math mit ein

[Coolnes]

Danke hat geklappt!
Und wie würde ich das mit dem "normalem" Pi von Delphi aus hinbekommen?

[JasonDX]

PI ist in der Unit Math deklariert, also diese Unit einbinden und deine Variablendeklaration rausschmeißen ;)

[Thanatos81]

Lass einfach deine Deklaration weg. Und schreibst ganz normal Pi in deinen Code.

Die Unit math musste auch nicht einbinden, da Pi auch in der System.pas ist. Kannst ja mal ein leeres Projekt mit nem Button anlegen und das hier ausprobieren:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var A,r : Real;
begin
  r := 2.3;
  A := pi * r*r;
  showMessage(FloatToStr(a));
end;

edit:
Fehler im Code beseitigt. Hate r² stat r*r geschrieben. Danke für den Hinweis, Ultimator.

[Ultimator]

Zitat:

und das hier ausprobieren

Dann musst du aber pi * r * r schreiben, weil Delphi r² eher nicht mögen wird ;)

[Thanatos81]

Verdammt, das kommt davon, wenn man es direkt ins Forum tippt, ohne was auszuprobieren :wall:

Danke für den Hinweis, Ultimator!

[Coolnes]

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.

[Thanatos81]

Du hast auch immernoch das PI drin. das muss weg. Sonst nimmt er nicht das "Delphi-Pi". Also so:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var r, h, v, o, s: Real;
begin
  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;

[Khabarakh]

Der Fehler liegt meistens beim Programmierer :wink: .
Das hier:

Delphi-Quellcode:

s :=(sqrt(h*h)+(r*r));

sollte wohl eher

Delphi-Quellcode:

s := Sqrt(h * h + r * r);

heißen, oder :wink:² ?

@Thanatos81: Müssen nicht, aber es bietet sich natürlich an.