Winkelumrechnung

[Yinnik94]

Hallo Leute,

Falls das der falsche Bereich ist tut es mir leid und dann bitte verschieben!

Ich muss über die Ferien eine Hausarbeit machen und das Thema lautet Winkelumrechnung!

Die Aufgabe lautet so:

Die Größe eines Winkels ist in Grad, Minuten und Sekunden einzulesen (1 Grad= 60 Minuten, 1 Minute = 60 Sekunden).
Entwickeln Sie einen Alogrithmus und ein Programm, das das Bogenmaß des Winkels berechnet und ausgibt.

Unter Bogenmaß versteht man die Länge des Kreisbogens des Einheitskreises. Es gilt die Formel:

b= a*pi / 180°

Sie werden diesen Algorithmus häufig benötigen, weil die üblichen trigonometrischen Standardfunktionen bei den meisten Rechnern nur Winkel im Bogenmaß als Argument zulassen!



Ich bin nun soweit und weiß einfach nicht weiter:

Delphi-Quellcode:

unit UWinkelumrechnung;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TWinkelumrechnung = class(TForm)
    EdtWinkel: TEdit;
    EdtMinuten: TEdit;
    EdtSekunden: TEdit;
    LblGrad: TLabel;
    LblMinuten: TLabel;
    LblSekunden: TLabel;
    BtRechnen: TButton;
    BtEnde: TButton;
    LblBgleich: TLabel;
    LblErgebnis: TLabel;
    LblAusgabe: TLabel;
    procedure BtRechnenClick(Sender: TObject);
    procedure BtEndeClick(Sender: TObject);
  private
    { Private-Deklarationen}
  public
    { Public-Deklarationen}
  end;

var
  Winkelumrechnung: TWinkelumrechnung;
  Zahl1, Zahl2, Zahl3, Zahl4 : INTEGER;
  ausgabe, Ergebnis : REAL;

implementation

{$R *.DFM}

procedure TWinkelumrechnung.BtRechnenClick(Sender: TObject);
begin
Zahl1 := strtoint (EdtWinkel.text);
Zahl2 := strtoint (EdtMinuten.text);
Zahl3 := strtoint (EdtSekunden.text);
Zahl4 := strtoint (LblAusgabe.caption);
Zahl4 := Zahl1 + Zahl2/60 + Zahl3/3600;





end;

procedure TWinkelumrechnung.BtEndeClick(Sender: TObject);
begin
close
end;

end.

Ich hoffe ihr könnt mir helfen!
Danke im Vorraus
Yinnik94