probleme in informatik

nö tuts ned XD

Erzeugen
[Fehler] Unit1.pas(34): Record, Objekt oder Klassentyp erforderlich
[Fehler] Unit1.pas(40): `:=` erwartet, aber `:` gefunden
[Fehler] Unit1.pas(47): Record, Objekt oder Klassentyp erforderlich
[Fehler] Unit1.pas(53): `:=` erwartet, aber `:` gefunden
[Fataler Fehler] Project2.dpr(5): Verwendete Unit `Unit1.pas` kann nicht compiliert werden

Hi. Ich hab dir den code mal so umgeschrieben, dass es geht ;)
(Ich hab diese ewich lange laufenden Schleifen mal durch "sleep(ms)" ersetzt. Das Prog wartet also einfach die angegebene Anzahl von Millisekunden bis es weiterläuft.

So hier mal der Code:

procedure TForm1.Button1Click(Sender: TObject);
var n, x: integer;
begin
x:=1;

// Größer werdende Rechtecke
for n:= 1 to 200 do
begin
canvas.rectangle (50+n,50+n,100+2*n,100+2*n);
sleep(25);
end;

Form1.Canvas.MoveTo(500, 500);

// Kleiner werdende Rechtecke
for n:= 200 downto 1 do
begin
x:=x+1;
canvas.rectangle((250+2*x)+x, 250-x, 500+2*x ,500-2*x);
sleep(25);
end;
end;


Erklärung:

Wenn du die 200 Rechtecke gezeichnet hast, hast du die Kordinaten 250,250(Obere Linke Ecke des Rechtecks)
500,500 (Untere Rechte Ecke des Rechtecks)
errreicht.

Da die Schleife für die folgenden Rechtecke runterzählt brauchst du eine 2.Variable die hochgezählt wird (X).

Den ersten X-Wert des Rechtecks musst du nun weiter erhöhen, damit du weiter nach rechts kommst (250+(2*x)+x).
Der y-Wert muss hier kleiner werden, da das recheck ja oben landen soll.
Dabei gehen wir wieder von der 250,250 aus und ziehen davon den Wert ab der in X steht (X wird jeden Druchlauf größer -> Kordinate wird kleiner). Da du in der ersten Schleife immer 2*n dazu gezählt hast, muss hier natürlich 2*x abgezogen werden.

Für die 2.Werte geht das dann so:
Für den X-Wert werden zur 500 immer 2*x dazu gezählt, um weiter nach rechts zu kommen. Der Y-Wert muss wie oben, kleiner werden. Daher zieht man von den 500 immer 2*x ab um nach oben rechts zu kommen.


Ich hoffe ich konnte Dir damit helfen ;) (und deinen Abschluss retten^^)

also wenn es richtig ist bin ich dir unendlich dankbar dann haste mich gerade aus der scheiße gezogen