Delphi	Material erste Schritte Variablen Typen Datenstruktur Zuweisung Komponenten StyleGuide Kontrollstrukturen Fehler Debuggen Funktionen Prozeduren Grafik Ereignisse Programme Unit OOP Benutzung einer Klasse Projektverwaltung Muster Format String-Operationen Datei Dialoge Menü Datenbank WinAPI Zufallszahlen RE Exceptions alte Delphiseite Pfad: Startseite / Fächer / Informatik / Delphi / Funktionen
Autor: mk 28.10.2005 15:49:50 4190	Funktionen

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;