Hallo Bloodhound,
so wie Hansa es geschrieben hat, ist es absolut in Ordnung. Ich hatte oben die Funktion als Methode des Formulars beschrieben. Wenn du das ralisieren willst, wäre die Deklaration wie folgt:
Delphi-Quellcode:
type
TForm1 = class(TForm)
...
private
{ Private declarations }
function SinWithScale(a, x, b, fi: extended; useRad: Boolean): extended;
public
{ Public declarations }
end;
Unterhalb des Tags
implementation folgt dann irgendwo:
Delphi-Quellcode:
function TForm1.SinWithScale(a, x, b, fi: extended; useRad: Boolean): extended;
var
erg : extended;
begin
if Not useRad
then
begin
{ hier musst du die Werte x, b und fi in Rad umwandeln,
da der Benutzer diese in Grad angegeben hat }
end;
erg := a*sin(b*(x-fi));
if Not useRad
then
{ hier den erhalten Wert wieder in Grad umwandeln };
Result := erg;
end;
Wie Hansa habe ich auch keine Fehlerbehandlung eingefügt, dazu solltest du einen try ... except Block verwenden.
Wenn du die Kommentare (also das Umwandeln von Grad in
Rad bzw umgekehrt noch erledigst, hast du schon die Funktion fertig.
Such doch mal in der Hilfe unter RadToDeg
.
Hansa ist vielleicht etwas scharf in Ton, aber er hat natürlich Recht, wenn er sagt, dass das Abschreiben allein nichts bringt. Für 15 Punkte in Mathe oder Informatik solltest du versuchen mehr allein zu schaffen. Wenn du eine gezielte Frage hast -auch wenn sie sehr einfach ist- wirst du auch weiterhin Hilfe erhalten.
Wenn du die Funktion fertig hast, versuche mal eine Listbox zu füllen, in der du alle x-Werte von -Pi bis Pi, im Abstand von 0.1 und deren Funtionswert ausgibst. Wenn du das hast, kämen wir zur graphischen Anzeige.