Bitte um Kontrolle

[4c1dI3uI2n]

hi leutz,

kann mir jemand den code berichtigen. das prog soll oberfläche und volumen einer kugel berechnen. eingegeben wird dabei immer der radius. ich habe noch mehrere registerkarten erstellt da später noch pyramide und sowas folgt. nun geht es aber nur um die kugelberechnungen. ebenfalls hab ich eine grafik eingefügt, die nur zur optischen realisierung dient.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, TabNotBk;

type
TForm1 = class(TForm)
TabbedNotebook1: TTabbedNotebook;
Image1: TImage;
Image2: TImage;
LabeledEdit1: TLabeledEdit;
StaticText1: TStaticText;
StaticText2: TStaticText;
LabeledEdit2: TLabeledEdit;
LabeledEdit3: TLabeledEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var r, v, ao: real;
begin
r := strtofloat(labelededit1.text);

v := (4/3)*(3.141592654*(r*r*r));
ao:= 4*3.141592654*(r*r);

labelededit2.text := floattostr(v);
labelededit3.text := floattostr(ao);

end;

end.

[Felix Kaiser]

Soweit keine Fehler auf den ersten Blick. Allerdings würde ich nicht real sondern extended nehmen, zwecks Genauigkeit und ich würde die Konstante Pi nehmen, anstatt den Zahlenwert.

[Codeq]

oder...
(4.0 * atan(1.0))

:D