viele fliegende sich abstoßende Bälle??

[Carolin]

hallo nochmal,
leider gottes bekomm ich das programm irgendwie nicht zum laufen...*heul*

wäre es viel arbeit mein onlinegestelltes programm umzuschreiben und an mich zu senden??

Naj,a also wer die Zeit und die Lust hat kann dies gern tun

Also weitergehts...das prinzip hab ich (denke ich jedenfalls...) verstanden nur beim Umsetzen haperts noch!

ich hab da probleme mit dem "a" und "b"....ich mein ich erstell also ein array

Code:

procedure stoss ;
 var ball: array [1..30] of tball   ;

for a := 0 to High(BallArray)-2 do
begin
  for b := a+1 to High(BallArray)-1 do
  begin
    wenn sich Ball a und Ball b berühren
    begin
      abstoßung;
    end;
  end;
end;

doch was stell ich mitm a und b nun an...?

Sorry, bin noch echt ne blutige Angängerin