Hallo Bloodhound,
dann lass und mal anfangen:
Zunächst einmal kannst du auf die Mathematische Bibliothek von Delphi zugreifen. Dazu fügst du ganz oben im "implementation Teil" die uses Anweisung:
uses math;
hinzu. Das ist schon einmal der erste Schritt.
Jetzt kannst du einmal versuchen eine Procedure zu schreiben, die wie folgt deklariert ist:
function TForm1.SinWithScale(a, x, b, fi: extended; useRad: Boolean): extended;
Diese Funktion übernimmt die von dir gegebenen Werte und soll den Funktionswert zurückgeben. Der Rückgabewert wird in Pascal der Variable Result zugewiesen, also:
Delphi-Quellcode:
...
Result := a*sin(...);
Den Parameter useRad habe ich hinzugefügt, um die Werte b, x, fi und den Funktionswert entweder in
Rad oder in Grad angeben zu können. Du musst also eine if-Abfrage einfügen und die Werte entsprechend interpretieren.
Wenn du die Funktion geschrieben hast, melde dich wieder. Wenn du damit Probleme hast, sage genau, wo du nicht weiterkommst.