problem mit for-schleife

[Mb123]

hallo ,
ich habe folgendes problem:
ich möchte die y-werte der funktion f ausrechnen ( f(x)=x*x ). nun hab ich mir gedacht ich mache dies einfach mit einer for-schleife z.b. von 1 bis 5. und dann wollte immer wenn eine zahl von 1 bis 5 eingesetzt wird , den errechneten wert ausgeben haben. der code sieht nun so aus :

Delphi-Quellcode:

function f(x: extended): extended;
begin
f:= x*x
end;

[...]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 5 do
  x:= f(i);
  Label4.Caption := FloatToStr(x);
end;

bei der rechnung kommt allerding 25 raus und die werte werden natürlich nich enzelt ausgeben.. wenn mir da jemand weiterhelfen könnte wär das spitze !! danke

[mkinzler]

Der wert des labels wird immer wieder überschrieben nimm lieber ein Memo zur Ausgabe.

Delphi-Quellcode:

...
for i:=1 to 5 do
  x:= f(i);
  Memo.Lines.Add( FloatToStr(x));
end;

[Neutral General]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 5 do
  x:= f(i);
  Label4.Caption := FloatToStr(x); // Diese Zeile wird NICHT wiederholt !
end;

1. Siehe Quelltext
2. Siehe Quelltext:

Delphi-Quellcode:

Label4.Caption := Label4.Caption + 'f(' + IntToStr(i) + ')= ' + FloatToStr(x) + #13#10;

1+2 =>

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 5 do
begin
  x:= f(i);
  Label4.Caption := Label4.Caption + 'f(' + IntToStr(i) + ')= ' + FloatToStr(x) + #13#10;
end;
end;

So würd ichs eventuell machen :)

Gruß
Neutral General

[Nils_13]

Delphi-Quellcode:

for i:=1 to 5 do
  x:= f(i);

ist falsch. Du kannst dir ein Array erstellen. Beispiel:

Delphi-Quellcode:

var Zahlen: Array of Integer // oder z.B Real
begin
  SetLength(Zahlen, 4)
  for i:=1 to 5 do
    Zahlen[i] := x;

Hat Vorteile. Dann noch

Delphi-Quellcode:

Edit1.Text := 'dein Text'
for i := 1 to 5 do
  Edit1.Text := Edit1.Text + ' ' + IntToStr(f[i]);

[Matze]

@mkinzler: Dann aber das begin-end nicht vergessen:

Delphi-Quellcode:

for ...
begin
  // ...
end;

Mit dem Label ginge es auch, dann jedoch so in der Art:

Delphi-Quellcode:

Label1.Caption := Label1.Caption + ', ' + FloatToStr(x);

Edit: @Nils: Wieso ein Array? "f" ist der Name der FUnktion.

[Schubi]

Richtig. Ist auch logisch dass da 25 raus kommt. Weil der letzte Aufruf von f mit dem Parameter 5 geschieht. Und 5 x 5 = 25 ;-)

[mkinzler]

Zitat:

@mkinzler: Dann aber das begin-end nicht vergessen:

Klar; das passiert, wenn amsn schnell copy&Paste verwendet.

[Mb123]

danke schon mal dafür !!

dann hab ich noch zwei fragen:
1) kann man die laufvariable i auch als real machen ? klappt nämlich irgendwie nich

und

2) kann man die schritt weite um die i erhöht wird auch auf 0,5 runter setzen oder 1,5 erhöhen ?

[mkinzler]

Zitat:

1) kann man die laufvariable i auch als real machen ? klappt nämlich irgendwie nich

Nein, muß Integer sien.

Zitat:

2) kann man die schritt weite um die i erhöht wird auch auf 0,5 runter setzen oder 1,5 erhöhen ?

Direkt nicht. Pascal kennt nur die Schritte +1 und -1. Du kannst aber innerhalb der Schleife eine weitere Variable nehmen die du dann aus der Laufvaribalen berechnest.

[dino]

for variablen müssen einfache lokale integer variablen sein

wie wäre es mit

Delphi-Quellcode:

vari:Extended;
i:=-4;
while i < 4 do
begin
inc(i,0.5);
\\...
end;