Forum: Multimedia
by Ergosquare,
4. Mär 2014
Ich hatte noch einen entscheidenden Fehler:
If (za<100) and (sqrt(x*x+y*y)<2)
then za:=zaehler(za+1,x,y,x2,a,b)+1 //+1 hat gefehlt
else za:=1;
Sonst wird za nach der Funktion nicht verändert.
Dennoch bleibt es leider bei der Einfarbigkeit.
Forum: Multimedia
by Ergosquare,
4. Mär 2014
So, die Funktion hat jetzt eine Rückgabewert.
za scheint trotzdem durch die Funktion nicht verändert zu werden.
MfG Ergosquare
Forum: Multimedia
by Ergosquare,
4. Mär 2014
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
Forum: Multimedia
by Ergosquare,
4. Mär 2014
Hallo nochmal.
Mit der Variante bekomme ich die Fehlermeldungen:
Unit1.pas(36): ';', ')' oder '=' erwartet, aber 'VAR' gefunden
Unit1.pas(42): Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen
function zaehler(var za:integer var x,y,x2,a,b:real):integer; //36
begin
Forum: Multimedia
by Ergosquare,
4. Mär 2014
Hallo.
Es geht um eine Variable, die für eine Grafik wichtig ist und durch eine Funktion deklariert wird.
Es scheint, als ob die Funktion nicht ausgeführt werden würde.
In der Grafik erscheint dann nur eine vollfarbige Fläche, obwohl man mindestens eine Struktur erkennen müsste
function zaehler(za:integer; x,y,x2,a,b:real):integer;
begin
x2:=x*x-y*y+a;