Freier Fall - Lösung

unit mFreierFall;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, TeEngine, Series, TeeProcs, Chart;

type
  TForm1 = class(TForm)
    edZeitintervall: TLabeledEdit;
    memZeit: TMemo;
    memWeg: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    btOK: TButton;
    btLoeschen: TButton;
    procedure btOKClick(Sender: TObject);
    procedure edZeitintervallChange(Sender: TObject);
    procedure btLoeschenClick(Sender: TObject);
  private
    { Private-Deklarationen }
    function weg(zeit: Real): Real;
    procedure ausgabeLoeschen;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.weg(zeit: Real): Real;
begin
  weg := 9.81 / 2 * zeit * zeit;
end;

procedure TForm1.ausgabeLoeschen;
begin
  memZeit.Lines.Clear;
  memWeg.Lines.Clear
end;

procedure TForm1.btOKClick(Sender: TObject);
var intervall, s, t: Real;
    i: Integer;
begin
  intervall := StrToFloat(edZeitintervall.Text);
  t := 0;
  for i:=1 to 20 do
  begin
    t := t + intervall;
    s := weg(t);
    memZeit.Lines.Add(FloatToStrF(t, ffFixed, 10, 3));
    memWeg.Lines.Add(FloatToStrF(s, ffFixed, 10, 3))
  end;
end;

procedure TForm1.edZeitintervallChange(Sender: TObject);
begin
  ausgabeLoeschen
end;

procedure TForm1.btLoeschenClick(Sender: TObject);
begin
  edZeitintervall.Text := '';
  ausgabeLoeschen
end;

end.