Funktion deklarieren oder nicht?

[Ergosquare]

Hallo nochmal.

Mit der Variante bekomme ich die Fehlermeldungen:

[Fehler] Unit1.pas(36): ';', ')' oder '=' erwartet, aber 'VAR' gefunden
[Fehler] Unit1.pas(42): Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

Code:

function zaehler(var za:integer var x,y,x2,a,b:real):integer;  //36
begin
    x2:=x*x-y*y+a;                                  
    y:=2*x*y+b;
    x:=x2;
    If (za<100) and (sqrt(x*x+y*y)<2)               
    then za:=zaehler(za+1,x,y,x2,a,b)               //42
    else za:=1;
end;

Was ist mit
result:=za;
gemeint?
Die Variablen ändern sich doch durch die Funktion, oder nicht?

Der rek. Aufruf ist schon Absicht.

MfG Ergosquare

[p80286]

function zaehler(var za:integer; var x,y,x2,a,b:real):integer; //36 Gruß
K-H

[DeddyH]

Da fehlt ein Semikolon im Funktionskopf vor dem zweien "var". Und eine Funktion hat einen Rückgabewert, der wird in Deinem Code aber nirgends gesetzt, der Compiler müsste auch eine diesbezügliche Warnung ausgeben.

[p80286]

Zitat von DeddyH:

Und eine Funktion hat einen Rückgabewert, der wird in Deinem Code aber nirgends gesetzt

Wenn man die Tomaten zur Seite schiebt, sieht man auch das.

Gruß
K-H

[DeddyH]

Und wo soll das sein?

[p80286]

Zitat von DeddyH:

Und wo soll das sein?

Na nirgens! (ich hätte geschworen das da was war)

Gruß
K-H

[DeddyH]

Achso, Missverständnis meinerseits, ich dachte, Du hättest meine Tomaten gemeint

[Ergosquare]

So, die Funktion hat jetzt eine Rückgabewert.

za scheint trotzdem durch die Funktion nicht verändert zu werden.

MfG Ergosquare

[Blup]

Um mal zusammenzufassen:
- Rekursion ist in der Regel langsamer als Iteration
- Parameter, lokale Variablen und Rückgabewerte nicht durcheinander werfen

So stelle ich mir das vor:

Delphi-Quellcode:

function zaehler(x, y, a, b: Real): Integer;
var
  x2: Real;
begin
  Result := 0;
  while (Result <= 100) and (sqrt((x * x) + (y * y)) < 2) do
  begin
    x2 := (x * x) - (y * y) + a;                                
    y  := (2 * x * y)       + b;
    x  := x2;
    Inc(Result);
  end;
end;

var
  c: TColor;

  za := zaehler(x, y, a, b);
  case za of
     0..9: c := clRed;                  
   10..19: c := clGreen;
{...}
  else     c := clBlack;
  end;
  paintbox1.canvas.Pixels[s + 50, z + 50] := c;

Pixels ist so ziemlich die langsamste Möglichkeit eine Grafik auszugeben.
Besser du verwendest eine Bitmap und greifst mit Scanline darauf zu.
Die Bitmap dann komplett oder nach jeder Zeile zeichnen.
Alternativ gleich mit einer TImage-Komponente arbeiten (Image1.Picture.Bitmap).

[Ergosquare]

Sorry, mein Fehler, das mit dem Semikolon hätte ich sehen können.

Das zweite Problem besteht weiterhin.

Eine Warnung bekomme ich nicht.

MfG Ergosquare