1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

with Image_Koord.canvas do
  begin
    Colordialog_func.Execute;     //Öffnet das Farbenauswahlfeld
    For x:=0 to 500 do
      begin
      Pen.Color:=Colordialog_func.Color;   
//Zeichnet die Funktion in der ausgewählten Farbe
      Pen.Width:=2;         //Breite der Funktion
      y:= Trunc((sin(alpha)/cos(alpha))*x-g/(2*sqr(v0)*sqr(cos(alpha)))*sqr(x)+h);
      y1:= Trunc((sin(alpha)/cos(alpha))*(x+1)-g/(2*sqr(v0)*sqr(cos(alpha)))*sqr(x+1+h); //Berechung der Punkte
        moveto(x+50,250-y);
        lineto(x+1+50,250-y1);      
//Zeichnung der Funktion durch Zeichnung einzelner Linienabschnitte zw. y und y1
        end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

 with Image_Koord.canvas do
    begin
      Colordialog_func.Execute;     //Öffnet das Farbenauswahlfeld
      For x:=0 to 500 do
        begin
        Pen.Color:=Colordialog_func.Color;   //Zeichnet die Funktion in der ausgewählten Farbe
        Pen.Width:=2;         //Breite der Funktion
        y:= Trunc((sin(alpha)/cos(alpha))*x-g/(2*sqr(v0)*sqr(cos(alpha)))*sqr(x)+h);
        y1:= Trunc((sin(alpha)/cos(alpha))*(x+1)-g/(2*sqr(v0)*sqr(cos(alpha)))*sqr(x+1)+h); //Berechung der Punkte
        moveto(x+50,250-y);
        lineto(x+1+50,250-y1);       //Zeichnung der Funktion durch Zeichnung einzelner Linienabschnitte zw y und y1
        end;
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

type
  TForm1 = class(TForm)
    FImage: TImage;  //hier eventuell TPaintBox, aber lass erstmal TImage, wie du hattest
    private
      FTimer: TTimer;  //hierum kümmert sich Delphi bei Verwendung einer Komponente
      FZeit: Integer;
    private
      procedure FormCreate(Sender: TObject);  //nur bei dynamischem Erzeugen
      procedure FormDestroy(Sender: TObject);  //dito
      procedure Timer1Timer(Sender: TObject);  //das hier wird bei Verwendung einer Komponente wie oben beschrieben von Delphi erzeugt
    end;

implementation

const
  tmrInterval = 50;  //0.05 Sekunden zwischen den Timer-Aufrufen


procedure TForm1.FormCreate(Sender: TObject);
begin
  FTimer := TTimer.Create(Self);  //nur bei dynamischem Erzeugen
  FTimer.Interval := tmrIntervall;
  FZeit := 0;  //Zeit initialisieren
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FTimer.Free;  //nur bei dynamischem Erzeugen
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  lX, lY: Integer;
begin
  lX := f(FZeit).X;  //deine Gleichung, X-Koordinate
  lY := f(FZeit).Y;  //deine Gleichung, Y-Koordinate
  FImage.Canvas.MoveTo(lX, lY);
  FZeit := FZeit + tmrInterval;
  lX := f(FZeit).X;  //deine Gleichung, X-Koordinate
  lY := f(FZeit).Y;  //deine Gleichung, Y-Koordinate
  FImage.Canvas.LineTo(lX, lY);
end;					

1:
2:
3:

 begin  
  lX := f(FZeit).X ;  //deine Gleichung, X-Koordinate  
  lY := f(FZeit).Y;  //deine Gleichung, Y-Koordinate					

1:

Y = Y_0 - t * v_0.Y + g / 2 * t^2					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure ZeichneFunktion(v0, h, Alpha: Single);  //Single ist ein (Zahlen-)Datentyp mit nachkommastellen
var
  X, Y, Y1: Integer;
begin
  if not Colordialog_func.Execute then  //Öffnet das Farbenauswahlfeld
    ColorDialog_func.Color := clRed;  //Bei Abbruch Standardfarbe
  Image_Funkt.Pen.Color := Colordialog_func.Color;   //Zeichnet die Funktion in der ausgewählten Farbe
  Image_Funkt.Pen.Width := 2;  //Breite des Graphen der Funktion
  for x := 0 to 500 do begin
    y:= Trunc((Sin(Alpha) / Cos(Alpha)) * x - g / (2 * Sqr(v0) * Sqr(Cos(Alpha))) * Sqr(x) + h);
    y1:= Trunc((Sin(Alpha) / Cos(Alpha)) * (x + 1) - g / (2 * Sqr(v0) * Sqr(Cos(Alpha))) * Sqr(x + 1) + h);  //Berechung der Punkte
    Image_Funkt.MoveTo(x + 50, 250 - y);
    Image_Funkt.LineTo(x + 1 + 50, 250 - y1);  //Zeichnung der Funktion durch Zeichnung einzelner Linienabschnitte zw y und y1
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function FunktionsWert(X: Integer; h, v0, Alpha: Single): Integer;
var
  TangensAlpha: Single;
  Helfer2: Single;  //Das hier musst du noch richtig benennen
begin
  TangensAlpha := (Sin(Alpha) / Cos(Alpha));
  Helfer2 := g / (2 * Sqr(v0 * Cos(Alpha)));
  result := h + X * TangensAlpha - Sqr(X) * Helfer2
end;
//y := FunktionsWert(X, h, v0, Alpha);
//y1 := FunktionsWert(X + 1, h, v0, Alpha);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

type
  TForm1 = class(TForm)
    FTimer: TTimer;
    procedure Timer1Timer(Sender: TObject);
  public
    procedure ZeichneFunktion;
  private
    FStelle: Integer;  //Die Stelle X, an der die Funktion gerade vom Timer gezeichnet wird
  end;

implementation

procedure TForm1.ZeichneFunktion;
begin
  FStelle := 0;
  FTimer.Interval := 50;  //50 millisekunden intervall, viel mehr schafft Windows nicht
  FTimer.Enabled := false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Canvas.MoveTo(FStelle, f(FStelle));  //x, f(x)
  Inc(FStelle);  //erhöht Variable um eins
  Canvas.LineTo(FStelle, f(FStelle));
  if FStelle = 500 then
    Timer.Enabled := false;
end;					

1:
2:

If (StrToFloat(Edit_winkel.Text) > 90) then
  ShowMessage('Winkel < 91° wählen');					

1:
2:

sw_b:=Trunc(sw);     //Erstellt einen Wert im Datentyp Integer mit Hilfe von Trunc
    sw_c:=Round(sw_b);   //Rundet diesen Wert