Ein einfaches Programm zum Berechnen von Wertetabellen
wertetabelle.zip
procedure TForm1.bRechneClick(Sender: TObject);
const
xa = -3; // linke Grenze
xe = +3; // rechte Grenze
dx = 0.5; // Schrittweite
var
x,y : real;
function f(x : real) : real; // Funktionsvereinbarung
begin
result := x*x;
end;
begin
mAusgabe.Lines.Add('x'+#9+'y'); // #9 Tabulator
mAusgabe.Lines.Add('----------------------------');
x := xa;
while x <= xe do
begin
y := f(x); // Funktionsaufruf
mAusgabe.Lines.Add(FloatToStr(x)+#9+FloatToStr(y));
x := x+dx;
end;
end;
