Kreisausschnitt berechnen

[Sir Rufo]

Sowas in der Art?

Delphi-Quellcode:

var
  Sekante, Radius, Alpha : Extended;
begin

  // Daten von Form lesen

  Radius := StrToFloat( Radius_Edit.Text );
  Alpha := StrToFloat( Alpha_Edit.Text );

  // Berechnung

  Sekante := 2 * Radius * Sin( Alpha / 2 );

  // Ausgabe in Form

  Sekante_Edit.Text := FloatToStr( Sekante );

end;